12-04-2023
08:59 AM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
12-04-2023
08:59 AM
Here's a simple lisp program that will create a single polyline all to one side of a selfintersecting polyline. You must select the polyline at a point of the loop. For example, the green dot not the red dot. It's best if the point specifed for the side is near the selection point.
(defun c:offset2 (/)
; creates an offset all to one side of a selfintersecting polyline
(setq ent (entsel
"\nSelect polyline at point on self intersecting loop."
)
p2 (getpoint "\nSpecify point to the side you want the offset."
)
d (getreal "\nSpecify offset distance: ")
en1 (car ent)
p1 (cadr ent)
)
(command "_break" en1 p1 "@")
(setq en2 (entlast))
(command "_offset" d en1 p2 "e")
(setq en3 (entlast))
(command "_offset" d en2 p2 "e")
(setq en4 (entlast))
(command "_join" en3 en4 "")
(princ)
)
lee.minardi