[原创] 巧用sendkeys 方法操作CAD内置命令窗体
本帖最后由 nonsmall 于 2013-5-13 11:39 编辑 <br /><br /> <p>长久以来 凡是带有CAD内置窗体的命令Lisp就无法调用 包括 filedia = 1 和（initdia） 情况下</p><p>如qselect命令 tablestyle命令</p><p>其实 模拟键盘操作就可以解决上面的问题 也可以一定程度代替(command)</p><p>注:ACAD2006下测试通过</p><p>by nonsmall 20090116</p><p>示例1:</p><p>代替(command)取消当前命令残留 </p><p>(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "{Esc 2}")</p><p>也可以取消CAD命令自带对话框的启动</p><p>(defun c:test()<br/> (Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand (car (list "dimstyle "<br/> (Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "{Esc 2}"))))<br/>)</p><p>示例2:</p><p>操作qselect内置窗体代替qselect 命令快速选择0层所有图元</p><p>(defun c:test()<br/> (Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand (car (list "Qselect "<br/> (Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "%p{DOWN}{Enter}"))))<br/>)</p><p>借用许可证</p><p>(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "{Esc 2}%t{Up}{Right}{Enter}%b{Enter}")</p><p>示例3:</p><p>调用透明命令的好帮手</p><p>(defun c:test()<br/> (setvar "cmdecho" 0)<br/> (setq WshShell (Vlax-Get-Or-Create-Object "WScript.Shell" ))<br/> (command "_.Line" (setq pt1(getpoint "pt1")))<br/> (Vlax-Invoke-Method WshShell 'Sendkeys "<45{Enter}")<br/> (command (getpoint pt1 "pt2") "")<br/> (vlax-release-object WshShell)<br/> (setvar "cmdecho" 1)<br/>)</p><p>请大家用其他版本测试</p><p>楼下提供sendkeys方法参考</p> 模拟QSELECT快速选择，标注测量值全局比例在某个区间的对象 LSP模拟按键代码，正在找这个！感谢分享<!--Element not supported - Type: 8 Name: #comment--> <div id="nsbanner"><div id="bannerrow1" style="MARGIN-RIGHT: -749px;"><table class="bannerparthead" cellspacing="0"><tbody><tr id="hdr"><td class="button1"></td><td class="runninghead" nowrap="nowrap">Windows 脚本宿主</td><td class="product" nowrap="nowrap"> </td></tr></tbody></table></div><div id="TitleRow" style="PADDING-RIGHT: 10px; PADDING-LEFT: 22px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px;"><h1 class="dtH1"><a name="wsmthsendkeys"></a>SendKeys 方法</h1></div></div><div class="sapop" id="sapop" style="VISIBILITY: hidden;"><h4 class="dtH4">请参阅</h4><p><a href="mk:@MSITStore:D:\0_DEVELOP\VBS\Microsoft%20Windows脚本技术.CHM::/html/wsobjwshshell.htm">WshShell 对象</a> | <a href="mk:@MSITStore:D:\0_DEVELOP\VBS\Microsoft%20Windows脚本技术.CHM::/html/wsmthrun.htm">Run 方法</a></p><!--Element not supported - Type: 8 Name: #comment--></div><!--Element not supported - Type: 8 Name: #comment--><div id="nstext" valign="bottom"><p>将一个或多个键击发送到活动窗口（仿佛是在键盘上击键一样）。</p><pre class="syntax"><i><a class="synParam" href="http://www.mjtd.com/bbs/">object</a>.<b>SendKeys</b>(<a class="synParam" href="http://www.mjtd.com/bbs/">string</a>)</pre><div class="reftip" id="reftip" style="VISIBILITY: hidden; OVERFLOW: visible; POSITION: absolute;"></div><h4 class="dtH4">参数</h4><dl><dt>object
</dt><dd>WshShell 对象。 </dd><dt>string
</dt><dd>表示要发送的键击（一个或多个）的字符串值。 </dd></dl><h4 class="dtH4">说明</h4><p>使用 SendKeys 方法可以将键击发送到无自动化界面的应用程序中。多数键盘字符都可用一个键击表示。某些键盘字符由多个键击组合而成（例如，CTRL+SHIFT+HOME）。要发送单个键盘字符，请将字符本身作为 string 参数发送。例如，要发送字母 x，则请发送 string 参数 "x"。</p><blockquote class="dtBlock"><b class="le">注意</b> 要发送空格，则请发送字符串 " "。</blockquote><p>可使用 SendKeys 同时发送多个键击。为此，可将每个键击按顺序排列在一起，以此来创建表示一系列键击的复合字符串参数。例如，要发送键击 a、b 和 c，则需要发送字符串参数 "abc"。SendKeys 方法将某些字符用作字符的修饰符（而不使用其本身的含义）。这组特殊的字符可包括圆括号、中括号、大括号，以及： </p><ul type="disc"><li>加号 "+"、 </li><li>插入记号 "^"、 </li><li>百分号 "%"、 </li><li>和“非”符号 "~"。 </li></ul><p>用大括号 "{}" 括起这些字符可以发送它们。例如，要发送加号，请使用字符串参数 "{+}"。SendKeys中使用的中括号 "[ ]" 无任何特殊含义，但是必须把它们括在大括号中，以便容纳确实要赋予其特殊含义的应用程序（例如，对于动态数据交换 (DDE) 就是这样）。 </p><ul type="disc"><li>要发送左中括号字符，请发送字符串参数 "{[]"；要发送右中括号字符，请发送字符串参数 "{]}"。 </li><li>要发送左大括号字符，请发送字符串参数 "{{}"；要发送右大括号字符，请发送字符串参数 "{}}"。 </li></ul><p>某些键击不生成字符（如 ENTER 和 TAB）。某些键击表示操作（如 BACKSPACE 和 BREAK）。要发送这些类型的键击，请发送下表中列出的参数：</p><div class="tablediv"><table class="dtTABLE" cellspacing="0"><tbody><tr valign="top"><th width="39%">键</th><th width="61%">参数</th></tr><tr valign="top"><td width="39%">退格键</td><td width="61%">{BACKSPACE}、{BS} 或 {BKSP}</td></tr><tr valign="top"><td width="39%">BREAK</td><td width="61%">{BREAK}</td></tr><tr valign="top"><td width="39%">CAPS LOCK</td><td width="61%">{CAPSLOCK}</td></tr><tr valign="top"><td width="39%">DEL 或 DELETE</td><td width="61%">{DELETE} 或 {DEL}</td></tr><tr valign="top"><td width="39%">向下键</td><td width="61%">{DOWN}</td></tr><tr valign="top"><td width="39%">END</td><td width="61%">{END}</td></tr><tr valign="top"><td width="39%">ENTER</td><td width="61%">{ENTER} 或 ~</td></tr><tr valign="top"><td width="39%">ESC</td><td width="61%">{ESC}</td></tr><tr valign="top"><td width="39%">HELP</td><td width="61%">{HELP}</td></tr><tr valign="top"><td width="39%">HOME</td><td width="61%">{HOME}</td></tr><tr valign="top"><td width="39%">INS 或 INSERT</td><td width="61%">{INSERT} 或 {INS}</td></tr><tr valign="top"><td width="39%">向左键</td><td width="61%">{LEFT}</td></tr><tr valign="top"><td width="39%">NUM LOCK</td><td width="61%">{NUMLOCK}</td></tr><tr valign="top"><td width="39%">PAGE DOWN</td><td width="61%">{PGDN}</td></tr><tr valign="top"><td width="39%">PAGE UP</td><td width="61%">{PGUP}</td></tr><tr valign="top"><td width="39%">PRINT SCREEN</td><td width="61%">{PRTSC}</td></tr><tr valign="top"><td width="39%">向右键</td><td width="61%">{RIGHT}</td></tr><tr valign="top"><td width="39%">SCROLL LOCK</td><td width="61%">{SCROLLLOCK}</td></tr><tr valign="top"><td width="39%">TAB</td><td width="61%">{TAB}</td></tr><tr valign="top"><td width="39%">向上键</td><td width="61%">{UP}</td></tr><tr valign="top"><td width="39%">F1</td><td width="61%">{F1}</td></tr><tr valign="top"><td width="39%">F2</td><td width="61%">{F2}</td></tr><tr valign="top"><td width="39%">F3</td><td width="61%">{F3}</td></tr><tr valign="top"><td width="39%">F4</td><td width="61%">{F4}</td></tr><tr valign="top"><td width="39%">F5</td><td width="61%">{F5}</td></tr><tr valign="top"><td width="39%">F6</td><td width="61%">{F6}</td></tr><tr valign="top"><td width="39%">F7</td><td width="61%">{F7}</td></tr><tr valign="top"><td width="39%">F8</td><td width="61%">{F8}</td></tr><tr valign="top"><td width="39%">F9</td><td width="61%">{F9}</td></tr><tr valign="top"><td width="39%">F10</td><td width="61%">{F10}</td></tr><tr valign="top"><td width="39%">F11</td><td width="61%">{F11}</td></tr><tr valign="top"><td width="39%">F12</td><td width="61%">{F12}</td></tr><tr valign="top"><td width="39%">F13</td><td width="61%">{F13}</td></tr><tr valign="top"><td width="39%">F14</td><td width="61%">{F14}</td></tr><tr valign="top"><td width="39%">F15</td><td width="61%">{F15}</td></tr><tr valign="top"><td width="39%">F16</td><td width="61%">{F16}</td></tr></tbody></table></div><p>要发送由常规键击和 SHIFT、CTRL 或 ALT 组合而成的键盘字符，请创建表示该键击组合的复合字符串参数。可通过在常规键击之前添加一个或多个以下特殊字符来完成上述操作：</p><div class="tablediv"><table class="dtTABLE" cellspacing="0"><tbody><tr valign="top"><th width="39%">键</th><th width="61%">特殊字符</th></tr><tr valign="top"><td width="39%">SHIFT</td><td width="61%">+</td></tr><tr valign="top"><td width="39%">CTRL</td><td width="61%">^</td></tr><tr valign="top"><td width="39%">ALT</td><td width="61%">%</td></tr></tbody></table></div><blockquote class="dtBlock"><b><b class="le">注意</b> </b>这样使用时，不用大括号括起这些特殊字符。</blockquote><p>要指定在按下多个其他键时，按下 SHIFT、CTRL 和 ALT 的组合，请创建复合字符串参数，用括号括起其中的组合键。例如，要发送的组合键指定： </p><ul type="disc"><li>如果在按 e 和 c 的同时按 SHIFT 键，则发送字符串参数 "+(ec)"。 </li><li>如果在按 e 时只按 c（而不按 SHIFT），则发送字符串参数 "+ec"。 </li></ul><p>可使用 SendKeys 方法发送一种在一行内重复按键的键击。为此，要创建复合字符串参数，以指定要重复的键击，并在其后指定重复次数。可使用 {键击 数字} 形式的复合字符串参数来完成上述操作。例如，如果要发送 10 次 "x"，则需要发送字符串参数 "{x 10}"。请确保在键击和数字之间有一个空格。</p><blockquote class="dtBlock"><b><b class="le">注意</b> </b>只可以发送重复按一个键的键击。例如，可以发送 10 次 "x"，但不可发送 10 次 "Ctrl+x"。</blockquote><blockquote class="dtBlock"><b><b class="le">注意</b> </b>不能向应用程序发送 PRINT SCREEN 键 {PRTSC}。</blockquote><h4 class="dtH4">示例</h4><p>下面的示例演示如何将一个 .wsf 文件用于以不同脚本语言（VBScript 和 Jscript）写成的两个作业。每个作业都运行 Windows 计算器并将它发送给键击以执行简单的计算。</p><pre class="code"><package>
<job id="vbs">
<script language="VBScript">
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "calc"
WScript.Sleep 100
WshShell.AppActivate "Calculator"
WScript.Sleep 100
WshShell.<code><b class="cfe">SendKeys</b></code> "1{+}"
WScript.Sleep 500
WshShell.<code><b class="cfe">SendKeys</b></code> "2"
WScript.Sleep 500
WshShell.<code><b class="cfe">SendKeys</b></code> "~"
WScript.Sleep 500
WshShell.<code><b class="cfe">SendKeys</b></code> "*3"
WScript.Sleep 500
WshShell.<code><b class="cfe">SendKeys</b></code> "~"
WScript.Sleep 2500
</script>
</job>
<job id="js">
<script language="JScript">
var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.Run("calc");
WScript.Sleep(100);
WshShell.AppActivate("Calculator");
WScript.Sleep(100);
WshShell.<code><b class="cfe">SendKeys </b></code>("1{+}");
WScript.Sleep(500);
WshShell.<code><b class="cfe">SendKeys</b></code>("2");
WScript.Sleep(500);
WshShell.<code><b class="cfe">SendKeys</b></code>("~");
WScript.Sleep(500);
WshShell.<code><b class="cfe">SendKeys</b></code>("*3");
WScript.Sleep(500);
WshShell.<code><b class="cfe">SendKeys</b></code>("~");
WScript.Sleep(2500);
</script>
</job>
</package></pre><h4 class="dtH4">请参阅</h4><p><a href="mk:@MSITStore:D:\0_DEVELOP\VBS\Microsoft%20Windows脚本技术.CHM::/html/wsobjwshshell.htm">WshShell 对象</a> | <a href="mk:@MSITStore:D:\0_DEVELOP\VBS\Microsoft%20Windows脚本技术.CHM::/html/wsmthrun.htm">Run 方法</a></p><!--Element not supported - Type: 8 Name: #comment--><div class="footer"><br/><hr/><!--Element not supported - Type: 8 Name: #comment--><p>© 2001 Microsoft Corporation. 保留所有权利。</p></div><!--Element not supported - Type: 8 Name: #comment--></div><!--Element not supported - Type: 8 Name: #comment--><!--Element not supported - Type: 8 Name: #comment--><div id="popUpWindow" style="BORDER-RIGHT: #999999 1px solid; PADDING-RIGHT: 7px; BORDER-TOP: #999999 1px solid; PADDING-LEFT: 7px; Z-INDEX: 2; LEFT: 0px; VISIBILITY: hidden; PADDING-BOTTOM: 7px; BORDER-LEFT: #999999 1px solid; WIDTH: 200px; PADDING-TOP: 5px; BORDER-BOTTOM: #999999 1px solid; POSITION: absolute; TOP: 0px; BACKGROUND-COLOR: #ffffcc;"></div> <p>以前 Aidraft 发过类似的程序，</p><p>不过nonsmall整理的比较全面</p><p>顶一下</p> <p>有人玩过? 太好了</p><p>大哥给个链接啊</p> 你的已经很全面了，没有必要看别人的了 <p>nons哥，真是佩服你啊 总是将不可能变为可能！</p> 将aciveX运用的轻车熟路啊 <p>在查询填充类型列表时，会出现"Press ENTER to continue"，此时虽然运行了Sendkeys，但是依然无法令AutoCAD响应。有人知道如何才能在程序中响应这个{ENTER}吗？</p> <p>太强了！都是高手！猫的东西全的很啊！</p> 你的精华很多,好好向你学习
页:
[1]
2