明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 11412|回复: 14

[【不死猫】] [原创] 巧用sendkeys 方法操作CAD内置命令窗体

    [复制链接]
发表于 2009-1-16 12:25:00 | 显示全部楼层 |阅读模式
本帖最后由 nonsmall 于 2013-5-13 11:39 编辑

长久以来 凡是带有CAD内置窗体的命令Lisp就无法调用 包括 filedia = 1 和(initdia) 情况下

如qselect命令 tablestyle命令

其实 模拟键盘操作就可以解决上面的问题 也可以一定程度代替(command)

注:ACAD2006下测试通过

by nonsmall 20090116

示例1:

代替(command)取消当前命令残留

(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "{Esc 2}")

也可以取消CAD命令自带对话框的启动

(defun c:test()
 (Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand (car (list "dimstyle "
 (Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "{Esc 2}"))))
)

示例2:

操作qselect内置窗体代替qselect 命令快速选择0层所有图元

(defun c:test()
 (Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand (car (list "Qselect "
 (Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "%p{DOWN}{Enter}"))))
)

借用许可证

(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys "{Esc 2}%t{Up}{Right}{Enter}%b{Enter}")

示例3:

调用透明命令的好帮手

(defun c:test()
 (setvar "cmdecho" 0)
 (setq WshShell (Vlax-Get-Or-Create-Object "WScript.Shell" ))
 (command "_.Line" (setq pt1(getpoint "pt1")))
 (Vlax-Invoke-Method WshShell 'Sendkeys "<45{Enter}")
 (command (getpoint pt1 "pt2") "")
 (vlax-release-object WshShell)
 (setvar "cmdecho" 1)
)

请大家用其他版本测试

楼下提供sendkeys方法参考

评分

参与人数 1明经币 +1 收起 理由
wayne_myles + 1 赞一个!

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下

本帖被以下淘专辑推荐:

发表于 2024-5-2 12:23:32 | 显示全部楼层
模拟QSELECT快速选择,标注测量值全局比例在某个区间的对象
发表于 2024-5-2 12:21:00 | 显示全部楼层
LSP模拟按键代码,正在找这个!感谢分享
 楼主| 发表于 2009-1-16 12:25:00 | 显示全部楼层
 
Windows 脚本宿主 

SendKeys 方法

将一个或多个键击发送到活动窗口(仿佛是在键盘上击键一样)。

object.SendKeys(string)

参数

object
WshShell 对象。
string
表示要发送的键击(一个或多个)的字符串值。

说明

使用 SendKeys 方法可以将键击发送到无自动化界面的应用程序中。多数键盘字符都可用一个键击表示。某些键盘字符由多个键击组合而成(例如,CTRL+SHIFT+HOME)。要发送单个键盘字符,请将字符本身作为 string 参数发送。例如,要发送字母 x,则请发送 string 参数 "x"。

注意   要发送空格,则请发送字符串 " "。

可使用 SendKeys 同时发送多个键击。为此,可将每个键击按顺序排列在一起,以此来创建表示一系列键击的复合字符串参数。例如,要发送键击 a、b 和 c,则需要发送字符串参数 "abc"。SendKeys 方法将某些字符用作字符的修饰符(而不使用其本身的含义)。这组特殊的字符可包括圆括号、中括号、大括号,以及:

  • 加号       "+"、
  • 插入记号             "^"、
  • 百分号 "%"、
  • 和“非”符号       "~"。

用大括号 "{}" 括起这些字符可以发送它们。例如,要发送加号,请使用字符串参数 "{+}"。SendKeys中使用的中括号 "[ ]" 无任何特殊含义,但是必须把它们括在大括号中,以便容纳确实要赋予其特殊含义的应用程序(例如,对于动态数据交换 (DDE) 就是这样)。

  • 要发送左中括号字符,请发送字符串参数 "{[]";要发送右中括号字符,请发送字符串参数 "{]}"。
  • 要发送左大括号字符,请发送字符串参数 "{{}";要发送右大括号字符,请发送字符串参数 "{}}"。

某些键击不生成字符(如 ENTER 和 TAB)。某些键击表示操作(如 BACKSPACE 和 BREAK)。要发送这些类型的键击,请发送下表中列出的参数:

参数
退格键{BACKSPACE}、{BS} 或 {BKSP}
BREAK{BREAK}
CAPS LOCK{CAPSLOCK}
DEL 或 DELETE{DELETE} 或 {DEL}
向下键{DOWN}
END{END}
ENTER{ENTER} 或 ~
ESC{ESC}
HELP{HELP}
HOME{HOME}
INS 或 INSERT{INSERT} 或 {INS}
向左键{LEFT}
NUM LOCK{NUMLOCK}
PAGE DOWN{PGDN}
PAGE UP{PGUP}
PRINT SCREEN{PRTSC}
向右键{RIGHT}
SCROLL LOCK{SCROLLLOCK}
TAB{TAB}
向上键{UP}
F1{F1}
F2{F2}
F3{F3}
F4{F4}
F5{F5}
F6{F6}
F7{F7}
F8{F8}
F9{F9}
F10{F10}
F11{F11}
F12{F12}
F13{F13}
F14{F14}
F15{F15}
F16{F16}

要发送由常规键击和 SHIFT、CTRL 或 ALT 组合而成的键盘字符,请创建表示该键击组合的复合字符串参数。可通过在常规键击之前添加一个或多个以下特殊字符来完成上述操作:

特殊字符
SHIFT+
CTRL^
ALT%
注意   这样使用时,不用大括号括起这些特殊字符。

要指定在按下多个其他键时,按下 SHIFT、CTRL 和 ALT 的组合,请创建复合字符串参数,用括号括起其中的组合键。例如,要发送的组合键指定:

  • 如果在按 e 和 c 的同时按 SHIFT 键,则发送字符串参数 "+(ec)"。
  • 如果在按 e 时只按 c(而不按 SHIFT),则发送字符串参数 "+ec"。

可使用 SendKeys 方法发送一种在一行内重复按键的键击。为此,要创建复合字符串参数,以指定要重复的键击,并在其后指定重复次数。可使用 {键击 数字} 形式的复合字符串参数来完成上述操作。例如,如果要发送 10 次 "x",则需要发送字符串参数 "{x 10}"。请确保在键击和数字之间有一个空格。

注意   只可以发送重复按一个键的键击。例如,可以发送 10 次 "x",但不可发送 10 次 "Ctrl+x"。
注意   不能向应用程序发送 PRINT SCREEN 键 {PRTSC}。

示例

下面的示例演示如何将一个 .wsf 文件用于以不同脚本语言(VBScript 和 Jscript)写成的两个作业。每个作业都运行 Windows 计算器并将它发送给键击以执行简单的计算。

<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.SendKeys "1{+}"
         WScript.Sleep 500
         WshShell.SendKeys "2"
         WScript.Sleep 500
         WshShell.SendKeys "~"
         WScript.Sleep 500
         WshShell.SendKeys "*3"
         WScript.Sleep 500
         WshShell.SendKeys "~"
         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.SendKeys ("1{+}");
         WScript.Sleep(500);
         WshShell.SendKeys("2");
         WScript.Sleep(500);
         WshShell.SendKeys("~");
         WScript.Sleep(500);
         WshShell.SendKeys("*3");
         WScript.Sleep(500);
         WshShell.SendKeys("~");
         WScript.Sleep(2500);
      </script>
   </job>
</package>

请参阅

MSITStore:D:\0_DEVELOP\VBS\Microsoft%20Windows脚本技术.CHM::/html/wsobjwshshell.htm">WshShell 对象 | MSITStore:D:\0_DEVELOP\VBS\Microsoft%20Windows脚本技术.CHM::/html/wsmthrun.htm">Run 方法

发表于 2009-1-16 14:36:00 | 显示全部楼层

以前 Aidraft 发过类似的程序,

不过nonsmall整理的比较全面

顶一下

 楼主| 发表于 2009-1-16 15:26:00 | 显示全部楼层

有人玩过? 太好了

大哥给个链接啊

发表于 2009-1-16 15:37:00 | 显示全部楼层
你的已经很全面了,没有必要看别人的了
发表于 2009-1-16 15:48:00 | 显示全部楼层

nons哥,真是佩服你啊 总是将不可能变为可能!

发表于 2009-1-17 16:07:00 | 显示全部楼层
将aciveX运用的轻车熟路啊
发表于 2009-2-2 15:28:00 | 显示全部楼层

在查询填充类型列表时,会出现"Press ENTER to continue",此时虽然运行了Sendkeys,但是依然无法令AutoCAD响应。有人知道如何才能在程序中响应这个{ENTER}吗?

发表于 2009-2-2 17:24:00 | 显示全部楼层

太强了!都是高手!猫的东西全的很啊!

发表于 2009-2-2 19:44:00 | 显示全部楼层
你的精华很多,好好向你学习
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-25 10:37 , Processed in 0.199870 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表