mico_ye 发表于 2008-7-7 12:36:00

有关群组的提取--求助

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

byghbcx 发表于 2008-7-7 14:43:00

什么对象?什么像素?

mico_ye 发表于 2008-7-7 15:00:00

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

byghbcx 发表于 2008-7-7 15:46:00

<p>直线有直线的群码,里面有图层、线型、起点、终点、颜色……等各种信息。</p><p>园有园的群码……</p><p>各种对象群码的数字跟随对象不一样。</p><p>你需要提取什么？可以结合具体程序谈</p>

mico_ye 发表于 2008-7-8 12:38:00

<p>先谢谢回复。</p><p>我的意思是想用lisp从组里面删掉一些直线，或是删掉一些空的组。请问可以吗？</p>

caoyin 发表于 2008-7-8 12:58:00

本帖最后由 作者 于 2008-7-8 13:09:34 编辑 <br /><br /> <p>(setq groups (vla-get-groups (vla-get-activedocument(vlax-get-acad-object))))</p><p>;;清除空组<br/>(defun test1 ()<br/>(vlax-for obj groups<br/>(if (zerop (vla-get-count obj)) (vla-delete obj))<br/>)<br/>)</p><p><br/>我的意思是想用lisp从组里面删掉一些直线</p><p>你说的删掉的意思是将对象脱离编组吧？？</p><p>(defun test2 (GroupName enLst)<br/>&nbsp; (vla-RemoveItems<br/>&nbsp;&nbsp;&nbsp; (vla-item groups GroupName)<br/>&nbsp;&nbsp;&nbsp; (vlax-make-variant<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-safearray-fill<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-make-safearray 9 (cons 0 (1- (length enlst))))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (mapcar 'vlax-ename-&gt;vla-object enlst)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>)</p>

mico_ye 发表于 2008-7-9 12:39:00

<p>谢谢！</p><p>但怎么用呀，直接输入test1或test2吗？</p>
页: [1]
查看完整版本: 有关群组的提取--求助