请看看此程序有什么毛病

liub1979

以下程序实现功能很简单"换层",大侠们看看他有什么毛病,为什么当AutoCAD打开或者新建另一个文件后此程序便失效并出现"; 错误: Automation 错误。"的字样,有什么方法让他在原来的文件里依旧能用,谢谢了!
对了我用的是AutoCAD2002,XP (DEFUN CAC (/ ss si id curlay laid lays)
(SETQ ss (vl-ssget))
(SETQ id 0)
(SETQ laid (GETSTRING "\n请输入层名::" ))
(SETQ lays (VLA-GET-LAYERS (active-document)))
(VLA-ADD lays laid)
(REPEAT (VLA-GET-COUNT ss)
(SETQ si (VLA-ITEM ss id))
(SETQ id (+ 1 id))
(VLA-PUT-LAYER si laid)
)
(PRINC)
) (DEFUN vl-ssget (/ *vl-ssget* flag)
(SETQ flag T)
(WHILE flag
(IF (SSGET)
(SETQ flag nil)
(PRINC "未选中请重新")
)
)
(SETQ *vl-ssget* (VLA-GET-ACTIVESELECTIONSET (active-document)))
) (VL-LOAD-COM)
(SETQ *acad-object* nil) ; Initialize global variable
(DEFUN acad-object ()
(COND (*acad-object*) ; Return the cached object
(T
(SETQ *acad-object* (VLAX-GET-ACAD-OBJECT))
)
) ) (SETQ *active-document* nil) ; Initialize global variable
(DEFUN active-document ()
(COND (*active-document*) ; Return the cached object
(T
(SETQ *active-document* (VLA-GET-ACTIVEDOCUMENT (acad-object)))
)
) )

无痕

VLA-GET-ACTIVESELECTIONSET         


是有bug的，cad自己的问题。用别的方法替代吧


编译的时候用独立空间名试试？我没试过，有结果告诉一下：）

Ea

有 Bug 可以先处理下吗

雪山飞狐_lzh

VBA的办法： sName = "CURRENT"
ThisDrawing.SelectionSets(sName).Delete
Set oSel = ThisDrawing.ActiveSelectionSet

liub1979

lzh741206大侠的意思是把SelectionSets中名为"CURRENT"的SelectionSet删除 然后在求ActiveSelectionSet是吗? 对了无痕大虾,编译的时候用独立空间名也不行哦!!!!!!! 你通常用什么方式获得选择集呢(要用VLISP编,用ActiveX方法时) 我还是去试试楼上的方法!@_@ 谢谢大家！

meflying

为什么要死认定使用ActiveX方法呢？ autolisp轻松搞定 (defun cAC( / ss layname)
(setvar "cmdecho" 0)
(if (setq ss (ssget))
(progn
(setq layname (getstring "\n请输入层名:" ))
(command "_.layer" "n" layname "")
(command "_.change" ss "" "p" "la" layname "")
)
)
(princ)
)

liub1979

好玩嘛!

liub1979

无痕发表于2004-12-30 0:57:00VLA-GET-ACTIVESELECTIONSET 是有bug的，cad自己的问题。用别的方法替代吧

什么方法撒,让我学学,我急用 谢谢