08-21-2021
09:25 AM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
08-21-2021
09:25 AM
Version with layers.
((lambda (/ o d l) (vl-load-com) (setq l (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))) (while (setq o (car (entsel))) (setq o (vlax-ename->vla-object o)) (foreach d '((-20 . "Layer1") (-10 . "Layer2") (10 . "Layer2") (20 . "Layer1")) (vla-add l (cdr d)) (vla-put-layer (car (vlax-invoke o 'Offset (car d))) (cdr d))) (princ))))