Private Sub CommandButton1_Click()
End Sub
Function vector(a, b, c) As Variant
Dim d(2) As Double
d(0) = a
d(1) = b
d(2) = c
vector = d
End Function
'Function rect(x As Double, xh As Double, y As Double, z As Double) As Variant
'Dim l As AcadLine
'Dim sp(2) As Double
'Dim epv(2) As Double
'Dim eph(2) As Double
'sp = vector(x, xh, 0)
'epv = sp + vector(0, y, 0)
'eph = sp + vector(z, 0, 0)
'Set l = ThisDrawing.ModelSpace.AddLine(sp, eph)
'Set l = ThisDrawing.ModelSpace.AddLine(sp, epv)
'Set l = ThisDrawing.ModelSpace.AddLine(eph, vector(eph(0), epv(1), 0))
'Set l = ThisDrawing.ModelSpace.AddLine(epv, vector(eph(0), epv(1), 0))
'Set l = Nothing
'End Function
Public Sub rec(x As Variant, h As Double, b As Double) '起点,高,长
Dim li As AcadLine
Dim sp As Variant
Dim epv As Variant
Dim eph As Variant
sp = x '矩形起点坐标,考虑下y值
epv = sum(sp, vector(0, h, 0))
eph = sum(sp, vector(b, 0, 0))
Set li = ThisDrawing.ModelSpace.AddLine(sp, eph)
Set li = ThisDrawing.ModelSpace.AddLine(sp, epv)
Set li = ThisDrawing.ModelSpace.AddLine(eph, vector(eph(0), epv(1), 0))
Set li = ThisDrawing.ModelSpace.AddLine(epv, vector(eph(0), epv(1), 0))
Set li = Nothing
bug = eph(0)
End Sub