批量选择属性块，所选块中标记为“楼层”对应的值统一改为输入的值

迷失的传说

各位请求一个LISP：
附图中鼠标框选几栋楼（属性块），lisp命令自动筛选所选块中某个相同标记（例如标记为“楼层”）的内容，把该标记对应的值统一改为输入的内容（例如楼层统一改为26）？
附件带有CAD文件，请各位朋友指点，谢谢！

marting

截图，前后对比和上传DWG

迷失的传说

marting 发表于 2018-3-18 20:24

已上传截图和DWG文件，请不吝赐教，谢谢！

Lispboy

所有块都修改，是不是通用性不好？ 还有什么需要？

下面程序拾取哪个属性修改哪个标记。

1. (defun c:tt ()
   
2.   (if (and (setq e (nentsel "\n拾取修改的属性<退出>:"))
   
3.            (setq e (car e))
   
4.            (= (car (xdrx_object_classname e)) "ATTRIB")
   
5.            (setq val (getstring "\n修改为<退出>:"))
   
6.       )
   
7.     (progn (setq blk         (xdrx_object_owner e)
   
8.                  atts         (xdrx_getpropertyvalue blk "AttributeEntities")
   
9.                  no         (vl-position e atts)
   
10.                  blkname (car (xdrx_getpropertyvalue blk "BlockTableRecord"))
    
11.            )
    
12.            (setq ss (ssget "x" (list '(0 . "INSERT") (cons 2 blkname))))
    
13.            (mapcar '(lambda (x)
    
14.                       (setq att
    
15.                              (nth no (xdrx_getpropertyvalue x "AttributeEntities"))
    
16.                       )
    
17.                       (xdrx_setpropertyvalue att "textstring" val)
    
18.                     )
    
19.                    (xdrx_pickset->ents ss)
    
20.            )
    
21.            (xdrx_prompt "\n修改了 " (sslength ss) " 个属性值到:" val)
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    
26. 
    
27. 
    

(defun c:tt ()<br />   (if (and (setq e (nentsel "\n拾取修改的属性<退出>:"))<br />            (setq e (car e))<br />            (= (car (xdrx_object_classname e)) "ATTRIB")<br />            (setq val (getstring "\n修改为<退出>:"))<br />       )<br />     (progn (setq blk         (xdrx_object_owner e)<br />                  atts         (xdrx_getpropertyvalue blk "AttributeEntities")<br />                  no         (vl-position e atts)<br />                  blkname (car (xdrx_getpropertyvalue blk "BlockTableRecord"))<br />            )<br />            (setq ss (ssget "x" (list '(0 . "INSERT") (cons 2 blkname))))<br />            (mapcar '(lambda (x)<br />                       (setq att<br />                              (nth no (xdrx_getpropertyvalue x "AttributeEntities"))<br />                       )<br />                       (xdrx_setpropertyvalue att "textstring" val)<br />                     )<br />                    (xdrx_pickset->ents ss)<br />            )<br />            (xdrx_prompt "\n修改了 " (sslength ss) " 个属性值到:" val)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> <br />

迷失的传说

Lispboy 发表于 2018-3-18 22:41

规划建筑强排设计时需要频繁反复的批量修改楼层高度的属性值，选择修改时也经常变换选择若干个楼栋，而不是改所有楼栋，所以要求可以框选需要的若干个属性块来修改值，希望能够框选块而不是一个一个选择属性文字，这样工作效率会提高，命令可以在所选择的块中自动筛选标记为“楼层”的属性，然后再改具体楼层数。还有是否可以只用lisp自带函数写。
感谢您的热心帮助！

Lisphk

迷失的传说 发表于 2018-3-18 23:46

你可以只安装XDRX API，不用安装晓东工具箱。
XDRX API 是函数库，你不能指望帮你的人都把底层函数都重给你写，那样帮你的人就更少了，谁的时间都宝贵。
使用XDRX API就是能快速的编程。

aeo

还是给你写一个吧

2. 
   
3. (defun c:t1( / att atts j len newval obj ss str)
   
4.         (setq str "楼层")
   
5.         (if (and
   
6.                   (setq ss(ssget '((0 . "insert"))))
   
7.               (setq newVal(getstring (strcat "\n请输入新的 " str " 值:" )))
   
8.               (/= newval "")
   
9.         )
   
10.         (progn
    
11.                 (command "undo" "group")
    
12.                         (setq j 0 len(sslength ss))
    
13.                         (while (< j len)
    
14.                                 (setq obj(vlax-ename->vla-object (ssname ss j)))
    
15.                                 (if (setq atts (vlax-invoke Obj "GetAttributes"))
    
16.                                   (progn
    
17.                                    (mapcar '(lambda (Att)
    
18.                                        (if (and (= str (vla-get-TagString Att)) (vlax-write-enabled-p att))
    
19.                                             (vla-put-TextString Att newVal)
    
20.                                        )
    
21.                                      ) atts
    
22.                                    )
    
23.                                    (vla-update Obj)
    
24.                                  ))
    
25.                                  (setq j(1+ j))
    
26.                                  (vlax-release-object obj)
    
27.                         )               
    
28.                         (command "undo" "end")
    
29.     ) )
    
30.     (princ)
    
31. )
    
32. 
    

<br /> (defun c:t1( / att atts j len newval obj ss str)<br />         (setq str "楼层")<br />         (if (and<br />                   (setq ss(ssget '((0 . "insert"))))<br />               (setq newVal(getstring (strcat "\n请输入新的 " str " 值:" )))<br />               (/= newval "")<br />         )<br />         (progn<br />                 (command "undo" "group")<br />                         (setq j 0 len(sslength ss))<br />                         (while (< j len)<br />                                 (setq obj(vlax-ename->vla-object (ssname ss j)))<br />                                 (if (setq atts (vlax-invoke Obj "GetAttributes"))<br />                                   (progn<br />                                    (mapcar '(lambda (Att)<br />                                        (if (and (= str (vla-get-TagString Att)) (vlax-write-enabled-p att))<br />                                             (vla-put-TextString Att newVal)<br />                                        )<br />                                      ) atts<br />                                    )<br />                                    (vla-update Obj)<br />                                  ))<br />                                  (setq j(1+ j))<br />                                  (vlax-release-object obj)<br />                         )                <br />                         (command "undo" "end")<br />     ) )<br />     (princ)<br /> )<br /> <br />

改 楼层,命令名为 t1


你可以把程序 里面的 "楼层"两个字 改成 "户型"   ， t1改成 t2 重新存成 lsp, 就是改 户型 命令
以此类推

wx_Nyc05JC4

看了楼主的程序，写的很好，但这个还是先用选择集过滤选中块，后边的执行的功能类似find命令的功能。这样如果属性块特别多的话，运算量还是很大。
有没有办法用过滤器直接选择例如"tagstring为楼层，textstring为17F"的属性块，然后这个选择集的长度就不大了。然后再用循环修改textstring的内容。

qht5566

。。。。。
用“选择易”或天正的“对象选择”选好对象后，打开特性面板（CTRL+1），修改后直接回车