|
|
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图上，右键，然后选择位置，里面会
出现有当前坐标，我就是需要这个坐标）
请问，该如何，才能实现这个目的。谢谢！ |
|
置顶卡
