problemas al llamar al comando explode en una función dentro de un lisp
Publicado por cjcristian (6 intervenciones) el 13/06/2020 17:55:50
Hola, estoy iniciando ne la programación y acabo de tener un problema , resulta que al cargar mi lips el autocad no me reconoce y me envía el mensaje : []error: AutoCAD command rejected: "*.EXPLODE"
la parte del código que presenta esa dificultad es la siguiente:
ahh el error sucede cuando cargo el código por medio de un botón creado en un cuadro de dialogo, pero si lo cargo directo al autocad no sucede ese error. estaría muy agradecido de recibir ayuda con esto.
la parte del código que presenta esa dificultad es la siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(SETQ LIPOLIS (SSGET "X" '((-4 . "<OR")
(-4 . "<AND")(0 . "LWPOLYLINE")(-4 . "AND>")
(-4 . "<AND")(0 . "LINE")(-4 . "AND>")
(-4 . "OR>")
)
)
) ;; eleccionamos todas las lineas o polilineas DEL DIBUJO
(SETQ NUMELEM (SSLENGTH LIPOLIS))
(SETQ POLIN (- NUMELEM 1))
(COND ((= (CDR (ASSOC 0 (ENTGET (SSNAME LIPOLIS POLIN)))) "LWPOLYLINE")
(WHILE (> POLIN -1)
(COMMAND "EXPLODE" (SSNAME LIPOLIS POLIN))
(SETQ POLIN (- POLIN 1))
)
(SETQ NUMELEM (SSLENGTH (SETQ LIPOLIS (SSGET "X" (LIST (CONS 0 "LINE"))))))
)
((= (CDR (ASSOC 0 (ENTGET (SSNAME LIPOLIS POLIN)))) "LINE")
(SETQ NUMELEM (SSLENGTH (SETQ LIPOLIS (SSGET "X" (LIST (CONS 0 "LINE"))))))
)
)
ahh el error sucede cuando cargo el código por medio de un botón creado en un cuadro de dialogo, pero si lo cargo directo al autocad no sucede ese error. estaría muy agradecido de recibir ayuda con esto.
Valora esta pregunta


0