Polilínea

[MCCDELINEANTE]

Me gustaría saber como saltar la pregunta:¿desea realmente convertir en polilínea? SI/NO que aparece cuando estamos convirtiendo a polilínea un conjunto de entidades.

Saludos.

[Afga]

Si lo que quieres es convertir un conjunto de entidadesl (líneas, arcos y/o polilíneas) a una sola polilínea, entonces te dejo algo más rápido. Es una aplicación en Lisp que tengo, y que hace lo ya dicho anteriormente.

;----------------------------------------------------------------------------


(defun c:cpol ()

(inicio)

    (setq    objsel nil
        obj nil
        tipoent nil
    )

  (prompt "\n>>> Designe objetos: ")

  (setq objsel (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))


;    (if (/= (sslength objsel) 1)
    (progn

;    (princ "\nHay mas de 1 objeto")
    (setq obj (ssname objsel 0))
    (setq objlist (entget obj))
    (setq tipoent (cdr (assoc 0 objlist)))

    (if (/= tipoent "LWPOLYLINE")

      (progn
;        (princ "\nLa primera entidad NO ES polilínea\n")
        (command "_pedit" obj "_y" "_j" objsel "" "_y")
      );progn
      (progn
;        (princ "\nLa primera entidad ES polilínea")
        (command "_pedit" objsel "_j" objsel "" "_y")
      );progn
    ) ;if
    ) ;progn
;    (alert "Sólo ha designado una entidad")
;    ) ;if

(final)

) ;defun

(defun inicio ()
    (setq menueco (getvar "cmdecho"))
    (setvar "cmdecho" 0)            ; Desactiva presentación de órdenes

    (command "_undo" "_begin")
)



(defun final ()

    (command "_undo" "_end")
    (setvar "cmdecho" menueco)


    (princ)
)



(princ)


Espero que te sea de ayuda. Un saludo

[Awe]

oye Agfa, perdona esta pregunta, como hago para poder cargar esta aplicacion de autolisp, la copio en un archivo de notepad y le cambi la extension......

[Afga]

Aquí se habló al respecto, de los pasos a seguir para poder cargar y ejecutar las aplicaciones expuestas:


http://foro.delineacion.org/viewtopic.php?t=346


Saludos

[Awe]

gracias Agfa, a ver si me entero en ese post

[luisgi]

Hola awe, con un poco de retraso... tienes la variable PEDITACCEPT, le das valor 1 y ya no te lo preguntará jamás.

PEDITACCEPT:
Suprime la visualización de la solicitud El objeto designado no es una polilínea en EDITPOL / PEDIT. Después de la solicitud aparecerá el mensaje "¿Lo quiere transformar en una?" Si introduce s, el objeto seleccionado se convertirá en una polilínea. Al suprimir la solicitud, el objeto seleccionado se convertirá automáticamente en una polilínea.
0 Se muestra la solicitud.
1 Se suprime la solicitud.

Saludos.