如何在CAD中任取一点输出其相应坐标

jasper0615 · 发表于 2008-1-16 01:39:00

我是新手，刚刚开始学VBA，求教如何在CAD中任取一点输出其相应坐标

谢谢大家

cctv2cctv · 发表于 2008-1-16 07:12:00

Dim Pnt1 As Variant
nt1 = ThisDrawing.Utility.GetPoint(, vbCr & "选择第一点：")
MsgBox "x=" & Pnt1(0) & " " & "y=" & Pnt1(1)

jasper0615 · 发表于 2008-1-16 20:33:00

3Q楼上

sunny2008 · 发表于 2008-2-25 19:05:00

THANKS

ry888 · 发表于 2008-2-25 19:48:00

Dim Pnt1 As double

会更节省资源

storyst · 发表于 2008-2-26 10:53:00

使用getpoint方法ThisDrawing.Utility.GetPoint

chenzf200200 · 发表于 2008-3-2 12:33:00

试试看

账号		自动登录	找回密码
密码			注册