关于objectdbx的lisp，我只想说一句话
如果目录的图形已打开，则会崩溃。
我用的一个例子
(defun Ouvrir_dessin_dbx(dwg / dbx doc lan rel)
(and (setq dwg (findfile dwg))
(progn
(vlax-for doc (vla-get-documents (vlax-get-acad-object))
(and (eq (strcase (vla-get-fullname doc)) (strcase dwg))
(setq dbx doc lan T)
)
)
(and (not dbx)
(setq dbx (vlax-create-object (if (< (setq rel (atoi (getvar "ACADVER"))) 16)
"ObjectDBX.AxDbDocument"
(strcat "ObjectDBX.AxDbDocument." (itoa rel))
)
)
)
(vla-open dbx dwg)
)
)
)
(list dbx lan)
)示例
（Ouvrir\u dessin\u dbx“c:/test/11.dwg”）返回（#nil）-->使用ObjectDbx
（Ouvrir\u dessin\u dbx“c:/test/11.dwg”）返回（#T）-->使用AcadDocument
否则，帽子，你学得很快
@+ 谢谢你的指点，非常感谢。
我将在我的属性提取器中实现它（在另一个线程中）。
页:
1
[2]