急：在Delphi中 如何定义 outerLoop(0 To 0) As AcadEntity？多谢
清指教下面的程序段，用Delphi 如何定义 outerLoop(0 To 0) As AcadEntity：
创建关联阴影对象
Set hatchObj = ThisDrawing.ModelSpace.AddHatch _
(PatternType, patternName, bAssociativity)
' 为阴影创建外部边界(一个圆)。
Dim outerLoop(0 To 0) As AcadEntity
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 3: center(1) = 3: center(2) = 0
radius = 1
Set outerLoop(0) = ThisDrawing.ModelSpace. _
AddCircle(center, radius)
' 附加外部边界到阴影对象，
' 并显示阴影
hatchObj.AppendOuterLoop (outerLoop)
hatchObj.Evaluate
ThisDrawing.Regen True
页:
[1]