七敏 发表于 2007-10-28 22:44:00

怎样获得多段线的实体？

<p>小妹初到，想求助一下：</p><p>怎样用VBA获得多段线的实体呢？</p><p></p>

chenyaqiou 发表于 2007-10-30 08:16:00

<p>dim plobj as acadpolyline '定义多段线</p><p>set plobj=thisdrawing.utility.getentity pts,""&nbsp;&nbsp; '利用getentity方法选择多段线实体</p><p></p>

chtd 发表于 2007-10-30 21:34:00

<p>dim sel as AcadSelectionSet</p><p>Set sel = thisdrawing.SelectionSets.Add("sel")</p><p>AppActivate acadapp.Caption</p><p>sel.selectonscreen</p><p>for each rr in sel</p><p>&nbsp;&nbsp; if ee.entitytype=24 then</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ee.highlight true</p><p>&nbsp;&nbsp; end if</p><p>next</p><p>sel.delete</p><p>另外，还可以利用过滤机制进行选择。</p>

七敏 发表于 2007-10-31 22:00:00

哦，原来如此，我试试看先
页: [1]
查看完整版本: 怎样获得多段线的实体？