(setq odbx (vla-getinterfaceobject
(vlax-get-acad-object)
(strcat "ObjectDBX.AxDbDocument."
(itoa (atoi (getvar 'acadver)))
)
)
)
(setq file (findfile "dbxtest.dwg"))
(vla-open odbx file)
我也经常用到,不打开文件,批量炸开CAD里面的所有块。用到DBX和递归
【冒泡】ahwx0814 雨中漫步(147409373) 2014/12/3 13:36:01
批量删除CAD里面某一区域或特定类型的所有图元,等等
【活跃】[x_s_s_1]生无可恋(381164857) 2014/12/3 13:37:07
明白了
(vla-open odbx file)的返回值是nil,但是相关对象赋值到了odbx,是否可以这样理解