封闭区域多个属性块批量赋值

liu475693830

我是做建筑电气设计的，最近作图时，迷上了给图块打上属性标签，再利用属性导入导出制作各类设备（工程数量）表。很是好用。要导出块的属性，就得先给图块的属性标签赋值，由于经常要为不同区域（多为异型）图块赋予不同的值，每次都是手动一个区域一个区域的框选，这样的操作还是非常费时间的。故特来此寻求大神看看有没有办法能解决这个问题。





直接上传的DWG，下载下来显示无法打开，故重新上传压缩包文件。

bluelover

这种需求用块参照句柄，结合excel可很方便批量处理。我帮别人用这种方式做过很多类似的。

消失的天空

看蒙了

chixun99

如果用VBA可以搞一个，但是工程量不小，估计找人做要收费，只能说说编程思路：
1、选定要赋值属性的范围框线（可以是面域、封闭线段、弧、圆、多段线、样条曲线等线条），然后把范围边界复制用生成面域的方法，生成面域；
2、判断指定块名的块参照是否位于这个范围内：先取得块的GetBoundingBox边界坐标，添加一个矩形面域与1步骤的面域相差，如果面积变化的判断为该块位于范围线内；否则不属于该范围；
3、第2步骤假设判断为范围内，则把事先指定的属性文字，赋值给该块参照。
4、在本布局内不断循环所有的块参照，直到完成所有块的处理。

q2284555

我也想实现同样的功能不知道有方法实现了没？

vitalgg

q2284555 发表于 2024-1-20 11:42
我也想实现同样的功能不知道有方法实现了没？

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
2. 
   
3. (defun zonenumber-to-blk ()
   
4.   ;;选择防火分区线
   
5.   (setq lwpls(pickset:to-list (ssget '((0 . "lwpolyline")
   
6.                                         (8 . "*防火分区轮廓线")))))
   
7.   (foreach
   
8.    lwpl% lwpls
   
9.    ;; 选择防火分区号
   
10.    (if (and (setq txt-zonenumber
    
11.                   (car (pickset:to-list
    
12.                         (ssget
    
13.                          "wp"
    
14.                          (curve:get-points lwpl%)
    
15.                          '((0 . "text")(8 . "*防火分区编号"))))))
    
16.             (setq zonenumber (entity:getdxf txt-zonenumber 1)))
    
17.        (progn
    
18.          ;;选择区域内的块
    
19.          (mapcar '(lambda(x)
    
20.                    (block:set-attributes
    
21.                     x
    
22.                     (list
    
23.                      (cons "防火分区"
    
24.                            zonenumber))))
    
25.                  (pickset:to-list
    
26.                   (ssget
    
27.                    "wp"
    
28.                    (list:delsame (curve:get-points lwpl%) 0.01)
    
29.                    '((0 . "insert")(2 . "$Equip*")(8 .  "*消防")))))))))
    
30. (defun c:bh2blk () (zonenumber-to-blk))

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> <br /> (defun zonenumber-to-blk ()<br />   ;;选择防火分区线<br />   (setq lwpls(pickset:to-list (ssget '((0 . "lwpolyline")<br />                                         (8 . "*防火分区轮廓线")))))<br />   (foreach<br />    lwpl% lwpls<br />    ;; 选择防火分区号<br />    (if (and (setq txt-zonenumber<br />                   (car (pickset:to-list<br />                         (ssget<br />                          "wp"<br />                          (curve:get-points lwpl%)<br />                          '((0 . "text")(8 . "*防火分区编号"))))))<br />             (setq zonenumber (entity:getdxf txt-zonenumber 1)))<br />        (progn<br />          ;;选择区域内的块<br />          (mapcar '(lambda(x)<br />                    (block:set-attributes<br />                     x<br />                     (list<br />                      (cons "防火分区"<br />                            zonenumber))))<br />                  (pickset:to-list<br />                   (ssget<br />                    "wp"<br />                    (list:delsame (curve:get-points lwpl%) 0.01)<br />                    '((0 . "insert")(2 . "$Equip*")(8 .  "*消防")))))))))<br /> (defun c:bh2blk () (zonenumber-to-blk))

如果无法播放，请点击此处在新窗口打开

上面的代码需要匹配相应的图层。


也可以用 @llisp 选择工具中的线域选块一次性选择防火分区线内的所有设置块后手动修改。（视频后半段的演示）

weimeng555

vitalgg 发表于 2024-1-20 19:17
上面的代码需要匹配相应的图层。

大佬，公司电脑不能联网，能否分享个不联网版本的呢，非常感谢