如何在用户表单中显示坐标
我将在vba中创建一个代码，将旧代码替换为新代码，在旧代码中协调在Massagebox上显示的对象，但对于新代码，我想在userform上替换，例如我有一条从坐标0,0,0到10,5,0的线。如何显示坐标起点和终端？
在这里我的旧代码
Sub sgcc()
Dim ObjEnt As AcadEntity
Dim Pt As Variant
ThisDrawing.Utility.GetEntity ObjEnt, Pt, "Pick an object"
Dim PtX As Double
Dim PtY As Double
Dim PtZ As Double
PtX = Pt(0)
PtY = Pt(1)
PtZ = Pt(2)
MsgBox "Coordinate X is = " & PtX _
& vbCr & "Coordinate X is = " & PtY _
& vbCr & "Coordinate X is = " & PtZ
End Sub
**** Hidden Message ***** 类似dist命令的东西？
测量两点之间的距离和角度 感谢回复，我的意思是这样
Private Sub TextBox1_Change()
"what code for place coordinate"
End Sub
并查看附加文件。
您是要在框中键入坐标还是选取实体并将其拾取的点放在框中？ 是的，正确的“选择实体，并让它将选择的点放入框中”
嗨，
这里的新代码显示坐标线的起点和终点，但很抱歉，这仍然是错误，它显示这样的错误“运行时”错误424:需要对象”，你能指导我修复它吗？
' ppdc is stand for Pick Line Display Coordinates
' Design by: Adesu
' Email : adesu@tentangcad.com
' adesu@telkom.net
' abahadethea@yahoo.co.id
' Homepage : http://cadesu.multiply.com
' Create : 22 February 2010
' Program no.: 00xx/02/2010
' Edit by :
Sub pldc()
Dim objPicked As AcadLine
Dim Pt As Variant
ThisDrawing.Utility.GetEntity objPicked, Pt, "Pick an object line"
UserForm1.TextBox1.text = objPicked.StartPoint(0)
UserForm1.TextBox2.text = objPicked.StartPoint(1)
UserForm1.TextBox3.text = objPicked.StartPoint(2)
UserForm1.TextBox4.text = objPicked.EndPoint(0)
UserForm1.TextBox5.text = objPicked.EndPoint(1)
UserForm1.TextBox6.text = objPicked.EndPoint(2)
UserForm1.Show
End Sub
这里是用户表单的代码代码3]
由于以下原因，用户表单代码将提供错误消息“运行时错误 424：需要对象”。
Private Sub CommandButton1_Click（）
objPicked.StartPoint（0） = TextBox1.Visible
objPicked 不是全局引用变量，因此不能在此 SUB 中使用，因此会出现错误消息。
此外，Adesu 提供的示例代码尝试设置表单控件的可见性 = 起始点和终结点值。 不知道为什么要这样做，但既然是这样，所有值都将是 的二进制结果。对每个文本框控件可见。 示例代码将起点和端点都设置为 -1，-1，-1，这并不好，一行不能将端点和起点放在空间中的同一位置。
页:
[1]