cag 发表于 2004-6-9 14:47:00

关于VB对AutoCAD的控制

本帖最后由 作者 于 2004-6-9 16:08:51 编辑 <br /><br /> 怎么在一个VB做的窗体中控制AutoCAD窗口获得焦点？和VB窗体自身焦点的获取？<BR>也就是说，在VB窗体中点了一个GetPoint的函数后就使AutoCAD窗体获得焦点，执行完后，再使该VB窗体获得焦点。



或者是怎么获取正在运行的AutoCAD窗口的句柄，其他的就好解决了。


总之一句话：怎样用VB控制AutoCAD，使其成为焦点?

mccad 发表于 2004-6-9 22:10:00

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

cag 发表于 2004-6-10 07:45:00

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

zfbj 发表于 2004-6-10 15:21:00

如果在VBA中，可以参考明总写的修改AutoCAD窗口标题名称程序：


Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long<BR>Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long





Sub SetAcadTitle()<BR>                Dim hw&amp;<BR>                hw = GetParent(GetParent(ThisDrawing.hwnd))<BR>                SetWindowText hw, "明经通道 http://www.mjtd.com"<BR>End Sub

cag 发表于 2004-6-10 15:53:00

zfbj发表于2004-6-10 15:21:00static/image/common/back.gif如果在VBA中，可以参考明总写的修改AutoCAD窗口标题名称程序：



Declare Function SetWindowText Lib \"user32\" Alias \"SetWindowTextA\" (ByVal hwnd As Long, ...


<BR>在VBA中就不用特地去获取AutoCAD的焦点了。


这只是一个也简单的API函数啊，大家都不记得了吗？<IMG title=em06 style="CURSOR: pointer" onclick='putEmot("em06");' src="Skins/Default/emot/em06.gif">
页: [1]
查看完整版本: 关于VB对AutoCAD的控制