如何在CAD中任取一点输出其相应坐标
<p>我是新手,刚刚开始学VBA,求教如何在CAD中任取一点输出其相应坐标</p><p>谢谢大家</p> <p></p><p>Dim Pnt1 As Variant<br/> Pnt1 = ThisDrawing.Utility.GetPoint(, vbCr & "选择第一点:")<br/>MsgBox "x=" & Pnt1(0) & " " & "y=" & Pnt1(1)</p> 3Q楼上 THANKS <p>Dim Pnt1 As double</p><p>会更节省资源</p> <p>使用getpoint方法ThisDrawing.Utility.GetPoint</p> 试试看
页:
[1]