Question

AUTOCAD VBA编程（很简单）

求一程序，输入俩参数 长和宽 就能自动生成矩形。。。。

Answer 1

Sub addrectangle()
kuan = ThisDrawing.Utility.GetReal("矩形宽")
gao = ThisDrawing.Utility.GetReal("矩形高")
pt = ThisDrawing.Utility.GetPoint(, "左上角坐标")
drawbox pt, kuan, gao
End Sub
Function drawbox(pt, width, height) As AcadLWPolyline
Dim boxp(0 To 7) As Double
boxp(0) = pt(0): boxp(1) = pt(1) '左上角
boxp(2) = pt(0): boxp(3) = pt(1) - height '左下角
boxp(4) = pt(0) + width: boxp(5) = pt(1) - height '右下角
boxp(6) = pt(0) + width: boxp(7) = pt(1) '右上角
Set drawbox = ThisDrawing.ModelSpace.AddLightWeightPolyline(boxp)
drawbox.Closed = True
End Function

Answer 2

这个比较复杂， 先做个USERFORM 上面画两个text 和一个command 在command里编写代码 代码就是画四条直线