[求助]有多个autocad时，如何传送命令到所有autocad或指定的？

xiaoyingzi

有多个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

gulong2001

http://hi.baidu.com/kakanimo/blo ... fc475fccbf1ad2.html

xiaoyingzi

谢谢楼上的答复，可能楼上的没理解我的意思，我的意思是当已经打开多个acad，这个acad
可能是同一版本，可能是同版本，这时如何把命令传送到各个acad或正在激活状态的acad