[编程申请]：图块内所有对象更改为指定的图层

panliang9

图块内所有对象更改为指定的图层

我的日常工作要处理大量的图纸，这些图纸都有一个特点，都是以图块为基本元素来做图，一张中下难度的图纸就有八百
多个图块。
有以下特点：
1、有大量的图块，一般装配图有几百个定义的图块，大一点的复杂的装配图有数千个定义的图块。
2、图块的镶套很复杂，基本上都是按设备及生产线从零件到部装，到总装这样的。
3、这样的图纸有一些是用三维软件生成的，但更多的却还是用二维软件画的，并不是AUTOCAD，很有可能是用一
个叫PGP的软件画的，然后再转化为DWG格式，来给我们处理。
4、一个图块不会使用两次，所有的图块的定义点都是原点"0,0"。也就是说同一个螺钉安装在不同的位置都是
不同的图块，
5、这样的图纸自然很难看，你可以使用块的REFEDIT，在位编辑来看图纸，再结合零件图，部装图等来，一点点的消化
图纸，但面对总装图中成千成万纠缠在一起的线条还是觉得心烦意乱。


我现在根据这些图纸的特点，利用部装块的名字来建立新图层，然后将块内所有对象的图层更改到该图层上去，这样，便能通过图层的开关命令将图面上大大简化，处理相关的对象，便打开相关的图层配置，无关的部装便隐藏起来。

但这样做工作量很大，如果是几十个不镶套的图块那还好办一点，但现在是几百个，近千个小块镶套在二三百个图块中，仅仅是想一想便失去继续往下做的勇气。

炸开是不可能的，这样的图纸如果炸开，以后基本上就不可能再做第二次修改了，你根本不可能再分清那一根线是那一个零件的，更别说修改了。


在这种情况下我非常需要一个命令，可以将块内的所有对象一个操作便更改到指定的层上去，不管它里面镶了多少层，而且还不影响它原来的位置和结构。这样，操作便大大简化，毕竟只是一个动作，我便可以
很方便的将图面上的所有对象在一个很短的时间内分配到不同的层上去，结合AUTOCAD的图层状态管理器，便可以很方便的在各种不同的零件显示状态下工作。
工作会方便轻松很多。

我迫切需要这样一段程序，我不懂LISP，不知道这样的一段程序有多复麻烦，有没有现成的，类似的，如果没有，我很愿意花钱请各位大侠帮我写一份，只要钱在我能承受的范围内。

xyp1964

2. [FONT=courier new];;; 图块内所有对象更改为指定的图层
   
3. (defun c:test ()
   
4.   (CMDLA0)
   
5.   (if (null STR)
   
6.     (setq STR "TEST")
   
7.   )
   
8.   (if (null ukw)
   
9.     (setq ukw "1")
   
10.   )
    
11.   (SETQ        STR (USTR 1 "层名" STR NIL)
    
12.         ukw (UKWORD 7 "1 2" "实体颜色: 1-随层/2-不变" ukw)
    
13.         ss  (ssget '((0 . "INSERT")))
    
14.         i   -1
    
15.   )
    
16.   (xyp-MkLa STR)
    
17.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
18.     (xyp-block-Change "layer" (xyp-e2o s1) STR)
    
19.     (if        (= ukw "1")
    
20.       (xyp-block-Change "color" (xyp-e2o s1) acbylayer)
    
21.     )
    
22.   )
    
23.   (CMDLA1)
    
24. )[/FONT]

[FONT=courier new];;; 图块内所有对象更改为指定的图层<br /> (defun c:test ()<br />   (CMDLA0)<br />   (if (null STR)<br />     (setq STR "TEST")<br />   )<br />   (if (null ukw)<br />     (setq ukw "1")<br />   )<br />   (SETQ        STR (USTR 1 "层名" STR NIL)<br />         ukw (UKWORD 7 "1 2" "实体颜色: 1-随层/2-不变" ukw)<br />         ss  (ssget '((0 . "INSERT")))<br />         i   -1<br />   )<br />   (xyp-MkLa STR)<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (xyp-block-Change "layer" (xyp-e2o s1) STR)<br />     (if        (= ukw "1")<br />       (xyp-block-Change "color" (xyp-e2o s1) acbylayer)<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

panliang9

谢谢 xyp1964  斑主，昨天来网吧上网发的贴子，想不到斑主大人今天在百忙之中就给我答复了，还没有来得及试。想来一定能成。

panliang9

斑主你好，昨天将你给的这段代码存为LISP文件，并将晓东网站内找到的你开发的通用函数文件也加载，运行后，选择块，CAD命令行让输入层的名字，输入名字后，要求输入1或者2这两个数字，确认对象颜色随块还是随层，完整运行后，发现层管理器内新建了一个图层，但块本身和块里对象并没有换到相应的层中去。

是什么问题呢？是不是你的通用函数文件我没有加载正确呢？还是其它什么原因。

斑主能继续教教我怎么弄吗？

xyp1964

到网络U盘下载通用函数xyplib.vlx
http://xyp1964.ys168.com/

zxdvip

这个程序非常有用，最近我正在收集图块操作方面的程序。谢谢