怎么用vbscript操作CAD发送一个绘图命令

temp0xx

我想用vbscript(扩展名为.vbs)的文件，操作CAD，发送绘图命令，实现自动绘图，

请问如何实现啊

这是我写的代码：

Set objAutoCADApp = Wscript.CreateObject("AutoCAD.Application")

objAutocadApp.Visible = True
objAutocadApp.SendCommand("_cui" & vbCr)

CAD会显示出来，但并没有执行_cui，

查了好多帖子，搞不定，

特请高手指点一二，

谢谢！！！

sailorcwx

Set objAutocadApp = Wscript.CreateObject("AutoCAD.Application")
objAutocadApp.Visible = True
Set thisdrawing=objautocadapp.activedocument
thisdrawing.SendCommand("_cui" & vbCr)

temp0xx

谢谢sailorcwx

终于解决了这个问题

我是要用VBS控制VHCOMPARE，实现自动比图

完成以下代码后：

objAutocadApp.Visible = True
Set thisdrawing=objautocadapp.activedocument
thisdrawing.SendCommand("_opendwgs" & vbCr)
'我想比较C:\d1.dwg和C:\d2.dwg，

CAD会弹出一个对话框"添加第一张dwg图"，

到这就无法输入C:\d1.dwg和C:\d2.dwg

有没有方法能解决这个问题？

非常感谢刚才的帮助，帮了我的大忙^_^

temp0xx

谢谢sailorcwx

终于解决了这个问题

我是要用VBS控制VHCOMPARE，实现自动比图

完成以下代码后：

objAutocadApp.Visible = True
Set thisdrawing=objautocadapp.activedocument
thisdrawing.SendCommand("_opendwgs" & vbCr)
'我想比较C:\d1.dwg和C:\d2.dwg，

CAD会弹出一个对话框"添加第一张dwg图"，

到这就无法输入C:\d1.dwg和C:\d2.dwg

有没有方法能解决这个问题？

非常感谢刚才的帮助，帮了我的大忙^_^

temp0xx

不好意思，

点了2次发表，

结果多发了一个

664571221

sailorcwx 发表于 2008-6-2 16:13
Set objAutocadApp = Wscript.CreateObject("AutoCAD.Application")objAutocadApp.Visible = TrueSet thisd ...

你好向当前激活的cad窗口发送line命令画直线怎么写 用vbs