我又来求助了，这次求一键设置所有外部参照图层为0层的lso

了liao

昨天的求助帖顺利解决，论坛里的大师很多，感谢各位的帮助这次求一个能一键设置所有外部参照图层为0层的lsp
当然，“0层”希望可以自定义，可能下次画图就不是0层了呢
望各位大师出手相助。感激不尽！

Lispboy

你这个根本就不需要程序，有时候多掌握些CAD绘图的技巧更能帮助你。

回到你这个问题

命令行输入 QSELECT 回车

对象类型，选外部参照



运算符全部选择



然后点确定， 图中所有的外部参照就帮你选择好了。

这时候，你想做什么编辑命令都行，
你要想改这些对象的特性，
输入  chprop回车
想改层，就输入la, 改颜色就输入C


或者不用CHPROP命令，直接在特性框里面，点图层修改



你把QSELECT命令用好，可以解决你很多问题，画图的快慢是由你选择要操作的对象的快慢决定的。

这个功能你想要程序了，如果你下次就想修改所有的尺寸标注到某个层，还要申请程序吗? 如果不改层，改颜色呢？

先把ACAD的交互如何快速选择对象练熟悉。

st788796

2. 
   
3. (defun c:xfl (/ ss sl obj)
   
4.   (if (setq ss (ssget "x" '((0 . "insert"))))
   
5.     (progn
   
6.       (setq sl (sslength ss))
   
7.       (while (setq e (ssname ss (setq sl (1- sl))))
   
8.         (if (vlax-property-available-p
   
9.               (setq obj (vlax-ename->vla-object e))
   
10.               'Path
    
11.             )
    
12.           (vl-catch-all-apply 'vla-put-layer (list obj   "0"))
    
13.         )
    
14.       )
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )

<br /> (defun c:xfl (/ ss sl obj)<br />   (if (setq ss (ssget "x" '((0 . "insert"))))<br />     (progn<br />       (setq sl (sslength ss))<br />       (while (setq e (ssname ss (setq sl (1- sl))))<br />         (if (vlax-property-available-p<br />               (setq obj (vlax-ename->vla-object e))<br />               'Path<br />             )<br />           (vl-catch-all-apply 'vla-put-layer (list obj   "0"))<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

了liao

st788796 发表于 2017-7-21 18:20

没毛病，感谢大师

了liao

Lispboy 发表于 2017-7-21 18:12

是可以这样做，但是如果有一个快捷键1秒搞定，你还会去花10秒20秒去做这个事情？

newer

了liao 发表于 2017-7-21 19:48

如果你是这么细，那写100个插件也不够用，各种实体类型，各种属性，层，颜色，线型，线型比例，那要多少种组合。
如果N多插件，你菜单，快捷键放过来嘛。

用QSELECT，或者CHPROP命令提示选择实体的时候用透明的'filter， 你熟练了，慢不了几秒。

pengfei2010

一看就是新手，不会体会到这些精华的