求助！！！！
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
上面的程序只能实现将坐标输出一次，而第二次双击时，会将第一次的坐标值覆盖，有什么办法可以实现连续点选输出而不覆盖吗？？？？？？
Open 语句的Output改为Append即可。
页:
[1]