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

怎样获得多段线的实体？

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

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

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

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

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
另外，还可以利用过滤机制进行选择。

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

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