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

不用打開文件,就可以對文件進行操作.
包括打開文件 獲取實體,修改實休,保存文件
以下是關鍵代碼:

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

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

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

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