lpc9999 发表于 2007-6-13 21:17:00

为什么用vb打开cad会出两个cad,并且会出现cad帮助

<h4>为什么用vb打开cad会出两个cad,并且会出现cad帮助</h4><div class="tpc_content">Private Sub Command1_Click()<br/>Shell "E:\CAD2005\acad.exe", vbMaximizedFocus&nbsp; &nbsp; &nbsp; &nbsp; '(打开cad )<br/>SendKeys "{enter}", True<br/>SendKeys "appload", True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '(加载lisp程序)<br/>SendKeys "{enter}", True<br/>SendKeys "\aa.lsp", True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '(调用lisp程序)<br/>SendKeys "{enter}", True<br/>SendKeys "{esc}", True<br/>SendKeys "aa", True<br/>SendKeys "{enter}", True<br/>SendKeys "200,200", True&nbsp; &nbsp; &nbsp; '(数据输入 )<br/>SendKeys "{enter}", True<br/>SendKeys "100,100", True<br/>SendKeys "{enter}", True<br/>End Sub<br/>大家帮看看这段有什么问题啊! 为什么会打开好几个cad啊<br/><br/>aa.lisp:<br/>(defun c:aa()<br/>(setq p1 (getpoint"点1:"))<br/>&nbsp; (setq p2 (getpoint"点2:"))<br/>&nbsp; (command "line" p0 p1 "")<br/>&nbsp; )<br/>怎么看都觉的没什么问题啊!<br/>大家帮帮忙啊</div><div class="tpc_content">看出问题的,我请吃饭啊!</div>

烟雨.江南 发表于 2007-6-14 08:21:00

<p>嗯，这样用VB调用CAD的，我似乎是第一次见到。 光看代码好象看不出为什么会出现两个CAD实例，但紧跟着Shell的那个Enter，是打开CAD帮助的原因。</p>

lpc9999 发表于 2007-6-14 13:16:00

<p>谢谢啊,那一般vb都用什么命令打开CAD并加载程序啊?</p>
页: [1]
查看完整版本: 为什么用vb打开cad会出两个cad,并且会出现cad帮助