DBX怎么查询到块中实体，然后删除操作，主要是获取块中实体

zxh92

DBX怎么查询到块中实体，然后删除操作，主要是获取块中实体

vitalgg

1. ;; 加载@lisp函数库
   
2. (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))))
   
3. 
   
4. ;; 修改以下配置信息===================================
   
5. (setq framename "图框块名") ;; 你的图框块名
   
6. (setq signs '("签名1" "签名2")) ; 手写签名块的名称
   
7. ;;  ==================================================
   
8. 
   
9. ;; 功能:清空DBX对象中属性块的属性值
   
10. (defun dbx-clean-att (dwg-file / blk-obj blk3)
    
11.   ;; 打开外部dwg的DBX对象. 假定文件为 D:/abc.dwg
    
12.   (setq dwg-file (findfile dwg-file))
    
13.   (dbx:open dwg-file)
    
14.   ;;取dbx中的模型空间中的实体
    
15.   (setq dbx-ms(vla-get-modelspace *DBX*))
    
16.   ;; 取dbx块集中的第4个块定义对象（前几个是model-space paper-space之类的）
    
17.   (setq n 0)
    
18.   (repeat (vla-get-count dbx-ms)
    
19.           (setq obj% (vla-item dbx-ms n))
    
20.           (print (vla-get-objectname obj%))
    
21.           (cond
    
22.             ;; 将图框块中的设计、校对的属性值清空
    
23.             ((and (= (vla-get-objectname obj%) "AcDbBlockReference")
    
24.                   (= (vla-get-HasAttributes obj%) :vlax-true)
    
25.                   (= (vla-get-effectivename obj%) framename)
    
26.                   )
    
27.              ;;清空属性值
    
28.              (block:set-attributes obj% '(("设计" . "")("校对" . ""))))
    
29.             ;; 删除签名块
    
30.             ((and (= (vla-get-objectname obj%) "AcDbBlockReference")
    
31.                   (member (vla-get-effectivename obj%)
    
32.                           signs
    
33.                           ))
    
34.              (vla-delete obj%)
    
35.              ))
    
36.           (setq n (1+ n)))
    
37.   (setq tmp-file (strcat dwg-file ".b.dwg"))
    
38.   (vla-saveas *DBX* tmp-file)
    
39.   ;;(vla-save *DBX*) ;; 新版本DBX不支持直接写入
    
40.   (dbx:release)
    
41.   (if (and (findfile tmp-file)
    
42.            (>  (vl-file-size tmp-file) 0))
    
43.       (progn
    
44.         (vl-file-delete dwg-file)
    
45.         (vl-file-rename tmp-file dwg-file))
    
46.       ))

;; 加载@lisp函数库<br /> (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 /> ;; 修改以下配置信息===================================<br /> (setq framename "图框块名") ;; 你的图框块名<br /> (setq signs '("签名1" "签名2")) ; 手写签名块的名称<br /> ;;  ==================================================<br /> <br /> ;; 功能:清空DBX对象中属性块的属性值<br /> (defun dbx-clean-att (dwg-file / blk-obj blk3)<br />   ;; 打开外部dwg的DBX对象. 假定文件为 D:/abc.dwg<br />   (setq dwg-file (findfile dwg-file))<br />   (dbx:open dwg-file)<br />   ;;取dbx中的模型空间中的实体<br />   (setq dbx-ms(vla-get-modelspace *DBX*))<br />   ;; 取dbx块集中的第4个块定义对象（前几个是model-space paper-space之类的）<br />   (setq n 0)<br />   (repeat (vla-get-count dbx-ms)<br />           (setq obj% (vla-item dbx-ms n))<br />           (print (vla-get-objectname obj%))<br />           (cond<br />             ;; 将图框块中的设计、校对的属性值清空<br />             ((and (= (vla-get-objectname obj%) "AcDbBlockReference")<br />                   (= (vla-get-HasAttributes obj%) :vlax-true)<br />                   (= (vla-get-effectivename obj%) framename)<br />                   )<br />              ;;清空属性值<br />              (block:set-attributes obj% '(("设计" . "")("校对" . ""))))<br />             ;; 删除签名块<br />             ((and (= (vla-get-objectname obj%) "AcDbBlockReference")<br />                   (member (vla-get-effectivename obj%)<br />                           signs<br />                           ))<br />              (vla-delete obj%)<br />              ))<br />           (setq n (1+ n)))<br />   (setq tmp-file (strcat dwg-file ".b.dwg"))<br />   (vla-saveas *DBX* tmp-file)<br />   ;;(vla-save *DBX*) ;; 新版本DBX不支持直接写入<br />   (dbx:release)<br />   (if (and (findfile tmp-file)<br />            (>  (vl-file-size tmp-file) 0))<br />       (progn<br />         (vl-file-delete dwg-file)<br />         (vl-file-rename tmp-file dwg-file))<br />       ))

zxh92

vitalgg 发表于 2023-11-29 11:30

测试dwg有2个相同的属性块，还问下(setq dbx-blks(vla-get-blocks  *DBX*))的话，我用vla-get-Name，只得到一个块名，
如果用ModelSpace可以得到2个，，因为是属性块，我想。所以我觉得应该ModelSpace，得到2个，然后再用(setq blk3 (vla-item dbx-blks 3))来对块处理，求大佬指点

vitalgg

你要的是块参照blockreference对象 ,而不是块block对象

*DBX* 对应的就是Docment. 只是没有界面，可操作的对角为 浅绿色和浅蓝色部分。

zxh92

感谢大佬。折腾几天，对于大佬给的图我也不懂，我总结下理解，ms相当于ssget,getblocks相当于块编辑，这样就可以对应着理解，操作了