(defun c:1(/ acadobject acaddocument mspace exportfile selectionsetsel ) (vl-load-com) (setq acadobject(vlax-get-acad-object) acaddocument(vla-get-activedocument acadobject) mspace(vla-get-modelspace acaddocument) ) (setq exportfile "e:/114") (setq selectionsetsel(vla-get-selectionsets acaddocument)) (setq selectionsetobj(vla-add selectionsetsel "Test")) (vla-export acaddocument exportfile "dxf" selectionsetobj) (princ) )
为什么此程序保存第一次没有出错,第二次就会出错呢?
|