Problema con Recortar cotas en AutoCad 2008

[peterretep]

Hola soy nuevo en este foro y me remito para saber si me pueden solucionar este problema en AUTOCAD 2008

Realizando una CAPTURA de cotas y utilizando el comando ALARGAR funciona correctamente
pero si es a la inversa es decir en RECORTAR resulta que no permite hacer CAPTURA de una serie en general (de cotas) pero si una a una

¿ que solucion hay al respecto ?

ya que en las demas versiones 2007-2006... no hay problema en RECORTAR por CAPTURA de un grupo de cotas.

Ademas la opcion de borde,arista... y captura con RECORTAR no funciona en CAD-2008 ni tampoco Trim

Una SOLUCION facil seria hacerlas mas cortas y luego utilizar el comando ALARGAR ( que en este no hay problema ), pero ir de una en una es bueno....

¿a que se debe, es problema del programa o del sitema win xp o en vista va bien ?

RECORTO LAS COTAS, YA QUE LAS UTILIZO COMO BASE PRINCIPAL EN EL DESGLOSE DE UNA LOSA, POR EJEMPLO, DE HORMIGON ARMADO ES DECIR, NO UTILIZO LINEAS NI POLILINEAS, NI... SOLO COTAS, SI ESA LOSA NO ES CUADRADA O RECTANGULAR...., COJO UNA SERIE DE COTAS EN UNA MISMA LINEA CON LA LONGITUD MAS LARGA, LUEGO LAS REPARTO SEGUN LA SEPARACION ESTRE CADA COTA, LUEGO SELECCIONO EL PERIMETRO Y HA RECORTAR, PERO RECORTAR NO FUNCIONA EN 2008,

ATT. R.C.SALUDO. GRACIAS

[Afga]

Wenas peterretep y seas bienvenido al foro,

Como bien dices en AutoCAD 2008 existe el problema que comentas al recortar las cotas, no así con lineas, polilíneas,... Lo comento por que tb me ha sucedido al probar durante un tiempo la versión en inglés, y no solo eso, sino que a veces el corte no lo realiza bien, de acuerdo, a las entidades que se seleccionan. Aparentemente es un descuido de AutoDesk que imagino intentarán subsanar, no lo se. De todos modos, he realizado esta pequeña rutina lisp (probada en AutoCAD 2005, 2006 en castellano, y AutoCAD 2008 en inglés y funciona perfectamente) que pienso podra ayudarte en tu trabajo.

____________________________________________________________


(defun err_mtrim (msg)
  
     (if msg
       (princ (strcat " Error - " msg))
     )
      (setq *error* mtrimerr mtrimerr nil)
    (setvar "menuecho" me)
        (setvar "cmdecho" ce)
        (vl-cmdf "_.undo" "_end")
  
      (princ)
      (princ "\n\n* Teclee MTRIM o ENTER para volver a ejecutar el comando *")

) ;_end defun errmtrim

;; ///////////////////////////////////////////////////////////////////////////


(defun tfence_sel ()

   (setq p1 (getpoint "\nIndique primer PUNTO"))
   (while
   (setq p2 (getpoint p1 "\nIndique PUNTO siguiente"))
   (setq p3 (polar p1 (angle p1 p2) (/ (distance p1 p2))))
  
   (setq ss (ssget "_c" p1 p2))
   (setq ls (sslength ss))
   (setq no -1 )

   (vl-cmdf "_.trim" (car cx) "")
   (repeat ls
      (setq no (1+ no))
      (vl-cmdf (list (ssname ss no) p2))
   )
   (vl-cmdf "")
   (setq p1 p2)
   )
  
) ;_end defun tfence_sel
  

(defun tcapture_sel ()

   (while
   (setq p1 (getpoint "\nIndique primer PUNTO"))
   (setq p2 (getcorner p1 "\nIndique segundo PUNTO"))
   (setq p3 (polar p1 (angle p1 p2) (/ (distance p1 p2))))
  
   (setq ss (ssget "_c" p1 p2))
   (setq ls (sslength ss))
   (setq no -1 )

   (vl-cmdf "_.trim" (car cx) "")
   (repeat ls
      (setq no (1+ no))
      (vl-cmdf (list (ssname ss no) p2))
   )
   (vl-cmdf "")
   )
  
) ;_end defun tfence_sel

;; ///////////////////////////////////////////////////////////////////////////

(defun tentity_sel ()

     (initget "B C")
     (setq opt (entsel "\nDesigne entidades a recortar o indique una opción [Borde/Captura]:"))
     (cond
     ((= opt "B") (tfence_sel))
     ((= opt "C") (tcapture_sel))
     ((or (/= opt "B") (/= opt "C")) (vl-cmdf "_.trim" (car cx) "" opt ""))
     ) ;_end cond

) ;_end defun tentity_sel

;; ///////////////////////////////////////////////////////////////////////////

(defun C:MTRIM (/ ce me cx ss ls no p1 p2 p3 opt)

   (vl-cmdf "_.undo" "_begin")
   (setq mtrimerr *error* *error* err_mtrim)
   (setq me (getvar "menuecho"))
   (setq ce (getvar "cmdecho"))
   (setvar "menuecho" 0)
   (setvar "cmdecho" 0)

   (setq cx (entsel "\nDesigne arista de corte ..."))
   (while (= cx nil)
         (acet-sys-beep 16)
         (alert "No ha seleccionado ninguna entidad\n          Por favor designe una.")
         (setq cx (entsel "\nDesigne arista de corte ..."))
   ) ;_end while

   (while
   (tentity_sel)
   )

   (setvar "menuecho" me)
   (setvar "cmdecho" ce)
   (vl-cmdf "_.undo" "_end")

   (princ)
   (princ "\n\n\n* Teclee MTRIM o pulse ENTER para repetir el comando *")
   (prin1)

) ;_end defun MTRIM

(princ)
(prompt "\n\n\n* Nuevo comando \"MTRIM\" cargado - Realizado por J.S.R./santos_jsr@hotmail.com *")
(prin1)



_____________________________________________________________

Si tienes algún problema de como se usa, etc,... ya nos diras.

Un cordial saludo ....

[peterretep]

GRACIAS. MUCHISSSSSSSIMAS GRACIAS
de corazon lo digo
es mi mayor alegria despues de dos meses
Realmente funciona de maravilla, ok CRACK
Supongo que no te molestara que en los demas foros
a los que formule el problema les indique tu login
y el nombre del foro para que accedan a ver
tu fantastica solucion. estupendamente bien
gracias.

[peterretep]

Se me olvido
Ni siquiera el service pack 1 que se ha colgado en el support de autodesk
ha corregido este problema pero si otro de TRIM
Yo me actualice pero na de na
ok. crack