|
Public Function CalcPoint(ByVal ZMatr As Integer, _
ByRef minedBlock() As Integer) As AcadDictionary
Dim XMatr, YMatr As Integer
Dim ptDict As AcadDictionary
XMatr = UBound(minedBlock) - 1
.......
.......
Set CalcPoint = ptDict
End Function
Public Sub DrawOpenPit()
Dim XMatr, YMatr, ZMatr
Dim ptOpenPit As AcadDictionary
Dim minedBlock(47, 29, 25) As Integer
.......
ptOpenPit = CalcPoint(0, minedBlock(47, 29, 25))
.........
End Sub
为什么我一编译的时候,就说 “参数不可选”? |
|