|
Dim ellObj As AcadEllipse
Dim majAxis(0 To 2) As Double
Dim center(0 To 2) As Double
Dim radRatio As Double
' 在模型空间中创建椭圆
center(0) = 5#: center(1) = 5#: center(2) = 0#
majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#
radRatio = 0.3
Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)
以上代码中红色部分majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#
有些不太明白,ADDELLIPSE的第二个参数为什么要传一下数组进去,是函数要求???
它(majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#)
这样赋值是用来做什么?
以上真的还请高人指点一下,小弟先谢过了!
|
|