API应用 ReadDWG修改布局属性图块

st788796

1. (defun c:tt (/ fl ob el blk)
   
2.   (if (and (setq fl (getfiled "Select DWG" "" "Dwg" 8)) ;_选择文件
   
3.            (xdrx_database_readdwg (findfile fl)) ;_数据库打开
   
4.            (xdrx_database_seldb 1) ;_设为当前数据库
   
5.       )
   
6.     (progn
   
7.       (setq ob        (xdrx_object_get "Block" "*Paper_Space") ;_获取图纸空间
   
8.             el        (xdrx_getpropertyvalue ob "AllEntities") ;_获取图纸空间所以实体列表
   
9.             blk        (vl-remove-if
   
10.                   '(lambda (x)
    
11.                      (and (/= (xdrx_getpropertyvalue x "IsA")
    
12.                               "AcDbBlockReference"
    
13.                           ) ;_首先是块
    
14.                           (/= (car (xdrx_getpropertyvalue
    
15.                                      x
    
16.                                      "BlockTableRecord"
    
17.                                    )
    
18.                                    "TEST"
    
19.                               )
    
20.                           ) ;_特定图块名称
    
21.                      )
    
22.                    )
    
23.                   el
    
24.                 )
    
25.       )
    
26.       (mapcar '(lambda (x)
    
27.                  (if (= (xdrx_getpropertyvalue x "Tagstring") "NO") ;_检查标签
    
28.                    (xdrx_setpropertyvalue x "textstring" "TEST") ;_写入 TEXT
    
29.                  )
    
30.                )
    
31.               (mapcar '(lambda (a)
    
32.                          (xdrx_getpropertyvalue a "AttributeEntities")
    
33.                        )
    
34.                       blk
    
35.               );_取出书写实体
    
36.       )
    
37.       (xdrx_database_save);_保存文件
    
38.       (xdrx_database_close);_关闭文件
    
39.     )
    
40.   )
    
41.   (princ)
    
42. )

(defun c:tt (/ fl ob el blk)<br />   (if (and (setq fl (getfiled "Select DWG" "" "Dwg" 8)) ;_选择文件<br />            (xdrx_database_readdwg (findfile fl)) ;_数据库打开<br />            (xdrx_database_seldb 1) ;_设为当前数据库<br />       )<br />     (progn<br />       (setq ob        (xdrx_object_get "Block" "*Paper_Space") ;_获取图纸空间<br />             el        (xdrx_getpropertyvalue ob "AllEntities") ;_获取图纸空间所以实体列表<br />             blk        (vl-remove-if<br />                   '(lambda (x)<br />                      (and (/= (xdrx_getpropertyvalue x "IsA")<br />                               "AcDbBlockReference"<br />                           ) ;_首先是块<br />                           (/= (car (xdrx_getpropertyvalue<br />                                      x<br />                                      "BlockTableRecord"<br />                                    )<br />                                    "TEST"<br />                               )<br />                           ) ;_特定图块名称<br />                      )<br />                    )<br />                   el<br />                 )<br />       )<br />       (mapcar '(lambda (x)<br />                  (if (= (xdrx_getpropertyvalue x "Tagstring") "NO") ;_检查标签<br />                    (xdrx_setpropertyvalue x "textstring" "TEST") ;_写入 TEXT<br />                  )<br />                )<br />               (mapcar '(lambda (a)<br />                          (xdrx_getpropertyvalue a "AttributeEntities")<br />                        )<br />                       blk<br />               );_取出书写实体<br />       )<br />       (xdrx_database_save);_保存文件<br />       (xdrx_database_close);_关闭文件<br />     )<br />   )<br />   (princ)<br /> )