怎样获得多段线的实体？

七敏 · 发表于 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

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

怎样获得多段线的实体？

发表回复

精选推荐