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

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

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

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

Dim Pnt1 As Variant
&nbspnt1 = 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

试试看
页: [1]
查看完整版本: 如何在CAD中任取一点输出其相应坐标