请问如何编程实现将在屏幕上点取的点的ID,输出到TXT文件中???????

yu-gn

陈伯雄

liujing

我不太清楚你倒底想要什么，请说得详细一点。

yu-gn

好似CAD的ID查询命令,怎样实现用CTRL+鼠标左键拾取屏幕上的点,而将此点的X,Y坐标输出到TXT文件中?????

leeyeafu

Ctrl+鼠标左键在ACAD中已经有定义，但VBA提供了AcadDocument_BeginDoubleClick和AcadDocument_BeginRightClick事件，可不可以用双击或右击代替Ctrl+鼠标左键呢？或者VBA提供的其它AcadDocument事件？

陈伯雄

yu-gn

我就是不知道拾取点坐标后,怎样能通过编程实现输出到文本文件中
private sub acaddocument_begindoubleclick(byval pickpoint as variant)
msgbox "图上双击坐标位置" & vbcrlf &pickpoint(0) & vbcrlf &pickpoint(1) & _ vbcrlf & pickpoint(2)
end sub
以上程序怎样才能输出到TXT中??????

leeyeafu

以下是示例代码：
Private Sub AcadDocument_BeginDoubleClick(ByVal pPoint As Variant)
Open "MyTest.txt" For Output Access Write As #1  '打开文件 MyTest.txt，用于输出，只能写入，文件号为1
Print #1 pPoint(0),pPoint(1),pPoint(2)  '向文件号为1的文件输出三个变量值，Print语句的输出格式好象与早期BASIC语言的PRINT语句类似，自己看看VB帮助，另Write #语句也可以做到输出到文件，与Print #语句有些小区别
Close #1　　'千万别忘记关闭文件
End Sub

yu-gn

yu-gn

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
上面的程序只能实现将坐标输出一次，而第二次双击时，会将第一次的坐标值覆盖，有什么办法可以实现连续点选输出而不覆盖吗？？？？？？