输入函数 InputBox

/db_自贡黄明儒_

输入函数InputBox,好像没有啥毛病

;;成功利用VB函数input
(defun w1 (/ SCR)
  (or *scr*
      (setq *scr* (vlax-create-object "MSScriptControl.ScriptControl.1"))
  )
  (vlax-put *scr* "language" "vbs")
  (vlax-invoke
    *scr*
    'ExecuteStatement
    "str=InputBox(\"Input your string:\", \"Input Box\")"
  )
 (vlax-invoke *scr* 'eval "str")
)

Lisphk

黄总，这个东西64位能用吗？

/db_自贡黄明儒_

Lisphk 发表于 2016-12-15 14:04

这个没在64位试，我的是32位的。

819534890

感谢黄总分享，我把您的函数改为通用函数了：

2. ;(inputbox "信息" "题头" "默认值")
   
3. (defun inputbox (info title default / SCR)
   
4.   (or *scr*
   
5.       (setq *scr* (vlax-create-object "MSScriptControl.ScriptControl.1"))
   
6.   )
   
7.   (vlax-put *scr* "language" "vbs")
   
8.   (vlax-invoke
   
9.     *scr*
   
10.     'ExecuteStatement
    
11.          (strcat  "str=InputBox("  (vl-prin1-to-string info) ","    (vl-prin1-to-string title) "," (vl-prin1-to-string default) ")" )
    
12. 
    
13.   )
    
14. (vlax-invoke *scr* 'eval "str")
    
15. )

;(inputbox "信息" "题头" "默认值")<br /> (defun inputbox (info title default / SCR)<br />   (or *scr*<br />       (setq *scr* (vlax-create-object "MSScriptControl.ScriptControl.1"))<br />   )<br />   (vlax-put *scr* "language" "vbs")<br />   (vlax-invoke<br />     *scr*<br />     'ExecuteStatement<br />          (strcat  "str=InputBox("  (vl-prin1-to-string info) ","    (vl-prin1-to-string title) "," (vl-prin1-to-string default) ")" ) <br /> <br />   )<br /> (vlax-invoke *scr* 'eval "str")<br /> )

1. ;(msgbox "信息" 2 "题头")，不同的button值自己试试
   
2. (defun msgbox (info button title / SCR)
   
3.   (or *scr*
   
4.       (setq *scr* (vlax-create-object "MSScriptControl.ScriptControl.1"))
   
5.   )
   
6.   (vlax-put *scr* "language" "vbs")
   
7.   (vlax-invoke
   
8.     *scr*
   
9.     'ExecuteStatement
   
10.    (strcat  "str=MsgBox("  (vl-prin1-to-string info) ","    (vl-prin1-to-string button) "," (vl-prin1-to-string title) ")" )
    
11.   )
    
12. (vlax-invoke *scr* 'eval "str")
    
13. )

;(msgbox "信息" 2 "题头")，不同的button值自己试试<br /> (defun msgbox (info button title / SCR)<br />   (or *scr*<br />       (setq *scr* (vlax-create-object "MSScriptControl.ScriptControl.1"))<br />   )<br />   (vlax-put *scr* "language" "vbs")<br />   (vlax-invoke<br />     *scr*<br />     'ExecuteStatement<br />    (strcat  "str=MsgBox("  (vl-prin1-to-string info) ","    (vl-prin1-to-string button) "," (vl-prin1-to-string title) ")" ) <br />   )<br /> (vlax-invoke *scr* 'eval "str")<br /> )

/db_自贡黄明儒_

819534890 发表于 2016-12-15 15:10

看你发贴不多，原来蛮厉害的呀！

819534890

/db_自贡黄明儒_ 发表于 2016-12-15 15:57

过奖了，我属于拿来主义者。
基本上都是您的代码，我只改了一行。

/db_自贡黄明儒_

819534890 发表于 2016-12-15 16:30

那个MsgBox比alert丰富多了，想必你对VB很熟习，能多改造一些吗？

sicky111

收藏了，谢谢！

xvjiex

感谢分享输入函数 InputBox