有关群组的提取--求助

mico_ye

朋友，有谁能将群组里面的像素提取出来，怎么提取的？请教了。

byghbcx

什么对象?什么像素?

mico_ye

也就是说将群组里面的直线，圆等提取出来，能帮帮我吗？

byghbcx

直线有直线的群码,里面有图层、线型、起点、终点、颜色……等各种信息。

园有园的群码……

各种对象群码的数字跟随对象不一样。

你需要提取什么？可以结合具体程序谈

mico_ye

先谢谢回复。

我的意思是想用lisp从组里面删掉一些直线，或是删掉一些空的组。请问可以吗？

caoyin

(setq groups (vla-get-groups (vla-get-activedocument(vlax-get-acad-object))))

;;清除空组
(defun test1 ()
(vlax-for obj groups
(if (zerop (vla-get-count obj)) (vla-delete obj))
)
)

我的意思是想用lisp从组里面删掉一些直线

你说的删掉的意思是将对象脱离编组吧？？

(defun test2 (GroupName enLst)
  (vla-RemoveItems
    (vla-item groups GroupName)
    (vlax-make-variant
      (vlax-safearray-fill
        (vlax-make-safearray 9 (cons 0 (1- (length enlst))))
        (mapcar 'vlax-ename->vla-object enlst)
      )
    )
  )
)

mico_ye

谢谢！

但怎么用呀，直接输入test1或test2吗？