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

kinglau

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

hzx2000_0

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

谢谢,我自己试试,嘿嘿

雪山飞狐_lzh

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

2. Sub test2()
3. On Error Resume Next
4. Dim ss As AcadSelectionSet
5. Dim ft(0) As Integer, fd(0)
6. ft(0) = 0: fd(0) = "line,arc"
7. ThisDrawing.SelectionSets("TlsTest").Delete
8. Set ss = ThisDrawing.SelectionSets.Add("TlsTest")
9. ss.Select acSelectionSetAll, , , ft, fd
10. MsgBox ss.Count
11. End Sub

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

songzhi

斑竹说的好,能够用选择集的地方就不要用遍历,否则太慢.

shirazbj

原来选择集是这么用的。谢谢。