Anuncios

The Autodesk Community Forums has a new look. Read more about what's changed on the Community Announcements board.

ВeekeeCZ
en respuesta a: kina_86

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))))