不打开利用ObjectDBX实例对象操作DWG文件

鬼子兵 · 发表于 2020-2-19 15:13:59

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

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

×

本帖最后由 LoveArx 于 2020-2-19 16:20 编辑

;;不打开利用ObjectDBX实例对象操作DWG文件
(defun c:te()
;;;创建ObjectDBX实例
(vl-load-com)
;;加载AUTOCAD中的ObjectDBX实例(这里是AUTOCAD2007版本，其它需改成对应版本)
(setq dbxdoc (vla-GetInterfaceObject (vlax-get-acad-object) "ObjectDBX.AxDbDocument.17"))
;;;打开文件（改为自已需要的文件）
(vla-open dbxdoc "d:/cs.dwg")
;;获得图纸空间
(setq mSpace (vla-get-modelspace dbxdoc))
(vla-save dbxdoc)
;;对图形中每个实休进行操作
(vlax-for eachsub
mSpace
(progn
(setq ent (vlax-vla-object->ename eachsub));;;转换成lisp后进行操作
;;查找其中的单行文字数据并进行打印
(setq ent (entget ent))
(if (= (cdr (assoc 0 ent)) "TEXT")
(progn
(print (cdr (assoc 1 ent)))
)
)
)
)
;;关闭相关的ObjectDBX实例
(vlax-release-object dbxdoc)
)

;;不打开利用ObjectDBX实例对象操作DWG文件 
(defun c:te() 
        ;;;创建ObjectDBX实例 
        (vl-load-com) 
        ;;加载AUTOCAD中的ObjectDBX实例(这里是AUTOCAD2007版本，其它需改成对应版本) 
        (setq dbxdoc (vla-GetInterfaceObject (vlax-get-acad-object)  "ObjectDBX.AxDbDocument.17")) 
        ;;;打开文件（改为自已需要的文件） 
        (vla-open dbxdoc "d:/cs.dwg") 
        ;;获得图纸空间 
        (setq mSpace (vla-get-modelspace dbxdoc)) 
        (vla-save dbxdoc) 
        ;;对图形中每个实休进行操作 
        (vlax-for eachsub 
                mSpace 
                (progn 
                        (setq ent (vlax-vla-object->ename eachsub));;;转换成lisp后进行操作 
                        ;;查找其中的单行文字数据并进行打印 
                        (setq ent (entget ent)) 
                        (if (= (cdr (assoc 0 ent)) "TEXT") 
                                (progn 
                                        (print (cdr (assoc 1 ent))) 
                                ) 
                        ) 
                ) 
        ) 
        ;;关闭相关的ObjectDBX实例 
        (vlax-release-object  dbxdoc) 
)

Lisphk · 发表于 2020-2-19 16:21:52

楼主，ObjectDBX.AxDbDocument.17 这个17最好用 (acadver)获得版本号，提取出数字用才更好。

yuren008 · 发表于 2020-2-20 09:59:28

做个对论坛有益的人。

tzfcn · 发表于 2020-2-20 14:36:06

很好的代码，值得学习。

杨张张 · 发表于 2020-2-20 18:26:51

很好的代码，值得学习。

aisong220 · 发表于 2020-2-21 00:00:48

SHUNDocker · 发表于 2021-8-23 14:42:34

正是需要的东西

279491611 · 发表于 2021-8-23 19:35:03

感谢分享，如此看来可以批处理。

dnbcgrass · 发表于 2022-5-31 09:04:31

谢谢分享，下来学习学习！

zjy2999 · 发表于 2022-5-31 09:29:49

谢谢分享，下来学习学习！

树櫴希德 · 发表于 2023-7-4 17:15:27

w为什么只能看到一半 dbx里面能不能新增图源即entmake

树櫴希德 · 发表于 2023-7-4 17:16:53

w为什么只能看到一半 dbx里面能不能新增图源即entmake

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

[每日一码] 不打开利用ObjectDBX实例对象操作DWG文件

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