Polilínea

Dudas y consultas sobre CAD. AutoCAD, Microstation y resto de aplicaciones CAD

Moderador: Moderadores

Responder
Avatar de Usuario
MCCDELINEANTE
Técnico
Mensajes: 93
Registrado: Jue Dic 20, 2007 12:29 am
Ubicación: Las Palmas de G.C.
Contactar:

Polilínea

Mensaje por 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.

Plannerly ™ La plataforma de gestión BIM ™ SmartLeanBIM® © 2021
Plantillas para crear el Plan de Ejecución BIM (BEP). Cumplimiento de la norma ISO-19650
Plan gratuito en el que puedes acceder a todas las plantillas y si al comprarlo introduces el código DELINEACION obtendrás un 10% de descuento
Afga
Jefe
Mensajes: 886
Registrado: Lun Sep 04, 2006 4:10 pm
Contactar:

Mensaje por 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 :wink:
Awe
Técnico
Mensajes: 112
Registrado: Lun Nov 12, 2007 11:32 am
Contactar:

Mensaje por 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
Jefe
Mensajes: 886
Registrado: Lun Sep 04, 2006 4:10 pm
Contactar:

Mensaje por 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
Técnico
Mensajes: 112
Registrado: Lun Nov 12, 2007 11:32 am
Contactar:

Mensaje por Awe »

gracias Agfa, a ver si me entero en ese post
luisgi

Mensaje por 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.
Responder

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 35 invitados