关于VB对AutoCAD的控制

cag

怎么在一个VB做的窗体中控制AutoCAD窗口获得焦点？和VB窗体自身焦点的获取？
也就是说，在VB窗体中点了一个GetPoint的函数后就使AutoCAD窗体获得焦点，执行完后，再使该VB窗体获得焦点。 或者是怎么获取正在运行的AutoCAD窗口的句柄，其他的就好解决了。 总之一句话：怎样用VB控制AutoCAD，使其成为焦点?

mccad

AutoCAD的句柄可以用HWND 属性获得。

cag

呵呵，好久没有去用VB了，忘记得差不多了，明总能否给个例子？

zfbj

如果在VBA中，可以参考明总写的修改AutoCAD窗口标题名称程序： Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long Sub SetAcadTitle()
Dim hw&
hw = GetParent(GetParent(ThisDrawing.hwnd))
SetWindowText hw, "明经通道 http://www.mjtd.com"
End Sub

cag

zfbj发表于2004-6-10 15:21:00如果在VBA中，可以参考明总写的修改AutoCAD窗口标题名称程序： Declare Function SetWindowText Lib \"user32\" Alias \"SetWindowTextA\" (ByVal hwnd As Long, ...

在VBA中就不用特地去获取AutoCAD的焦点了。 这只是一个也简单的API函数啊，大家都不记得了吗？