Dim AcadApp As AcadApplication

Private Sub Command1_Click()
Dim circleObj As AcadCircle
Dim centerpoint(0 To 2) As Double
Dim radius As Double
centerpoint(0) = 0: centerpoint(1) = 0: centerpoint(2) = 0
radius = Val(Text1.Text) / 2
Set circleObj = AcadApp.ActiveDocument.ModelSpace.AddCircle(centerpoint, radius)
ZoomAll
centerpoint(0) = 0: centerpoint(1) = 0: centerpoint(2) = 0
radius = Val(Text2.Text) / 2
Set circleObj = AcadApp.ActiveDocument.ModelSpace.AddCircle(centerpoint, radius)
ZoomAll
Dim lineObj As AcadLine
Dim Startpoint(0 To 2) As Double
Dim Endpoint(0 To 2) As Double
Startpoint(0) = 600: Startpoint(1) = 0: Startpoint(2) = 0
Endpoint(0) = 600: Endpoint(1) = Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
ZoomAll
Startpoint(0) = 600: Startpoint(1) = Val(Text1.Text) / 2: Startpoint(2) = 0
Endpoint(0) = 600 + Val(Text5.Text): Endpoint(1) = Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
ZoomAll
Startpoint(0) = 600 + Val(Text5.Text): Endpoint(1) = Val(Text1.Text) / 2: Endpoint(2) = 0:
Endpoint(0) = 600 + Val(Text5.Text): Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
ZoomAll
Startpoint(0) = 600: Startpoint(1) = 0: Startpoint(2) = 0
Endpoint(0) = 600: Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
ZoomAll
Startpoint(0) = 600: Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Endpoint(0) = 600 + Val(Text5.Text): Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
ZoomAll
End Sub

Private Sub Form_Load()
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set AcadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox ("不能运行AutoCAD 2007,请检查是否安装了AutoCAD 2007")
Exit Sub
End If
End If
AcadApp.Visible = True
End Sub
有点长，请耐心看看

记得描述问题

好嘞，嘿嘿，谢谢师傅，，，，，这样的，，我想画一个矩形，但是在画最后一条线的时候怎么都画不上，坐标没问题，画的线总是和我画那个矩形的起始画点连接

Startpoint(0) = 600 + Val(Text5.Text): Endpoint(1) = Val(Text1.Text) / 2: Endpoint(2) = 0:
Endpoint(0) = 600 + Val(Text5.Text): Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
ZoomAll
Startpoint(0) = 600: Startpoint(1) = 0: Startpoint(2) = 0
Endpoint(0) = 600: Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
ZoomAll
Startpoint(0) = 600: Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Endpoint(0) = 600 + Val(Text5.Text): Endpoint(1) = -Val(Text1.Text) / 2: Endpoint(2) = 0:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
ZoomAll
End Sub
仔细一些,自己检查不出来?你看红色部分不是startpoint而是endpoint

师傅，你没听明白我的意思，我的控件布置界面是这样的 然后就开始画 上面有我画的顺序，矩形下面红色那部分是我想画的那条线

这是我想要的

师傅，求你帮我看看吧，谢谢啦

给你说了代码红色的地方有问题
endpoint 改为startpoint