VBA cho AutoCad-Hãy cùng tham gia trao đổi

[VBA cho AutoCad-Hãy cùng tham gia trao đổi]

Cám ơn bạn ndtnv

Như vậy là đúng á bạn, mình cũng có trả lời bạn gia_bach ở bên trên rồi, bạn đọc lại xem.

Mình cũng thử sửa lại là AcDbAlignedDimension rồi, phải là AcDbRotatedDimension nó mới đúng được điều kiện của lệnh If, cái AcDbRotatedDimension không gặp vấn đề gì cả. Nó chỉ không chạy được ở đoạn lấy cái điểm ExtLinePoint thôi.

Cám ơn bạn nha, có gì nghiên cứu giúp mình tiếp.

[VBA cho AutoCad-Hãy cùng tham gia trao đổi]

Cám ơn bạn gia_bach nha.

Nhưng mà  "AcDbRotatedDimension" mới đúng á bạn. Mình thử rồi, điều kiện đó đúng rồi, nó đã chạy được vào trong lệnh If rồi, chỉ có điều là k lấy được ExtLinePoint ra, kể cả những thuộc tính khác của đường dimesion. Không hiểu tại sao. Bạn giúp mình lần nữa dc k.

[VBA cho AutoCad-Hãy cùng tham gia trao đổi]

Mình có đoạn code này, mình quét chọn đối tượng trên bản vẽ sau đó lọc ra các đối tượng là dimension. Mình muốn lấy tọa độ ExtLinePoint của Dimension để xử lý, mà không hiểu sao mình không lấy được. Có bạn nào giúp mình sửa lại đoạn code với. Cái đoạn trong dấu ngoặc í. Mình cám ơn nhiều.

 

Sub checkkichthuoclo()

Dim obs1 As AcadSelectionSet
Dim object1 As Variant
Dim dimaligned1 As AcadDimAligned
Dim point As Variant

 

On Error Resume Next
Set obs1 = ThisDrawing.SelectionSets("Myss")
If Err Then
Err.Clear
Set obs1 = ThisDrawing.SelectionSets.Add("Myss")
Else
obs1.Clear
End If
obs1.SelectOnScreen

 

(

    For Each object1 In obs1
    If object1.ObjectName = "AcDbRotatedDimension" Then
    Set dimaligned1 = object1
    point = dimaligned1.ExtLine1Point
    MsgBox point(0)
    Else: End If
    Next

)

End Sub