如何在用户表单中显示坐标

Adesu · 发表于 2009-9-16 03:26:46

我将在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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Humbertogo · 发表于 2009-10-23 03:10:56

类似dist命令的东西？
测量两点之间的距离和角度

Adesu · 发表于 2009-10-23 08:30:26

感谢回复，我的意思是这样

copy

Private Sub TextBox1_Change()
"what code for place coordinate"
End Sub

并查看附加文件。

Adesu · 发表于 2009-10-23 09:27:00

您是要在框中键入坐标还是选取实体并将其拾取的点放在框中？

Adesu · 发表于 2009-10-23 21:28:13

是的，正确的“选择实体，并让它将选择的点放入框中”

bsardeson · 发表于 2010-2-21 21:25:07

嗨，
这里的新代码显示坐标线的起点和终点，但很抱歉，这仍然是错误，它显示这样的错误“运行时”错误424:需要对象”，你能指导我修复它吗？

copy

' 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]

Humbertogo · 发表于 2010-12-27 10:55:23

由于以下原因，用户表单代码将提供错误消息“运行时错误 424：需要对象”。
Private Sub CommandButton1_Click（）
objPicked.StartPoint（0） = TextBox1.Visible
objPicked 不是全局引用变量，因此不能在此 SUB 中使用，因此会出现错误消息。
此外，Adesu 提供的示例代码尝试设置表单控件的可见性 = 起始点和终结点值。不知道为什么要这样做，但既然是这样，所有值都将是的二进制结果。对每个文本框控件可见。示例代码将起点和端点都设置为 -1，-1，-1，这并不好，一行不能将端点和起点放在空间中的同一位置。

如何在用户表单中显示坐标

发表回复

精选推荐