分享，属性块图框编辑,再次更新，加一键生成BOM

ddbb2008

感谢分享，给源码的就更不用说了，学习了

憨厚的木头

学习学习，

混沌初开

楼主很强大,是我们的榜样!

混沌初开

楼主是以前做过什么专业!有基础!

77077

感觉可以优化一下~
比如说下面这串，其他还有。

2.   (setq attobj1 (nth 0 att_obj_list))
   
3.   (setq tag1 (vla-get-tagstring attobj1))
   
4.   (setq text1 (vla-get-textstring attobj1))
   
5.   
   
6.   (setq attobj2 (nth 1 att_obj_list))
   
7.   (setq tag2 (vla-get-tagstring attobj2))
   
8.   (setq text2 (vla-get-textstring attobj2))
   
9.   
   
10.   (setq attobj3 (nth 2 att_obj_list))
    
11.   (setq tag3 (vla-get-tagstring attobj3))
    
12.   (setq text3 (vla-get-textstring attobj3))
    
13.   
    
14.   (setq attobj4 (nth 3 att_obj_list))
    
15.   (setq tag4 (vla-get-tagstring attobj4))
    
16.   (setq text4 (vla-get-textstring attobj4))
    
17.   
    
18.   (setq attobj5 (nth 4 att_obj_list))
    
19.   (setq tag5 (vla-get-tagstring attobj5))
    
20.   (setq text5 (vla-get-textstring attobj5))
    
21.   
    
22.   (setq attobj6 (nth 5 att_obj_list))
    
23.   (setq tag6 (vla-get-tagstring attobj6))
    
24.   (setq text6 (vla-get-textstring attobj6))
    
25.   
    
26.   (setq attobj7 (nth 6 att_obj_list))
    
27.   (setq tag7 (vla-get-tagstring attobj7))
    
28.   (setq text7 (vla-get-textstring attobj7))
    
29.   
    
30.   (setq attobj8 (nth 7 att_obj_list))
    
31.   (setq tag8 (vla-get-tagstring attobj8))
    
32.   (setq text8 (vla-get-textstring attobj8))
    
33.   
    
34.   (setq attobj9 (nth 8 att_obj_list))
    
35.   (setq tag9 (vla-get-tagstring attobj9))
    
36.   (setq text9 (vla-get-textstring attobj9))
    
37.   
    
38.   (setq attobj10 (nth 9 att_obj_list))
    
39.   (setq tag10 (vla-get-tagstring attobj10))
    
40.   (setq text10 (vla-get-textstring attobj10))
    
41.   
    
42.   (setq attobj11 (nth 10 att_obj_list))
    
43.   (setq tag11 (vla-get-tagstring attobj11))
    
44.   (setq text11 (vla-get-textstring attobj11))
    
45.   
    
46.   (setq attobj12 (nth 11 att_obj_list))
    
47.   (setq tag12 (vla-get-tagstring attobj12))
    
48.   (setq text12 (vla-get-textstring attobj12))
    
49.   
    
50.   (setq attobj13 (nth 12 att_obj_list))
    
51.   (setq tag13 (vla-get-tagstring attobj13))
    
52.   (setq text13 (vla-get-textstring attobj13))
    
53.   
    
54.   (setq attobj14 (nth 13 att_obj_list))
    
55.   (setq tag14 (vla-get-tagstring attobj14))
    
56.   (setq text14 (vla-get-textstring attobj14))
    
57.   
    
58.   (setq attobj15 (nth 14 att_obj_list))
    
59.   (setq tag15 (vla-get-tagstring attobj15))
    
60.   (setq text15 (vla-get-textstring attobj15))
    
61.   
    
62.   (setq attobj16 (nth 15 att_obj_list))
    
63.   (setq tag16 (vla-get-tagstring attobj16))
    
64.   (setq text16 (vla-get-textstring attobj16))

  (setq attobj1 (nth 0 att_obj_list))<br />   (setq tag1 (vla-get-tagstring attobj1))<br />   (setq text1 (vla-get-textstring attobj1))<br />   <br />   (setq attobj2 (nth 1 att_obj_list))<br />   (setq tag2 (vla-get-tagstring attobj2))<br />   (setq text2 (vla-get-textstring attobj2))<br />   <br />   (setq attobj3 (nth 2 att_obj_list))<br />   (setq tag3 (vla-get-tagstring attobj3))<br />   (setq text3 (vla-get-textstring attobj3))<br />   <br />   (setq attobj4 (nth 3 att_obj_list))<br />   (setq tag4 (vla-get-tagstring attobj4))<br />   (setq text4 (vla-get-textstring attobj4))<br />   <br />   (setq attobj5 (nth 4 att_obj_list))<br />   (setq tag5 (vla-get-tagstring attobj5))<br />   (setq text5 (vla-get-textstring attobj5))<br />   <br />   (setq attobj6 (nth 5 att_obj_list))<br />   (setq tag6 (vla-get-tagstring attobj6))<br />   (setq text6 (vla-get-textstring attobj6))<br />   <br />   (setq attobj7 (nth 6 att_obj_list))<br />   (setq tag7 (vla-get-tagstring attobj7))<br />   (setq text7 (vla-get-textstring attobj7))<br />   <br />   (setq attobj8 (nth 7 att_obj_list))<br />   (setq tag8 (vla-get-tagstring attobj8))<br />   (setq text8 (vla-get-textstring attobj8))<br />   <br />   (setq attobj9 (nth 8 att_obj_list))<br />   (setq tag9 (vla-get-tagstring attobj9))<br />   (setq text9 (vla-get-textstring attobj9))<br />   <br />   (setq attobj10 (nth 9 att_obj_list))<br />   (setq tag10 (vla-get-tagstring attobj10))<br />   (setq text10 (vla-get-textstring attobj10))<br />   <br />   (setq attobj11 (nth 10 att_obj_list))<br />   (setq tag11 (vla-get-tagstring attobj11))<br />   (setq text11 (vla-get-textstring attobj11))<br />   <br />   (setq attobj12 (nth 11 att_obj_list))<br />   (setq tag12 (vla-get-tagstring attobj12))<br />   (setq text12 (vla-get-textstring attobj12))<br />   <br />   (setq attobj13 (nth 12 att_obj_list))<br />   (setq tag13 (vla-get-tagstring attobj13))<br />   (setq text13 (vla-get-textstring attobj13))<br />   <br />   (setq attobj14 (nth 13 att_obj_list))<br />   (setq tag14 (vla-get-tagstring attobj14))<br />   (setq text14 (vla-get-textstring attobj14))<br />   <br />   (setq attobj15 (nth 14 att_obj_list))<br />   (setq tag15 (vla-get-tagstring attobj15))<br />   (setq text15 (vla-get-textstring attobj15))<br />   <br />   (setq attobj16 (nth 15 att_obj_list))<br />   (setq tag16 (vla-get-tagstring attobj16))<br />   (setq text16 (vla-get-textstring attobj16))

恕放之生命

谢谢分享。

3dbuluo

谢谢楼主，正需要啊。

hnfsf

思路挺好，，

米兰达薇薇2899

命令: asd 选择块; 错误: 参数类型错误: FILE nil