autocad中如何用vba画圆角矩形

您好，是这样的：

1.先是画一个矩形用“L”在输入长度画出一个所需要的矩形。

2.倒4个圆角 其实方法就都一样 输入fillet命令 再输入“R ”后输入你想要倒圆角的半径（一般都会给出）再选择需要倒圆角的2条边就行了 其他3个圆角方法一样。

你试试以下的句子，也许会有帮助：

Sub Example_GetCorner()

Dim returnPnt As Variant

Dim basePnt(0 To 2) As Double

basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0#

returnPnt = ThisDrawing.Utility.GetCorner(basePnt, "Enter Other corner: ")

MsgBox "The point picked was " &returnPnt(0) &", " &returnPnt(1) &", " &returnPnt(2), , "GetCorner Example"

End Sub

＝＝＝＝＝＝＝＝＝祝你写程序愉快

---