动态获取鼠标经过点的三维坐标

xwjljh

如果通过VB.NET来实现动态获取鼠标经过点的三维坐标呀？

谢谢

雪山飞狐_lzh

Jig不行么？

你要实现什么功能，说清楚点？

xinghesnak

Up,卢版主，他的意思是实时获得CAD主窗体里光标的空间三维坐标，这个用JIG肯定能实现的，不过我想把这个功能用VB.NET做成控件（用来替代ACADX.arx的相应功能)，供VB6调用，好像因为不能直接生成Com控件，不知道版主大哥有啥好的建议没有？曲线救国也行啊

雪山飞狐_lzh

老卢是ahlzl，：）

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=75796

这里的

七、实现Com接口

试试？

xwjljh

JIG??

可否具体讲一讲呀？谢谢了

雪山飞狐_lzh

先看看这里吧

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=75618

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=75768

sailorcwx

2. Imports Autodesk.AutoCAD.EditorInput
3. Imports Autodesk.AutoCAD.Runtime
4. Imports Autodesk.AutoCAD.ApplicationServices
5. Imports Autodesk.AutoCAD.DatabaseServices
6. Public Class Class1
7.     <CommandMethod("test")> Public Sub test()
8.         Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
9.         AddHandler Ed.PointMonitor, New PointMonitorEventHandler(AddressOf Getpoint)
10.     End Sub
11.     Public Sub Getpoint(ByVal sender As Object, ByVal e As PointMonitorEventArgs)
12.         Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
13.         Ed.WriteMessage(vbNewLine & e.Context.ComputedPoint.X)
14.         'RemoveHandler Ed.PointMonitor, AddressOf Getpoint
15.     End Sub
16. End Class

Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Public Class Class1     <CommandMethod("test")> Public Sub test()         Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor         AddHandler Ed.PointMonitor, New PointMonitorEventHandler(AddressOf Getpoint)     End Sub     Public Sub Getpoint(ByVal sender As Object, ByVal e As PointMonitorEventArgs)         Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor         Ed.WriteMessage(vbNewLine & e.Context.ComputedPoint.X)         'RemoveHandler Ed.PointMonitor, AddressOf Getpoint     End Sub End Class

sailorcwx

2. Imports Autodesk.AutoCAD.EditorInput
3. Imports Autodesk.AutoCAD.Runtime
4. Imports Autodesk.AutoCAD.ApplicationServices
5. Imports Autodesk.AutoCAD.DatabaseServices
6. Public Class Class1
7.     <CommandMethod("test")> Public Sub test()
8.         Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
9.         AddHandler Ed.PointMonitor, New PointMonitorEventHandler(AddressOf Getpoint)
10.     End Sub
11.     Public Sub Getpoint(ByVal sender As Object, ByVal e As PointMonitorEventArgs)
12.         Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
13.         Ed.WriteMessage(vbNewLine & e.Context.RawPoint.X)
14.         'RemoveHandler Ed.PointMonitor, AddressOf Getpoint
15.     End Sub
16. End Class

Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Public Class Class1     <CommandMethod("test")> Public Sub test()         Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor         AddHandler Ed.PointMonitor, New PointMonitorEventHandler(AddressOf Getpoint)     End Sub     Public Sub Getpoint(ByVal sender As Object, ByVal e As PointMonitorEventArgs)         Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor         Ed.WriteMessage(vbNewLine & e.Context.RawPoint.X)         'RemoveHandler Ed.PointMonitor, AddressOf Getpoint     End Sub End Class

hnfsf

向各位大侠学习，多多指教。。。