画出当前文件所有图层

Jan · 发表于 2022-6-22 23:59:33

牛啊谢谢分享

kill99 · 发表于 2022-6-24 11:26:31

好程序，下载表示支持

刘炎华 · 发表于 2022-7-27 12:47:28

能帮忙修改下吗？（标记作用）：
选择对象，原位置复制到当前文件的所有图层.

xj6019 · 发表于 2022-7-27 13:41:09

刘炎华发表于 2022-7-27 12:47
能帮忙修改下吗？（标记作用）：
选择对象，原位置复制到当前文件的所有图层.

没明白什么意思

刘炎华 · 发表于 2022-7-27 13:53:12

xj6019 发表于 2022-7-27 13:41
没明白什么意思

就是选择对象后，将它在原位置复制到文件的每个图层

xj6019 · 发表于 2022-7-27 14:11:15

刘炎华发表于 2022-7-27 13:53
就是选择对象后，将它在原位置复制到文件的每个图层

(defun c:NM (/ *acad* *doc* *lays* i laylst s1 ss)
(setq
*ACAD*  (vlax-get-acad-object)
*DOC* (vla-get-ActiveDocument *ACAD*)
*LAYS*  (vla-get-Layers *DOC*)
laylst nil
)
(vlax-for obj  *LAYS*  (setq laylst (cons (vlax-get-property obj 'Name) laylst)))
  (if (setq ss (ssget))
   (mapcar '(lambda(a)
   (setvar "clayer" a)
   (command "COPY" ss "" '(0 0) '(0 0))
   (setq ssa (ssget "P"))
   (setq i -1)
   (while (and(setq s1 (ssname ssa (setq i (1+ i)))))
   (vla-put-Layer  (Vlax-Ename->Vla-Object s1) a)
   )
   )
laylst
)
)
(princ)
)

刘炎华 · 发表于 2022-7-27 14:27:31

xj6019 发表于 2022-7-27 14:11
(defun c:NM (/ *acad* *doc* *lays* i laylst s1 ss)
(setq
*ACAD* (vlax-get-acad-object)

非常感谢哦！

afrgrgfdgdgt111 · 发表于 2022-9-26 15:13:11

非常感谢楼主分享

llsheng_73 · 发表于 2022-9-26 15:32:48

第一次听说"画出图层"的。。。

llsheng_73 · 发表于 2022-9-26 15:34:44

xj6019 发表于 2022-7-27 14:11
(defun c:NM (/ *acad* *doc* *lays* i laylst s1 ss)
(setq
*ACAD* (vlax-get-acad-object)

选一堆东西，复制到每一个图层的作用是什么？

账号		自动登录	找回密码
密码			注册

画出当前文件所有图层

评分