怎样获得多段线的实体？

七敏

小妹初到，想求助一下：

怎样用VBA获得多段线的实体呢？

chenyaqiou

dim plobj as acadpolyline '定义多段线

set plobj=thisdrawing.utility.getentity pts,""   '利用getentity方法选择多段线实体

chtd

dim sel as AcadSelectionSet

Set sel = thisdrawing.SelectionSets.Add("sel")

AppActivate acadapp.Caption

sel.selectonscreen

for each rr in sel

   if ee.entitytype=24 then

      ee.highlight true

   end if

next

sel.delete

另外，还可以利用过滤机制进行选择。

七敏

哦，原来如此，我试试看先