用ObjectDBX搜索指定目錄是含特定文字的圖形

不用打開文件,就可以對(duì)文件進(jìn)行操作.
包括打開文件 獲取實(shí)體,修改實(shí)休,保存文件
以下是關(guān)鍵代碼:

;;;創(chuàng)建ObjectDBX實(shí)例
(setq dbxdoc
(vla-GetInterfaceObject
(vlax-get-acad-object)
"ObjectDBX.AxDbDocument"
)
)

;;;打開文件
(vla-open dbxdoc filename)
;;獲得圖紙空間,好像是這么叫的
(setq mSpace(vla-get-modelspace dbxdoc))
;;對(duì)圖形中每個(gè)實(shí)休進(jìn)行操作
(vlax-for eachsub
mSpace
(progn
(vlax-dump-object eachsub) ;; 通過vlisp進(jìn)行訪問實(shí)體
(setq ent (vlax-vla-object->ename eachsub));;;轉(zhuǎn)換成lisp后進(jìn)行操作
(setq ent (entget ent))
(princ ent)
)
)

;;; 添加一個(gè)圓,如果要加別的東西就找找相關(guān)資料吧
(setq mycircle (vla-addCircle mSpace (vlax-3d-point 3.0 3.0 0.0) 200.0 ))

;;;保存文件: filename是文件名,不知道為什么用 vla-save不可以保存
(vla-saveas dbxdoc filename)
;;;釋放實(shí)例:
(vlax-release-object dbxdoc)