lisp polilínea con hatch automático
Publicado por Carlos (3 intervenciones) el 05/05/2017 19:06:52
Buen día!
Alguien me puede ayudar con la programación de un lisp en el que busco hacer una polilínea y al cerrarla automáticamente se rellene con un hatch sólido?
Tengo uno en el que el comando busca todas las polilíneas cerradas y las rellena con un sólido. Pero deseo que lo haga como lo he planteado al comienzo.
O qué debo variar a este para que quede como quiero?
Esta es la rutina:
Alguien me puede ayudar con la programación de un lisp en el que busco hacer una polilínea y al cerrarla automáticamente se rellene con un hatch sólido?
Tengo uno en el que el comando busca todas las polilíneas cerradas y las rellena con un sólido. Pero deseo que lo haga como lo he planteado al comienzo.
O qué debo variar a este para que quede como quiero?
Esta es la rutina:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
(defun seleccion-polilineas (/ lwpol n lst-lwpol)
(setq lwpol (ssget "_x" (list '(0 . "*POLY*") '(70 . 1))))
(if lwpol(progn(setq n 0)
(repeat (sslength lwpol)
(setq lst-lwpol (cons (ssname lwpol n) lst-lwpol))
(setq n (1+ n))
) ;_repeat(foreach pol lst-lwpol
(vl-cmdf "_.-bhatch" "_p" "_solid" "_s" pol "" "")
) ;_foreach) ;_progn(prompt "\nNinguna polilinea encontrada.")
) ;_if) ;_defun(defun c:s-pol ()
(setvar "cmdecho" 0)
(vl-cmdf "_.undo" "_begin")
(seleccion-polilineas)
(vl-cmdf "_.undo" "_end")
(setvar "cmdecho" 1)
(prin1)
) ;_defun(prompt "\n*** nuevo comando S-POL definido by SpeedCAD ***")
(prin1)
Valora esta pregunta
0
