liminnet
发表于 2008-11-3 17:58:00
mccad
发表于 2008-11-3 18:55:00
<p>你的意思是你写了一个判断，但觉得速度不够快。怎么不把你的代码贴出来呢。</p>
jxlsp
发表于 2008-11-3 19:23:00
你的<strong>速度不快的是什么样的呀?</strong>
liminnet
发表于 2008-11-4 08:33:00
carrot1983
发表于 2008-11-4 09:21:00
<p>不知道会不会更快...</p><p>(and (= (vla-get-objectname<br/> (setq blkref (vlax-ename->vla-object ent))<br/> )<br/> "AcDbBlockReference"<br/> )<br/> (vla-get-hasattributes blkref)<br/>)</p>
caoyin
发表于 2008-11-4 09:22:00
本帖最后由 作者 于 2008-11-4 9:26:35 编辑 <br /><br /> <p>楼上的最简单，不过要修改一下</p><p>(and (= (vla-get-objectname<br/> (setq blkref (vlax-ename->vla-object (car (entsel))))<br/> )<br/> "AcDbBlockReference"<br/> )<br/> (= (vla-get-hasattributes blkref) :vlax-true)<br/>)</p><p>或者</p><p>(vl-catch-all-apply<br/> 'vlax-invoke<br/> (list (vlax-ename->vla-object (car (entsel))) 'getattributes)<br/>)</p>
liminnet
发表于 2008-11-4 11:06:00
狂刀lxx
发表于 2008-11-4 18:24:00
<p>选的时候用ssget 66组码过滤</p>
lyd2003001
发表于 2008-11-5 10:02:00
尽管没试过，我还是觉得狂刀说的有道理，省事。
carrot1983
发表于 2008-11-5 12:16:00
<p>是的...组码66过滤...昨天刚看过</p>