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#) 这样赋值是用来做什么? 以上真的还请高人指点一下,小弟先谢过了!
|