[VLISP函数]：自带字符串转换的sendkeys

wkai

2. 
   
3. ;;自带特殊字符转换的sendkeys
   
4. (defun XD_SENDKEYS (str / re n char ws)
   
5.   (if (and str (= 'STR (type str)))
   
6.     (progn
   
7.       (setq re "")
   
8.       (repeat (setq n (strlen str))
   
9.         (setq char (substr str n 1)
   
10.               n           (1- n)
    
11.         )
    
12.         (if
    
13.           (member char
    
14.                   '("+" "^" "%" "~" "(" ")" "{" "}" "[" "]" "\n" "\r")
    
15.           )
    
16. 
    
17.            (setq re (strcat "{" char "}" re))
    
18.            (setq re (strcat char re))
    
19.         )
    
20.       )
    
21.       (setq re (strcat re " "))
    
22.       (setq ws (vlax-create-object "WScript.Shell"))
    
23.       (vlax-invoke-method ws 'sendkeys re)
    
24.       (vlax-release-object ws)
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )
    

<br /> ;;自带特殊字符转换的sendkeys<br /> (defun XD_SENDKEYS (str / re n char ws)<br />   (if (and str (= 'STR (type str)))<br />     (progn<br />       (setq re "")<br />       (repeat (setq n (strlen str))<br />         (setq char (substr str n 1)<br />               n           (1- n)<br />         )<br />         (if<br />           (member char<br />                   '("+" "^" "%" "~" "(" ")" "{" "}" "[" "]" "\n" "\r")<br />           )<br /> <br />            (setq re (strcat "{" char "}" re))<br />            (setq re (strcat char re))<br />         )<br />       )<br />       (setq re (strcat re " "))<br />       (setq ws (vlax-create-object "WScript.Shell"))<br />       (vlax-invoke-method ws 'sendkeys re)<br />       (vlax-release-object ws)<br />     )<br />   )<br />   (princ)<br /> )<br />

狂刀

{F3} {enter} 就得自己加了

lgwlgw

xp sp2  cad2005  测试没通过
（XD_SENDKEYS “F3”）——》3未知命令“3”。按 F1 查看帮助