VB 如何获知CAD中鼠标点击事件

BigJue

如题,我现在已经将AutoCAD嵌入VB Form窗口,接着遇到一个问题,当我点击cad模型中某个位置时,外面的Form窗体如何获知这个事件

backarmy

我也很想知道啊!也急用!

BigJue

我现在的方法是通过生成一个定时器,每隔一定的时间去查询pickfirstSelectionset来处理一些事情,效率还算可以.但是当选中的object较多,做的操作复杂时,性能会很差.你不妨试试

雪山飞狐_lzh

恐怖的方法：），不知道你想实现什么样的功能？

kjb

怎么样将cad嵌入到vb中啊，大哥，帮帮我吧

cottage

BigJue大哥，我也想将cad嵌入到vb中啊，能否教教我啊，不胜感激我的qq号是84365924

vzzll

'将cad嵌入到vb中
Option Explicit Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private lHwnd As Long Private Sub Form_Load()

On Error GoTo ErrTrap
Dim acadApp As Object
Set acadApp = CreateObject("AutoCAD.Application")
acadApp.Visible = True
lHwnd = GetParent(GetParent(acadApp.Activedocument.hwnd))
If lHwnd = 0 Then Exit Sub
SetParent lHwnd, Form1.hwnd
Exit Sub

ErrTrap:
On Error GoTo 0
End Sub Private Sub Form_Unload(Cancel As Integer)
If lHwnd = 0 Then Exit Sub
SetParent lHwnd, 0
End Sub
转自efan2000

mikewolf2k

太感谢了！