[Hỏi -VBA] làm thế nào để truyền giá trị của biến vào sendcommand

[Thành Công WRU 3]

chào các anh chị trong diễn đàn, em đang tập tành món vba cho autocad , nay gặp phải vấn đề này mong anh chị giúp đỡ ạ

ví dụ em khai báo biến a có giá trị 0,

làm sao để truyền biến a vào dòng lệnh  ThisDrawing.SendCommand " "  

mong các anh chị chỉ giáo ạ

[dinhvantrang 151]

Bạn thao tác thế trên cad thế nào thì sendcommand cũng gần tương tự:

Ví dụ tạo đường tròn bán kính 50, tâm 0,0,0

Sub TestSencommand()
    Dim dblRadius As Double
    dblRadius = 50
    
    ThisDrawing.SendCommand "_Circle" & vbCr & "0,0,0" & vbCr & dblRadius & vbCr
    ZoomExtents
    
End Sub

-----------Thanks -----------------

Hướng dẫn lập trình VBA cho Autocad

https://docs.google.com/spreadsheets/d/1aScOsX9DQFNX3WjWv1ZOF37M6kuLmP0mQnoaypCrwB0/edit#gid=0

 

[Thành Công WRU 3]

cảm ơn anh, em đã hiểu ra vấn đề rồi, và vbCr là thay cho phím cách phải không anh ?

[dinhvantrang 151]

38 phút trước, Thành Công WRU đã nói:

cảm ơn anh, em đã hiểu ra vấn đề rồi, và vbCr là thay cho phím cách phải không anh ?

 

Tương đương phím Enter luôn