lisp如何批量选中特定图层_晓东CAD家园-论坛-A/VLISP-求教lisp图层选择的问题-我的目标是，通过点选不同图层的对象，将所选所有图层所有对象全部复制到剪贴板，供粘贴到另一图使用。(pri...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x

我的目标是，通过点选不同图层的对象，将所选所有图层所有对象全部复制到剪贴板，供粘贴到另一图使用。

(princ "加载程序成功，输入tc命令可应用此工具\n")

(defun c:tc (/ en tc %%copy ex p1)

(while (/= ex "E")

(progn

(prompt "\n选择要复制的图层: ")

(setq en (assoc 8 (entget (car (entsel)))))

(setq %%copy (ssget "x" (list en)))

(princ)

(initget "e")

(setq

ex (strcase

(getstring "\n回车或空选继续 /退出程序请输入:")

) ;_ 结束strcase

) ;_ 结束setq

) ;_ 结束progn

) ;_ 结束while

(setq p1 (getpoint "\n选择基点:"))

(command "copybase" p1 "")

) ;_ 结束defun

我上面的程序只能选择一个图层，高手帮看看怎么回事，谢谢

广告位，后台可以设置，支持js

您好，您暂时不能浏览帖子的全部内容，请 登录

| 没有账号？ 请 注册