和ObjectDBX一样的ReadDWG

st788796

1. (defun c:tt (/ fl ob el)
   
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" "*Model_Space");_取得外部数据库的 Model_Space
   
8.      el (xdrx_getpropertyvalue ob "AllEntities");_获得 Model_Space 内所有实体, 也可以根据过滤条件修改
   
9.       )
   
10.       (xdrx_database_seldb 0);_返回当前图形
    
11.       (mapcar '(lambda (x) (entmake (entget e))) el);_可以根据需要复制到当前图形
    
12.       (xdrx_database_Close);_关闭外部数据库
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )

(defun c:tt (/ fl ob el)<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" "*Model_Space");_取得外部数据库的 Model_Space<br />      el (xdrx_getpropertyvalue ob "AllEntities");_获得 Model_Space 内所有实体, 也可以根据过滤条件修改<br />       )<br />       (xdrx_database_seldb 0);_返回当前图形<br />       (mapcar '(lambda (x) (entmake (entget e))) el);_可以根据需要复制到当前图形<br />       (xdrx_database_Close);_关闭外部数据库<br />     )<br />   )<br />   (princ)<br /> )

口味虾

好贴啊 感谢楼主，