一直困扰着我的关于删除vl选择集的问题，请各位高手支招

logoin · 发表于 2010-12-18 20:50:46

请见以下程序代码
1.为了程序在中途退出后能再顺利执行程序，避免出现"Automation 错误。命名选择集已存在"的错误，我加了这个error程序
2.但是加了error子程序后，后续所有其他程序的出错信息都变成  "错误: *error* 函数中出错Automation 错误。选择集已被删除"

  不知各位高手在以上有没有更好的处理办法?
  有没有办法在以下新建选择集前先判断选择集是否已存在，如存在就删掉选择集先，然后再新建选择集

(defun *error*(msg) ;为了程序在中途退出后能再顺利执行程序，避免出现"Automation 错误。命名选择集已存在"的错误
  (vla-delete vlssetObj)  ;我加了这个error程序
  )
(defun c:vlss()
  (vl-load-com)
  (setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument AcadObject)
mSpace (vla-get-ModelSpace AcadDocument))
  (setq vlssetObj (vla-add (vla-get-SelectionSets AcadDocument) "vlss1"))
  (setq mode acSelectionSetFence)
  (setq pntarray (vlax-make-safearray vlax-vbDouble '(0 . 11)))
  (vlax-safearray-fill pntarray '(10 10 0 20 20 0 30 30 0 40 40 0))
  (vla-selectbypolygon vlssetObj mode pntarray)
  (vlax-for vlaObj vlssetObj
(vla-put-color vlaObj acRed)
)
  (getpoint) ;比如我在这里按了esc强行退出程序
  (vla-delete vlssetObj)
  (princ)
  )

masterlong · 发表于 2010-12-18 22:56:40

本帖最后由 masterlong 于 2010-12-18 23:08 编辑

(defun c:vlss()
(setq olderr *error*)
(defun *error*(msg)
....
)
....
(setq *error* olderr)
)

logoin · 发表于 2010-12-19 22:32:00

感谢楼上的回复，可是我按楼上的指点改程序，还会出现:后续所有其他程序的出错信息都变成  "错误: *error* 函数中出错Automation 错误。选择集已被删除"

(defun c:vlss()
  (setq olderr *error*)
  (defun *error*(msg)
  (vla-delete vlssetObj)
  )
  (vl-load-com)
  (setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument AcadObject)
mSpace (vla-get-ModelSpace AcadDocument))

  (setq vlssetObj (vla-add (vla-get-SelectionSets AcadDocument) "vlss1"))
  (setq mode acSelectionSetFence)
  (setq pntarray (vlax-make-safearray vlax-vbDouble '(0 . 11)))
  (vlax-safearray-fill pntarray '(10 10 0 20 20 0 30 30 0 40 40 0))
  (vla-selectbypolygon vlssetObj mode pntarray)
  (vlax-for vlaObj vlssetObj
(vla-put-color vlaObj acRed)
)
  (getpoint)
  (vla-delete vlssetObj)
  (setq *error* olderr)
  (princ)
  )

masterlong · 发表于 2010-12-21 02:16:01

这是因为你已经在主程序的外部重定义过*error*
所以后续的出错都将执行(vla-delete vlssetObj)这一句
请允许我大胆的猜测一下
你用的是笔记本而且只待机不关机

关闭CAD再打开
确定你其它的程序里
没有在主程序外部定义*error*
再加载这个程序看看

461045462 · 发表于 2010-12-21 07:24:15

路过，看看学习了
谢谢楼上

waterchen · 发表于 2010-12-22 10:56:11

路过，看看学习

waterchen · 发表于 2010-12-22 11:13:13

(defun *error*(msg)
(setq *error* olderr)
(vla-delete vlssetObj)
)

liu_kunlun · 发表于 2010-12-22 16:54:24

估计有一件事应该作，就是执行vla-delete之前，对vlssetobj进行检查，看是否是选择集对象，是否已经删除？

logoin · 发表于 2010-12-28 20:09:33

现在我在acad.lsp里面加了一个error
(defun *error*(msg)
(princ "取消")
)

然后在其他程序里这样处理

(defun 程序()
(setq olderr *error*)
(defun *error*(msg)
(setq *error* olderr)
(vla-delete vlssetObj)
)
... ...
... ...

(vla-delete vlssetObj)
(setq *error* olderr)
);end of 程序

账号		自动登录	找回密码
密码			注册