Hỏi về cách căn giữa của đối tượng Mtext bằng VBA trên CAD (1 người xem)

[luongtuananh83]

Chào các bạn
Như các bạn đã biết khi lập trình VBA trên CAD đối với đối tượng textobject, khi muốn căn trái phải giữa của đối tượng thì ta dùng thuộc tính Alignment với các giá trị trả về. Vd như: textObj.Alignment = acAlignmentCenter
Tuy nhiên hiện nay tôi phải thao tác nhiều trên đối tượng Mtext, và không biết các hàm thuộc tính và câu lệnh nào để làm công việc như trên.
Xin các bạn chỉ dẫn. Cám ơn rất nhiều

 

[ptlong04x1]

Dùng .InsertPoint bạn. Xem thêm Help nhé!

 

[luongtuananh83]

Cám ơn bạn. Tôi đã làm được như mong muốn với thuộc tính .Attachmentpoint
Nhưng vẫn chưa biết cách dùng thuộc tính: .InsertPoint như bạn nói

 

[ptlong04x1]

Cám ơn bạn. Tôi đã làm được như mong muốn với thuộc tính .Attachmentpoint
Nhưng vẫn chưa biết cách dùng thuộc tính: .InsertPoint như bạn nói

Chính xác là .Attachmentpoint đó. Hôm trước vì dùng máy cơ quan không có CAD nên mình nhớ nhầm, còn .InsertPoint thì dùng khi làm việc với Block.

 

[PhanTuHuong]

Thủ tục dưới đây giúp bạn nhé. Khi chạy, chọn vùng chứa đối tượng như bình thường (gõ All nếu chọn toàn bộ), sau đó toàn bộ đối tượng được căn theo ý muốn.

Sub AlignmentMTextObject()
    Dim AcadObj As AcadEntity
    Dim SsetObj As AcadSelectionSet
   
    On Error Resume Next
    
    Set SsetObj = ThisDrawing.SelectionSets.Add("MTextObj")
    
    SsetObj.SelectOnScreen
    
    For Each AcadObj In SsetObj
        
        If AcadObj.ObjectName = "AcDbMText" Then
            AcadObj.AttachmentPoint = acAttachmentPointTopCenter
        End If
        
    Next
    ThisDrawing.SelectionSets.Item("MTextObj").Delete
    Set SsetObj = Nothing
    Set AcadObj = Nothing
End Sub