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

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

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

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

<p></p><p>Dim Pnt1 As Variant<br/>&nbsp;Pnt1 = ThisDrawing.Utility.GetPoint(, vbCr &amp; "选择第一点:")<br/>MsgBox "x=" &amp; Pnt1(0) &amp; "&nbsp; " &amp; "y=" &amp; Pnt1(1)</p>

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

3Q楼上

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

THANKS

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

<p>Dim Pnt1 As double</p><p>会更节省资源</p>

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

<p>使用getpoint方法ThisDrawing.Utility.GetPoint</p>

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

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