如何创建一个selectionset,并向其中加入图元？

chg · 发表于 2002-10-23 19:54:00

如何用vlisp和activex创建一个selectionset,并用additems向其中加入图元？
能否举个例子？

cy956 · 发表于 2002-10-23 20:23:00

龙龙仔 · 发表于 2002-10-24 08:51:00

(setq *ACTIVE-DOCUMENT* (vla-get-activedocument (vlax-get-acad-object)))

(defun ACTIVE-SS ()
  (vla-get-activeselectionset *ACTIVE-DOCUMENT*)
)

(setq SS (ssget '((0 . "LINE"))))
(if SS
  (setq SS (ACTIVE-SS))
)
;;(vlax-for vlaObj ss)
;;  (--do your stuff--)
;;)

chg · 发表于 2002-10-24 14:00:00

(setq *ACTIVE-DOCUMENT* (vla-get-activedocument (vlax-get-acad-object)))
(setq ss (vla-get-selectionsets *ACTIVE-DOCUMENT*))
(vla-add ss "sset")
(setq sset (vla-item ss "sset"))
(vla-additems sset (vlax-make-variant (vlax-ename->vla-object (entlast)) vlax-vbobject))

龙龙仔 · 发表于 2002-10-24 17:05:00

(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"))
  ;;(vla-clear 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)

chg · 发表于 2002-10-25 12:41:00

chg · 发表于 2002-10-25 13:22:00

龙龙仔 · 发表于 2002-10-25 16:13:00

chg · 发表于 2002-10-26 14:48:00

原来出错的地方在(if (not (vla-item ss "sset")))，如果开始没有
使用(vla-add ss "sset")而直接使用上述语句就会出错，并且在
最后没有用(val-delete sset)清除sset的话，在下次使用时依然
会出错。(当然是在你删除了原来sset内的图元的情况下)

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

如何创建一个selectionset,并向其中加入图元？

ssadd

例子....

龙大侠，请帮我看看这段代码错在什么地方。

vla-additems 要用 safearray

原来是数据类型不对，谢谢龙大侠指点。

还是提示错误，bad argument type :vla-object nil.

(ENTLAST) = NIL ,當然會出錯

今天我又试验了一次，成功了。原谅错误是val-item。