08-19-2021
01:11 PM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
08-19-2021
01:11 PM
@kina_86 wrote:
.... i want to run command offset, select one single time my polyline and after that to do automaticaly offsets (10;20;-10;-20) without any selection of side, or distance. .....
A modification and simplification of my earlier linked routine:
;; OffsetBothSides1020.lsp [command name: OBS1020]
;; To Offset the same object to Both Sides at both 10 & 20 units.
;; Kent Cooper, 19 August 2021
(defun C:OBS1020 (/ obj); = Offset to Both Sides 10 & 20 units
(while (setq ent (car (entsel "\nSelect object to Offset to Both Sides [Esc to exit]: ")))
(setq obj (vlax-ename->vla-object ent))
(vla-offset obj 10)
(vla-offset obj 20)
(vla-offset obj -10)
(vla-offset obj -20)
); end while
(princ)
); defun
(prompt "Type OBS1020 to Offset to Both Sides by 10 & 20 units.")
It could be expanded to put the results on different Layers, to verify that you picked the right kind of thing, to ask again if you miss, to wrap the whole in Undo begin/end, and all the other usual enhancements.
Kent Cooper, AIA