offset到当前层

meflying

(defun c:test( / clayer ent)
(setq clayer (getvar "clayer"))
(setq ent (entlast))
(command "_.offset")
(while (/= (getvar "cmdactive") 0)
(command pause)
(setq ent2 (entlast))
(if (not (equal ent ent2))
(progn
(setq ent2s (entget ent2))
(setq ent2s (subst (cons 8 clayer) (assoc 8 ent2s) ent2s))
(entmod ent2s)
(setq ent ent2)
)
)
)
(princ)
)

无痕

发现有些实体不是随层，偏移后层是改了。但是颜色没改，希望实体的颜色能随当前颜色设置。meflying再加几行吧：），把颜色也改改:)

meflying

楼主好象没这么要求吧,,,

无痕

我是从实用角度来看的，既然偏移到当前层，颜色属性也应该与当前层相同更合理，要不如果原来的实体颜色不随层，偏移后看不出效果。当然，也可在之后改实体属性。但已经不直观了。