Programación en AUTOCAD VBA (muy sencilla)

Sub addrectangle()

kuan = ThisDrawing.Utility.GetReal("Ancho del rectángulo")

gao = ThisDrawing.Utility.GetReal("Alto del rectángulo" )

pt = ThisDrawing.Utility.GetPoint(, "coordenada de la esquina superior izquierda")

drawbox pt, kuan, gao

End Sub

Función drawbox(pt, ancho, alto) Como AcadLWPolyline

Dim boxp(0 a 7) Como Doble

boxp(0) = pt(0): boxp(1 ) = pt(1) 'Esquina superior izquierda

boxp(2) = pt(0): boxp(3) = pt(1) - altura 'Esquina inferior izquierda

boxp (4) = pt(0) + ancho: boxp(5) = pt(1) - alto 'Esquina inferior derecha

boxp(6) = pt(0) + ancho: boxp(7) = pt(1) 'Esquina superior derecha

Establecer drawbox = ThisDrawing.ModelSpace.AddLightWeightPolyline(boxp)

drawbox.Closed = True

Función final