输入对话框.lsp

/db_自贡黄明儒_

2. ;;我写了<钢板重量计算器>http://www.xdcad.net/forum/thread-669968-1-1.html，为了显示重量,便于拷贝，写了
   
3. ;;一个对话框，newer版主曰，用OpenDcl,可惜我不会。用下面的代码也倒是一个简单办法
   
4. ;;示例(HH:InputBox "5.3")
   
5. (defun HH:InputBox (weight / STR)
   
6.   (setq str (VL-PRIN1-TO-STRING weight))
   
7.   (setq str (strcat "dim ret \n ret=InputBox("显示重量,便于拷贝","重量显示"," str ") "))  
   
8.   (or *wscript*
   
9.       (setq *wscript* (vlax-create-object "ScriptControl"))
   
10.   )
    
11.   (vlax-put *wscript* 'language "vbs")
    
12.   (vlax-invoke-method *wscript* 'ExecuteStatement str)
    
13.   (vlax-invoke-method *wscript* 'eval "ret")
    
14. )

;;我写了<钢板重量计算器>http://www.xdcad.net/forum/thread-669968-1-1.html，为了显示重量,便于拷贝，写了<br /> ;;一个对话框，newer版主曰，用OpenDcl,可惜我不会。用下面的代码也倒是一个简单办法<br /> ;;示例(HH:InputBox "5.3")<br /> (defun HH:InputBox (weight / STR)<br />   (setq str (VL-PRIN1-TO-STRING weight))<br />   (setq str (strcat "dim ret \n ret=InputBox("显示重量,便于拷贝","重量显示"," str ") "))  <br />   (or *wscript*<br />       (setq *wscript* (vlax-create-object "ScriptControl"))<br />   )<br />   (vlax-put *wscript* 'language "vbs")<br />   (vlax-invoke-method *wscript* 'ExecuteStatement str)<br />   (vlax-invoke-method *wscript* 'eval "ret")<br /> )

st788796

可以试试这个DosLib， 简单对话框不需要学蹩脚的DCL，复杂的ODCL
Command: (dos_getstring "Text" "Enter some text")

"This is a string of text"

cable2004

源码是好东西

怒放的生命acai

新人路过学习一下...

weizx2000

谢谢分享，学习~~

xvjiex

感谢分享输入对话框.lsp