[求助]有多个autocad时，如何传送命令到所有autocad或指定的？
本帖最后由 xiaoyingzi 于 2011-1-7 14:43 编辑有多个autocad时，如何传送命令到所有autocad或指定的？
用GetObject和ThisDrawing.SendCommand 只能传送命令到第一个运行的autocad，因为GetObject默认第一个运行的autocad，
如何传送命令到所有autocad或正在激活状态的autocad？
下面是部分vbs源码
Set objCAD = GetObject(, "AutoCAD.Application")
Set ThisDrawing = objCAD.activedocument
ThisDrawing.SendCommand ("(if (member ""tch_initstart.arx"" (arx))(command ""tmnload""))(princ)" & vbCr)
试过用Object.Documents.Item(index)也不行
Set ObjCAD = GetObject(, "AutoCAD.Application")
count = ObjCAD.Documents.count
For index = 0 To count - 1
set ThisDrawing=ObjCAD.Documents.Item(index)
ThisDrawing.SendCommand ("(if (member ""tch_initstart.arx"" (arx))(command ""tmnload""))(princ)" & vbCr)
Next
http://hi.baidu.com/kakanimo/blog/item/9126bfdf53fc475fccbf1ad2.html 谢谢楼上的答复，可能楼上的没理解我的意思，我的意思是当已经打开多个acad，这个acad
可能是同一版本，可能是同版本，这时如何把命令传送到各个acad或正在激活状态的acad
页:
[1]