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

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

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

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

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

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

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!

[Các Pro Giúp E Với Ạ.]

tool=>option=>.drafting=>color=>autosnap marker

 bạn thử xem

ko được ban ạ. nó chỉ hiện màu khi bắt điểm thôi...

[Các Pro Giúp E Với Ạ.]

Xin chào cả nhà, chả là em muốn tạo màu cho cái hình vuông bắt điểm trong cad  như hình này thì làm như thế nào được ạ.