Question

有没有高手知道Autocad—VBA二次开发这块的？急需画直线和圆弧的源代码！！

Answer 1

‘画圆
Dim circleObj As AcadCircle
Dim centerPoint(0 To 2) As Double
Dim radius As Double
centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
radius = 5#
Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
'画直线
Dim lineObj As AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#
endPoint(0) = 5#: endPoint(1) = 5#: endPoint(2) = 0#
Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)

追问

谢谢！那圆弧怎么画啊？还有就是我做毕业设计的，要用参数化，具体课程名是 基于Autocad参数化绘图系统 ，用VBA做的，想问问你懂不懂哈？懂的话发我邮箱哈，sherryzou123@163.com
非常感谢。。。。。。

追答

什么东西发你邮箱？
Dim arcObj As AcadArc
Dim centerPoint(0 To 2) As Double
Dim radius As Double
Dim startAngleInDegree As Double
Dim endAngleInDegree As Double

centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
radius = 5#
startAngleInDegree = 10#
endAngleInDegree = 230#

Dim startAngleInRadian As Double
Dim endAngleInRadian As Double
startAngleInRadian = startAngleInDegree * 3.141592 / 180#
endAngleInRadian = endAngleInDegree * 3.141592 / 180#

Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian)

追问

就是说如果你懂VBA，会做 “基于Autocad参数化绘图系统” 的话就发个邮件给我，我有问题问，我要做毕业设计，如果你会的话教我啊！有赏。。。