偏移到图层

motee-z · 发表于 2022-7-6 00:33:55

你好
可以拾取对象以获取其层并将其设置为偏移层

Lee Mac · 发表于 2022-7-6 00:38:46

不客气！

假设我理解你的意图，下面是一个非常简单的程序：

(defun c:myoffset ( / ent lay old )
   (if (setq ent (car (entsel "\nPick object for offset layer: ")))
       (progn
           (setq lay (cdr (assoc 8 (entget ent)))
                 old (getvar 'clayer)
           )
           (vl-cmdf "_.-layer" "_T" lay "_S" lay "" "_.offset" "_L" "_C")
           (while (= 1 (logand 1 (getvar 'cmdactive))) (vl-cmdf "\"))
           (setvar 'clayer old)
       )
   )
   (princ)
)