(xd::doc:sendkeys) 程序执行过程中，按下功能键

marting

1. (defun XD::Doc:Sendkeys        (str / wsh rtn)
   
2.   (if (setq wsh (vlax-create-object "wscript.shell"))
   
3.     (progn (setq
   
4.              rtn (vl-catch-all-apply 'vlax-invoke (list wsh 'sendkeys str))
   
5.            )
   
6.            (vlax-release-object wsh)
   
7.            (not rtn)
   
8.     )
   
9.   )
   
10. )
    

(defun XD::Doc:Sendkeys        (str / wsh rtn)<br />   (if (setq wsh (vlax-create-object "wscript.shell"))<br />     (progn (setq<br />              rtn (vl-catch-all-apply 'vlax-invoke (list wsh 'sendkeys str))<br />            )<br />            (vlax-release-object wsh)<br />            (not rtn)<br />     )<br />   )<br /> )<br />

用法：(XD::Doc:Sendkeys 字符串)
例如，(XD::Doc:Sendkeys "{F3}")  相当于按下F3键
      (XD::Doc:Sendkeys "{CAPSLOCK}")  相当于按下大小写键
      (XD::Doc:Sendkeys "^c") 相当于按下CTRL+C键
      (XD::Doc:Sendkeys "%F") 相当于按下ALT+F键
      ....

434939575

谢谢老大，这个挺好玩的！

kqqt6236

谢谢分享。