GROUP ĐỐI TƯỢNG SAU KHI KẾT THÚC LỆNH VBA

[GROUP ĐỐI TƯỢNG SAU KHI KẾT THÚC LỆNH VBA]

Vào lúc 10/3/2022 tại 15:06, CadExTools đã nói:

Code nhanh giúp bạn:

Sub Example_AppendItems()

    Dim groupObj As AcadGroup

    Dim appendObjs(1) As AcadEntity

    

    ' Create a line object in model space

    Dim lineObj As AcadLine

    Dim startPoint As Variant

    Dim endPoint As Variant

    Dim objText As AcadText

    

    On Error GoTo EndSub

    

    Do While Err = 0

        With ThisDrawing.Utility

            startPoint = .GetPoint(, "Pick Start point:")

            endPoint = .GetPoint(startPoint, "Pick Start point:")

        End With

        

        Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)

        

        Set objText = ThisDrawing.ModelSpace.AddText(Round(lineObj.Length, 3), lineObj.startPoint, lineObj.Length / 10)

        

        'Create Group with Name = Line Handle

        Set groupObj = ThisDrawing.Groups.Add(lineObj.Handle)

        

        Set appendObjs(0) = lineObj

        Set appendObjs(1) = objText

        

        ' Add the array of objects to the group

        groupObj.AppendItems appendObjs

    Loop

EndSub:

    Err.Clear

End Sub


 

Cảm ơn anh đã giúp em, dựa vào code của anh em chỉnh lại cho phù hợp với VBA của mình và đã làm được. Cảm ơn anh rất nhiều

[GROUP ĐỐI TƯỢNG SAU KHI KẾT THÚC LỆNH VBA]

với code này thì các đối tượng vẽ sau đều bị gộp vào 1 group ạ, em muốn các đối tượng vẽ sau sẽ tách ra thành group khác ạ

[GROUP ĐỐI TƯỢNG SAU KHI KẾT THÚC LỆNH VBA]

Em đang tập tành code VBA nhờ các cao nhân chỉ em cách làm với ạ. Hiện tại em viết VBA tạo 1 đoạn thẳng và 1 cái text, sau khi kết thúc lệnh thì group 2 đối tượng lại để tiện di chuyển, kiểm tra sau này. Các đoạn thẳng và text tiếp theo cũng sẽ được GROUP lại. Nhưng khác GROUP đã tạo. Tạo line thì em đã viết được. Tới phần GROUP lại thì em bó tay. T_T