temp0xx 发表于 2008-6-2 09:47:00

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

<p>我想用vbscript(扩展名为.vbs)的文件，操作CAD，发送绘图命令，实现自动绘图，</p><p></p><p>请问如何实现啊</p><p></p><p>这是我写的代码：</p><p></p><p>Set objAutocadApp = Wscript.CreateObject("AutoCAD.Application")</p><p>objAutocadApp.Visible = True<br/>objAutocadApp.SendCommand("_cui" &amp; vbCr)</p><p>CAD会显示出来，但并没有执行_cui，</p><p></p><p>查了好多帖子，搞不定，</p><p></p><p>特请高手指点一二，</p><p></p><p>谢谢！！！</p><p></p>

sailorcwx 发表于 2008-6-2 16:13:00

<p>Set objAutocadApp = Wscript.CreateObject("AutoCAD.Application")<br/>objAutocadApp.Visible = True<br/>Set thisdrawing=objautocadapp.activedocument<br/>thisdrawing.SendCommand("_cui" &amp; vbCr)</p>

temp0xx 发表于 2008-6-2 17:18:00

<p>谢谢sailorcwx</p><p>终于解决了这个问题</p><p>我是要用VBS控制VHCOMPARE，实现自动比图</p><p>完成以下代码后：</p><p>objAutocadApp.Visible = True<br/>Set thisdrawing=objautocadapp.activedocument<br/>thisdrawing.SendCommand("_opendwgs" &amp; vbCr)<br/>'我想比较C:\d1.dwg和C:\d2.dwg，</p><p>CAD会弹出一个对话框"添加第一张dwg图"，</p><p>到这就无法输入C:\d1.dwg和C:\d2.dwg</p><p>有没有方法能解决这个问题？</p><p>非常感谢刚才的帮助，帮了我的大忙^_^</p>

temp0xx 发表于 2008-6-2 17:18:00

<p>谢谢sailorcwx</p><p>终于解决了这个问题</p><p>我是要用VBS控制VHCOMPARE，实现自动比图</p><p>完成以下代码后：</p><p>objAutocadApp.Visible = True<br/>Set thisdrawing=objautocadapp.activedocument<br/>thisdrawing.SendCommand("_opendwgs" &amp; vbCr)<br/>'我想比较C:\d1.dwg和C:\d2.dwg，</p><p>CAD会弹出一个对话框"添加第一张dwg图"，</p><p>到这就无法输入C:\d1.dwg和C:\d2.dwg</p><p>有没有方法能解决这个问题？</p><p>非常感谢刚才的帮助，帮了我的大忙^_^</p>

temp0xx 发表于 2008-6-2 17:24:00

<p>不好意思，</p><p></p><p>点了2次发表，</p><p></p><p>结果多发了一个</p>

664571221 发表于 2022-1-2 13:17:48

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

你好向当前激活的cad窗口发送line命令画直线怎么写 用vbs
页: [1]
查看完整版本: 怎么用vbscript操作CAD发送一个绘图命令