[LISP程序]：哪位高手帮我看看哪里有错误。

gchen · 发表于 2002-10-25 13:47:03

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(setq *ACTIVE-DOCUMENT*
(vla-get-activedocument (vlax-get-acad-object))
  )
  (setq SS (vla-get-selectionsets *ACTIVE-DOCUMENT*))
  (if (not (vla-item SS "sset"))
(vla-add SS "sset")
  )
  (setq SSET (vla-item SS "sset"))
  (setq SA (vlax-make-safearray vlax-vbobject '(0 . 0)))
  (setq ELIST (cons (vlax-ename->vla-object (entlast)) '()))
  (vlax-safearray-fill SA ELIST)
  (vla-additems SSET SA)

newer · 发表于 2002-10-25 13:56:59

最初由 gchen 发布
[B](setq *ACTIVE-DOCUMENT*
(vla-get-activedocument (vlax-get-acad-object))
  )
  (setq SS (vla-get-selectionsets *ACTIVE-DOCUMENT*))
  (if (not (vla-item SS "sset"))
(vla-add SS "sset")
... [/B]

程序有什么问题？

gchen · 发表于 2002-10-25 21:04:49

程序提示出错，不能运行。

lijiao · 发表于 2002-10-28 08:47:19

应该是(not (vla-item SS "sset")) 吧，如果“SSET”不存在，函数(vla-item SS "sset")会出错而终止运行。
在VL中，可以用调试工具进行调试。

gchen · 发表于 2002-10-28 13:01:51

谢谢各位，我明白了。

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

[LISP程序]：哪位高手帮我看看哪里有错误。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [LISP程序]：哪位高手帮我看看哪里有错误。