【高手进】关于图层管理
有没有某个插件能实现将设置图层批量转换到另外一批图层上,然后删除原有的图层,求高手相助论坛已经有源码! 【KAIXIN】 发表于 2012-5-17 17:15 static/image/common/back.gif
论坛已经有源码!
请教开心版主,在哪里呢 illcyt 发表于 2012-5-17 17:27 static/image/common/back.gif
请教开心版主,在哪里呢
在论坛搜搜合并图层.... 【KAIXIN】 发表于 2012-5-17 18:47 static/image/common/back.gif
在论坛搜搜合并图层....
谢谢开心,天天开心,啊哈哈 没有CAD调试,我试写一下
(defun c:bb()
(vl-load-com)
(setq layer1 "top");要被删掉的图层
(setq layer2 "bot");目标层
(setq moveObjSS (ssget "X" '((8 . "top"))))
(setq index 0)
(while (< index (sslength moveObjSS))
(vla-put-layer (vlax-ename->vla-object (ssname moveObjSS index)) "bot")
(setq index (1+ index))
)
(vla-delete (vlax-ename->vla-object (tblobjname "layer" "top")))
(princ)
) 用CAD的自带的图层转换器就可以做吧 有需要请加QQ269483126 对呀,用设计中心,CAD本身能解决,不用写程序
页:
[1]