Public Sub kostka()

Dim Px As Variant

Px = ThisDocument.Utility.GetPoint(, "wskaż punkt :")

Dim sześcian As Zwcad3DSolid

Dim szerokosc As Double

Dim dlugosc As Double

Dim wysokosc As Double

szerokosc = 10

dlugosc = 15

wysokosc = 20

Set sześcian = ThisDocument.ModelSpace.AddBox(Px, szerokosc, dlugosc, wysokosc)

ThisDocument.Regen

'wstawia kostkę której środekwskazuje punkt Px

End Sub

---