[VBA]如何连续画同心圆？

qkdgx

AutoCAD一次只能画一个圆，如何编程实现输入半径连续的画同心圆？

王咣生

在一个循环中让半径值在一定范围内递增或递减,在同一圆心处画就可以了?

qkdgx

可能是我没有说得明白吧，是交互的画，输入一个半径就画一个，直到结束该命令，就像CAXA中的画圆命令。请哪位高手指点一下，最好也能把程序传上来看一下，谢谢了！

王咣生

写了一段: Sub test()
On Error GoTo ERRORHANDLER
Dim returnPnt As Variant
returnPnt = ThisDrawing.Utility.GetPoint(, "选择圆心位置: ")

Dim returnReal As Double
Dim circleObj As AcadCircle

returnReal = ThisDrawing.Utility.GetReal("输入圆半径: ")

While returnReal > 0
Set circleObj = ThisDrawing.ModelSpace.AddCircle(returnPnt, returnReal)
returnReal = ThisDrawing.Utility.GetReal("输入圆半径: ")
Wend

Exit Sub
ERRORHANDLER:
' MsgBox Err.Description
End Sub

qkdgx

版主果然厉害，谢谢了！不过这个功能好像不是很完善，开始选圆心的时候不能用捕捉来选择圆心，移动鼠标的时候看不见圆大小的变化，看来还要改善一下才能写进autocad的标准去。

zfbj

用SendCommand方法发送Multiple命令吧，VBA本身不能实现拖动的效果。

qkdgx

SendCommand方法发送Multiple        是如何用的？