有的時候,想修改一個字符串,可以又不想全部輸入.
這時候如果想不用對話框的話,就可以試試以下的辦法.
用SENDKEYS這個函數,可以事先輸入一些字符串.
當時,如果是中文的話,可能還有點問題.
Quote
(defun c:tt()
(SENDKEYS "aabb")
(GETSTRING "ntest:")
)
(SENDKEYS "aabb")
(GETSTRING "ntest:")
)
Quote
如果是中文的話,可以先放入剪貼板,然后用
(SENDKEYS "^v") 就可以顯示在命令行了
放入剪貼板的方法,曉東CAD里面有
(SENDKEYS "^v") 就可以顯示在命令行了
放入剪貼板的方法,曉東CAD里面有
Quote
;|
功能
在程序運行過程中按下功能建
語法
(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)
)
功能
在程序運行過程中按下功能建
語法
(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)
)
相關文章
- 2013-04-09一些歐式線條的截面圖 可以拿來放樣用
- 2013-02-26用了13年的機械工程計算小軟件合集
- 2013-02-05制造業公司用CAD圖框 雙擊標題欄可以統一填寫內容
- 2012-06-01CAD基礎練習題及動畫解答下載
- 2012-05-27一套小型別墅的CAD施工圖免費下載
- 2012-04-26常青藤CAD輔助插件工具免費下載
- 2012-04-22非常實用的CAD自動編號小插件
- 2012-04-11AutoCAD圖形文件瀏覽器Cb-cad 3.5綠色中文版
- 2012-04-09AutoMC_CAD V2.01可以專門用來快速幫助繪制些門窗圖
- 2012-03-30ACADPatch.rar（windows7安裝autocad2008）