Làm sao vẽ hình nón trong CAD mà nó quay đầu xuống

[LearnExcel]

Tôi đang làm ứng dụng trong CAD- VBA, tới đoạn vẽ Cone bằng Addcone(Point, R, H) nhưng chỉ được hình côn quay đầu lên, phải làm thêm 1 động tác là Rotate hay Mirror3D, tốn thêm một số đoạn code nữa. Vậy có cách nào chỉ hướng của cone này ngay không, mong anh em chỉ giúp!
Xin cảm ơn trước.

 

[nvson]

Dùng AddCone thì hình nón luôn luôn quay lên.
Anh dùng lệnh UCS kết hợp với lệnh AI_Cone là tạo ra được ngay thôi!
Đay là đoạn code tạo hình nón ngược:

Public Sub AI_CONE_GPE()
    ThisDrawing.SendCommand "-VIEW" & vbCr & "swiso" & vbCr
    ThisDrawing.SendCommand "UCS" & vbCr & "x" & vbCr & "180" & vbCr
    ThisDrawing.SendCommand "AI_CONE" & vbCr & "0,0,0" & vbCr & "2" & vbCr & "0" & vbCr & "10" & vbCr & vbCr
    ThisDrawing.SendCommand "UCS" & vbCr & vbCr
End Sub

 

[LearnExcel]

Cảm ơn Sơn nhiều, hôm trước anh định gọi cho em hỏi nhưng đó la lúc trưa nên nghĩ không tiện. Về món Cad VBA, anh mới ở mức Beginer, có gì "tư vấn" miễn phí cho anh em nhé! cảm ơn nhiều!

À mà mình tìm tài liệu về mấy lệnh AI_*** này mà chưa thấy trong Help?