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

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

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

龙龙仔 · 发表于 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-26 14:48:00

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

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

发表回复

精选推荐

浏览过的版块