[请教]如何计算出图形中线段和圆弧的数量

kinglau · 发表于 2006-2-27 22:49:00

用选择集可以实现"如何计算出图形中线段和圆弧的数量"么

hzx2000_0 · 发表于 2006-2-27 22:57:00

dim n as integer,k as  integer
for n = 0 to thisdrawing.modelspace.count-1
   if thisdrawing.modelspace(n).entityname="AcDbLine" then
         k=k+1
   end if
next
msgbox k

kinglau · 发表于 2006-2-28 16:26:00

谢谢,我自己试试,嘿嘿

雪山飞狐_lzh · 发表于 2006-2-28 17:15:00

在图元很多的时候历遍模型空间会很慢
用选择集解决要好些

copy


Sub test2()
On Error Resume Next
Dim ss As AcadSelectionSet
Dim ft(0) As Integer, fd(0)
ft(0) = 0: fd(0) = "line,arc"
ThisDrawing.SelectionSets("TlsTest").Delete
Set ss = ThisDrawing.SelectionSets.Add("TlsTest")
ss.Select acSelectionSetAll, , , ft, fd
MsgBox ss.Count
End Sub