Kiểm tra kiểu của đối tượng kích thước

[kimvantoan 0]

Chào các bạn! Tôi có một selectionset để lọc ra 2 đối tượng của dimension(dimaligned và dimrotated). Bây giờ tôi muốn kiểm tra xem trong selectionset của tôi có bao nhiêu đối tượng là dimaligned. Tôi phải làm như thế nào?

Rất mong sự giúp đỡ của các bạn! Xin cám ơn!

[nvson 5]

Topic này thấy khá lâu rồi, không biết bạn còn cần không?

Bạn tham khảo cách sau nhé:

Public Sub Count_Dimemsion()
Dim dem1 As Double, dem2 As Double
Dim ssObject As AcadSelectionSet
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
Dim obj_i
'Chon doi tuong
Set ssObject = ThisDrawing.SelectionSets.Add("CountDimension")
FilterType(0) = 0
FilterData(0) = "Dimension"
ssObject.SelectOnScreen FilterType, FilterData
For Each obj_i In ssObject
If obj_i.ObjectName = "AcDbRotatedDimension" Then
   	dem1 = dem1 + 1
ElseIf obj_i.ObjectName = "AcDbAlignedDimension" Then
   	dem2 = dem2 + 1
End If
Next obj_i
MsgBox "Vung ban chon co " & dem1 & " doi tuong AcadDimAligned, " & vbCr & "va co " & dem2 & " doi tuong AcadDimRotated"
ssObject.Delete
End Sub