如何正确的实现window、dwg、dwf中的坐标相互转换！？？

武文弄墨 · 发表于 2002-6-23 18:31

whip控间里面有一个ComputeCoordinate的函数！可以实现window、dwg、dwf三个坐标中的
转换。
我的目标是将dwf上的坐标转换成为dwg内的，来用于确定图纸内器件。
编写的小程序是：
Private Sub Whip1_MouseMove(Button As Integer, Shift As Integer, x As Singl
e, y As Single)
Dim z
Text1.Text = x       　’显示whip中的x坐标
Text2.Text = y             ‘显示whip中的y坐标
z = Whip1.ComputeCoordinate(WINDOW, Source, x, y) ‘从window到dwg坐标转换
Text3.Text = z(0)          ’dwg中的x坐标
Text4.Text = z(1)          ‘dwg中的y坐标
End Sub

可惜就是行不通！（实际上，在whip里面显示的dwf图上，右键，然后选择位置，里面会
出现有当前坐标，我就是需要这个坐标）
请问，该如何，才能实现这个目的。谢谢！

账号		自动登录	找回密码
密码			注册