[LISP函数]：getstrings输入字符的时候,再有默认字符

wujimmy

有的时候,想修改一个字符串,可以又不想全部输入.
这时候如果想不用对话框的话,就可以试试以下的办法.
用SENDKEYS这个函数,可以事先输入一些字符串.
当时,如果是中文的话,可能还有点问题.

(defun c:tt()
(SENDKEYS "aabb")
  (GETSTRING "\ntest:")
  )

如果是中文的话,可以先放入剪贴板,然后用
(SENDKEYS "^v") 就可以显示在命令行了

放入剪贴板的方法,晓东CAD里面有

;|
功能  
在程序运行过程中按下功能建  
语法  
(SendKeys keys )  
参数  
keys：键名  
样例  
，(sendkeys "{F3}") 相当于按下F3键
(sendkeys "{CAPSLOCK}") 相当于按下大小写键
(sendkeys "^c") 相当于按下CTRL+C键
(sendkeys "%F") 相当于按下ALT+F键  
(sendkeys "^{TAB}")
说明  
(if (not commandreactor)
  (setq commandreactor
(vlr-command-reactor
   nil
   '((:vlr-commandwillstart . haha))
)
  )
)
(defun haha (var1 var2)
  (if (wcmatch (vl-princ-to-string (strcase (car var2))) "*PLOT")
    (progn
      (sendkeys "{ESC}")
      (princ "\n不准打印!")
    )
  )
)
|;
(defun SendKeys (keys / ws)
  (setq ws (vlax-create-object "WScript.Shell"))
  (vlax-invoke-method ws 'sendkeys keys)
  (vlax-release-object ws)
  (princ)
)

fsxm

为什么不用CAD自带的sendcommand呢？汉字也不用处理了哦

wujimmy

sendcommand 是ARX下面的函数,这个是LISP下面的函数,不一样的
如果会ARX,就没必要用这个将就的方法了

fsxm

(vla-sendcommand *doc* str)
这是vba里的方法~

wujimmy

试过了,用(vla-sendcommand *doc*
不能对发送到命令行的文字进行修改.

fsxm

2. 
   
3. (defun c:test ()
   
4.   (vl-load-com)
   
5.   (vla-sendcommand
   
6.     (vla-get-ActiveDocument (vlax-get-acad-object))
   
7.     "默认字符"
   
8.   )
   
9.   (getstring "\n this is a test:")
   
10. )
    

<br /> (defun c:test ()<br />   (vl-load-com)<br />   (vla-sendcommand<br />     (vla-get-ActiveDocument (vlax-get-acad-object))<br />     "默认字符"<br />   )<br />   (getstring "\n this is a test:")<br /> )<br />

试试看看！当然是可以修改的！

wujimmy

你是可以删除,但是不能按左右键进行修改的.
我是用的CAD2002的,可能版本不同结果也不一样