【求助】批量修改定义的属性块！（自行解决了！）

simon8001

我查了些资料，手上也有一些这方面的程序，可是对与批量修改定义的属性块这里还不是很清楚，以前insert的都是不用修改的死的块，最近弄的程序里需要编辑这种定义的属性块了，遇到了一些问题，希望得到你们的帮助！！

我要插入的是一个带有12个属性定义的块（看附件），其属性定义的格式为WZ1（1是序号），需要把他们改成("2" "1" "4" "5" "6" "7" "8" "9" "11" "12" "3" ""))
下面是我编的一部分程序，希望你们帮我修改和补充一下！！

2. 
   
3. (defun c:qr()
   
4.   (setvar "cmdecho" 0)
   
5.   (setvar "osmode" 0)
   
6.   (initpath-2qrpzh)
   
7.   (setq sa-pt '(0 0))
   
8.   (setq z-2 (list"2" "1" "4" "5" "6" "7" "8" "9" "11" "12" "3" ""))
   
9.   (setq path-blk (strcat path-current-crk "QJ-1"))
   
10.   (command "insert" path-blk sa-pt 1 1 0)
    
11.   (setq att-n 0)
    
12.   (setq crjs-n 1)
    
13.   (command (strcat "QZ" (itoa (1+ crjs-n))))
    
14.   (repeat 12;12个ATTDEF属性值
    
15.    (setq att-txt (nth att-n z-2))
    
16.    (command att-txt)
    
17.    (setq att-n (1+ att-n))
    
18.    )
    
19.   (setq en (entlast))
    
20. (repeat 12
    
21.       (setq data (entget en))
    
22.       (setq ysatt (cdr (assoc 2 data)));群码值可能不对
    
23.       (setq fzatt (cdr (assoc 1 data))) ;我我还没有去查这个群码
    
24. ::到这里应该在写修改的东西 我试过一些总是出错
    
25.    )
    
26. )
    
27.   (defun initpath-2qrpzh()
    
28.   (setq path-current (getvar "DWGPREFIX"))
    
29.   (setq path-dwg (strcat path-current "ST\" cz "\"))
    
30.   (setq path-data-out (strcat path-current "ST\" cz "\" "TM\"))
    
31.   (setq path-data-out2 (strcat path-current "ST\" cz "\"))
    
32.   (setq path-data-in (strcat path-current "ST\" cz "\" "US\"))
    
33.   (setq path-data-in2 (strcat path-current "ST\" cz "\"))
    
34. )
    
35.   

<br /> (defun c:qr()<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (initpath-2qrpzh)<br />   (setq sa-pt '(0 0))<br />   (setq z-2 (list"2" "1" "4" "5" "6" "7" "8" "9" "11" "12" "3" ""))<br />   (setq path-blk (strcat path-current-crk "QJ-1"))<br />   (command "insert" path-blk sa-pt 1 1 0)<br />   (setq att-n 0)<br />   (setq crjs-n 1)<br />   (command (strcat "QZ" (itoa (1+ crjs-n))))<br />   (repeat 12;12个ATTDEF属性值<br />    (setq att-txt (nth att-n z-2))<br />    (command att-txt)<br />    (setq att-n (1+ att-n))<br />    )<br />   (setq en (entlast))<br /> (repeat 12<br />       (setq data (entget en))<br />       (setq ysatt (cdr (assoc 2 data)));群码值可能不对<br />       (setq fzatt (cdr (assoc 1 data))) ;我我还没有去查这个群码<br /> ::到这里应该在写修改的东西 我试过一些总是出错<br />    )<br /> )<br />   (defun initpath-2qrpzh()<br />   (setq path-current (getvar "DWGPREFIX"))<br />   (setq path-dwg (strcat path-current "ST\" cz "\"))<br />   (setq path-data-out (strcat path-current "ST\" cz "\" "TM\"))<br />   (setq path-data-out2 (strcat path-current "ST\" cz "\"))<br />   (setq path-data-in (strcat path-current "ST\" cz "\" "US\"))<br />   (setq path-data-in2 (strcat path-current "ST\" cz "\"))<br /> )<br />   

simon8001

我琢磨出来了！憋了近1.5小时，终于弄明白怎么处理这种带有多属性定义的块了！！

看来人的大脑就要不断的飞速旋转呀！！

skynoon

学习了        

cheng5276

恭喜楼主，接下去我也要学习这个问题了

T_T

利害的楼主

Nico

谢谢  你的实例学习   

ymcui

谢谢  你的实例学习   

qyming

实例学习中，。。。。。

梦里水香

下载下来，试了一下，命令QR没反应。。 。

77077

http://bbs.mjtd.com/thread-109361-1-1.html
不知道能不能帮到你~