Question

如何用acad vba 用户窗体画条直线？用户窗体是如何控制cad的操作的？

Answer 1

Call ThisDrawing.ModelSpace.AddLine(p1, p2)
这是画线语句

Sub myl()
Dim p1 As Variant '申明端点坐标
Dim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
z = ThisDrawing.Utility.GetReal("Z坐标:") '用户输入Z坐标值
p1(2) = z '将Z坐标值赋予点坐标中
On Error GoTo Err_Control '出错陷井
Do '开始循环
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:") '获取下一个点的坐标
z = ThisDrawing.Utility.GetReal("Z坐标:") '用户输入Z坐标值
p2(2) = z '将Z坐标值赋予点坐标中
Call ThisDrawing.ModelSpace.AddLine(p1, p2) '画直线
p1 = p2 '将第二点的端点保存为下一条直线的第一个端点坐标
Loop
Err_Control:
End Sub
上面这个是全部程序

用户窗体就是通过命令来实现cad操作。

追问

具体是怎样操作？兄台程序是在模块里做的，这个我是知道的，只要加载宏便可运行，但用户窗体具体是怎么做的呢？

追答

要向控件中添加代码，只需双击已放置在窗体上的控件即可。这将会打开控件的“代码”窗口。

先做好一个宏，将控件放在用户窗体中，双击后写入宏名或者宏代码都可以的，运行后就点击控件 就ok

追问

Private Sub CommandButton1_Click()
这里边如何添加，把上边的程序复制进去也不行呀，怎么办呢？
End Sub

追答

Private Sub CommandButton1_Click()
Dim p1 As Variant '申明端点坐标
Dim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
z = ThisDrawing.Utility.GetReal("Z坐标:") '用户输入Z坐标值
p1(2) = z '将Z坐标值赋予点坐标中
On Error GoTo Err_Control '出错陷井
Do '开始循环
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:") '获取下一个点的坐标
z = ThisDrawing.Utility.GetReal("Z坐标:") '用户输入Z坐标值
p2(2) = z '将Z坐标值赋予点坐标中
Call ThisDrawing.ModelSpace.AddLine(p1, p2) '画直线
p1 = p2 '将第二点的端点保存为下一条直线的第一个端点坐标
Loop
Err_Control:

End Sub

貌似这样的啊

追问

运行时错误'-2147457259(80004005)'
方法'getpoint'作用于对象'iacadutility'时失败
出现了以上的情况,咋办呀？

追答

497983161加我

追问

好，谢谢兄台。