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

st788796 · 发表于 2014-8-11 09:22:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

账号		自动登录	找回密码
密码			立即注册

[教学] API应用 ReadDWG修改布局属性图块

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。