|
Private Sub AcadDocument_BeginDoubleClick(ByVal pPoint As Variant)
MsgBox "图上双击坐标位置" & vbCrLf & pPoint(0) & vbCrLf & _
pPoint(1) & vbCrLf & pPoint(2)
Open "MyTest.txt" For Output Access Write As #1
Print #1, Format(pPoint(0), "0.000"), Format(pPoint(1), "0.000"),_
Format(pPoint(2), "0.000")
Close #1
End Sub
上面的程序只能实现将坐标输出一次,而第二次双击时,会将第一次的坐标值覆盖,有什么办法可以实现连续点选输出而不覆盖吗?????? |
|