[求助]：怎样用程序修改块属性

tjchkys

用什么函数可以调出块的属性，并且可以修改呢？

说直接一点儿，我想用程序把一个块的属性修改一下。

dezhang

这有个现成的
(setq s1 (car (entsel)))
(setq lst (vlax-safearray->list
                           (vlax-variant-value
                             (vla-GetAttributes (vlax-ename->vla-object s1))
                           )
                         ))

lst里包含这个块所有属性的图元名,再去寻找你要改属性的名就可以了.按一般的方法修改即可

zzyong00

我只知道用_attedit命令可以修改块属性,你试 (command  " _attedit" ......)

lijiao

用VL开头的函数比较方便

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060305(2166)
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. ;;;用目标文字替换需改变的文字（可以是TEXT和属性块中的某个属性值）
    
15. (defun c:test254 ()
    
16.   (cmdla0)
    
17.   (setq        STR (USTR 1 "\n字符串" STR NIL)
    
18.         ss  (ssget '((0 . "INSERT,TEXT")))
    
19.         i   -1
    
20.   )
    
21.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
22.     (setq etype (xyp-get-DXF 0 s1))
    
23.     (cond ((= etype "TEXT") (sub_upd s1 1 str))
    
24.           ((= etype "INSERT")
    
25.            (if (xyp-get-Attibutes s1)
    
26.              (progn
    
27.                (setq lst (vlax-safearray->list
    
28.                            (vlax-variant-value
    
29.                              (vla-GetAttributes (vlax-ename->vla-object s1))
    
30.                            )
    
31.                          )
    
32.                      INT (UINT 7 "" "\n属性值序列" INT)
    
33.                )
    
34.                (if (setq at (nth (- int 1) lst))
    
35.                  (vla-put-TextString at str)
    
36.                )
    
37.              )
    
38.            )
    
39.           )
    
40.     )
    
41.   )
    
42.   (cmdla1)
    
43. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060305(2166)<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;用目标文字替换需改变的文字（可以是TEXT和属性块中的某个属性值）<br /> (defun c:test254 ()<br />   (cmdla0)<br />   (setq        STR (USTR 1 "\n字符串" STR NIL)<br />         ss  (ssget '((0 . "INSERT,TEXT")))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq etype (xyp-get-DXF 0 s1))<br />     (cond ((= etype "TEXT") (sub_upd s1 1 str))<br />           ((= etype "INSERT")<br />            (if (xyp-get-Attibutes s1)<br />              (progn<br />                (setq lst (vlax-safearray->list<br />                            (vlax-variant-value<br />                              (vla-GetAttributes (vlax-ename->vla-object s1))<br />                            )<br />                          )<br />                      INT (UINT 7 "" "\n属性值序列" INT)<br />                )<br />                (if (setq at (nth (- int 1) lst))<br />                  (vla-put-TextString at str)<br />                )<br />              )<br />            )<br />           )<br />     )<br />   )<br />   (cmdla1)<br /> )[/FONT]

tjchkys

函数到是好用，不过不太适合我的工作情况
我想自己编写一个程序，总不能老是拿来主义呀！
能不能给我说一下：用什么语句可以读出一个块的属性，并且改之呢？

doubao

在autocad2006里，
双击带属性块的某个属性，自动弹出属性修改对话框。
用ddedit也行。

教父

vl函数我不懂，不过要提块的函数lisp里有个nentsel函数，用这个可以提取块的数据序列，用起来和entsel差不多，不妨试试

yyh1981

(entget (car (entsel)))提取图元资料