Các bác Pro VBA giúp e với ạ.

[lê tuấn 1992 1]

Các cho e hỏi trong VBA auto cad thì dùng câu lệnh nào để nó ra cái bảng như hình này được ạ, e cám ơn các bác!

[dinhvantrang 151]

nó kiểu thế này:

strA = Thisdrawing.Utility.Getstring(false,"Chon style [A1/A2/A3/A4")

 

Bạn để trong dấu ngoặc VUÔNG nhé và các nhau bằng dấu "/"

[lê tuấn 1992 1]

13 giờ trước, dinhvantrang đã nói:

nó kiểu thế này:

strA = Thisdrawing.Utility.Getstring(false,"Chon style [A1/A2/A3/A4")

 

Bạn để trong dấu ngoặc VUÔNG nhé và các nhau bằng dấu "/"

Quá hay, cám ơn bác rất nhiều, bác cho e hỏi thêm tý có cách nào nó sổ ra rồi chọn luôn được không bác, đỡ phải nhập ấy ạ, giống như cái lsp này bác ạ.

wo.lsp

[gia_bach 1559]

Sử dụng GetKeyword nhé.

 

Tham khảo:

Sub Ch3_KeyWord2()
    Dim keyWord As String
    ThisDrawing.Utility.InitializeUserInput 0, "Line Circle Arc"
    keyWord = ThisDrawing.Utility.GetKeyword(vbCrLf & "Enter an option [Line/Circle/<Arc>]: ")
    If keyWord = "" Then keyWord = "Arc"
    MsgBox keyWord, , "GetKeyword Example"
End Sub

[lê tuấn 1992 1]

2 giờ trước, gia_bach đã nói:

Sử dụng GetKeyword nhé.

 

Tham khảo:

Sub Ch3_KeyWord2()
    Dim keyWord As String
    ThisDrawing.Utility.InitializeUserInput 0, "Line Circle Arc"
    keyWord = ThisDrawing.Utility.GetKeyword(vbCrLf & "Enter an option [Line/Circle/<Arc>]: ")
     If keyWord = "" Then keyWord = "Arc"
    MsgBox keyWord, , "GetKeyword Example"
 End Sub

Cám ơn bác Gia_Bach nhiều, đúng cái em cần..hihi