[编程申请－完成]：offset时，将生成的对象改变到当前图层

chstart

求助大侠： offset时，如何将将生成的对象改变到当前图层？

eachy

最初由 chstart 发布
[B]求助大侠： offset时，如何将将生成的对象改变到当前图层？ [/B]

到工具箱论坛搜索论坛精华

chstart

多谢eachy  斑竹 !找到了:

(defun c:test( / clayer ent)
  (setvar "cmdecho" 1)
  (setq clayer (getvar "clayer"))
  (setq ent (entlast))
  (command "_.offset")
  (while (/= (getvar "cmdactive") 0)
    (command pause)
  )
  (while (setq ent (entnext ent))
    (command "_.change" ent "" "p" "la" clayer "")
  )
  (princ)
)

虽然没弄懂命令暂停和中断的原理，以后还是会尝试着去用，
(while (/= (getvar "cmdactive") 0)
    (command pause)
  )
这个东西在很多命令里会用得到。

flowerson

可是有个问题是命令退出后它会回到0层很不好。上楼上传的好象不行。

chstart

我在 r14 里使用正常，不会回到0层。
应该不会改变当前的图层啊？

gdlwl

还是R14简单好用呀。