如何用Excel的VBA切换到CAD程序？模拟ALT+TAB功能.

2009-08-04 12:14:31 670 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

批量插入CAD块及标注（带程序运行计时功能） '说明： '1、autocad 2010版本以下自带VBA编辑器，2010版本以上需要自行下载 '2、按住ALT+F11，打开vba编辑器，工具-引用，勾选microsoft excel library '3、批量插入块时，需要提前插入块然后再删除，目的是让系统知道块的名字 '4、文字样式需提前设置，设置成什么样式，插入时就是什么样式 ' ' '=============== Sub ExcelR... 阅读详情

在网上找了一下,要实现这个目的.
先用HANDLE hWnd = FindWindow(....)找到该程序的窗口,然后使用SendMessage(hwnd, WM_ACTIVEAPP,....)
或是SetForgroudWindow(hWnd, ....)就可以了,相激活自己也一样
请问各位大侠的问题是不是按hWnd = FindWindow(....)查找相关资料进行学习,才能实现目标需求.谢谢.

excel调用cad程序如下
Function ConnectCad() As AcadApplication
Dim App As AcadApplication
On Error Resume Next
Set App = GetObject(, "AutoCad.Application")
If Err Then
Err.Clear
Set App = CreateObject("AutoCad.Application")
End If
App.Visible = True
Set ConnectCad = App
End Function
excel调用CAD的关键语句,GetObject(, "AutoCad.Application")和CreateObject("AutoCad.Application")
用此模块程序的结果是,在excel中运行CAD只能看到EXCEL程序,要切换到CAD,须点击CAD图标,或alt+tab切换,才能实现目标需求.

...全文