Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
1 reply to this topic

#1 kimvantoan

kimvantoan

    biết vẽ line

  • Members
  • PipPip
  • 21 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 03 July 2011 - 04:36 PM

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!
  • 0

#2 nvson

nvson

    biết vẽ ellipse

  • Members
  • PipPip
  • 52 Bài viết
Điểm đánh giá: 4 (bình thường)

Đã gửi 31 October 2011 - 11:15 AM

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

  • 0