输入对话框.lsp

自贡黄明儒

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

;;我写了<钢板重量计算器>http://bbs.mjtd.com/thread-107027-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 /> )

urings

阿然 发表于 2013-10-10 11:02
黄兄这些天卖力为大家写了这么多好函数，我也来凑个热闹

感谢分享         

urings

阿然 发表于 2013-10-10 11:02
黄兄这些天卖力为大家写了这么多好函数，我也来凑个热闹

感谢分享         

urings

感谢分享        

阿然

黄兄这些天卖力为大家写了这么多好函数，我也来凑个热闹

1. ;;;调用vb输入框 by Xran
   
2. ;;;promptstr 提示信息
   
3. ;;;title 窗体标题栏信息
   
4. ;;;default 缺省值
   
5. (defun inputbox (promptstr title default)
   
6.   (vla-eval (vlax-get-acad-object)
   
7.       (strcat "ThisDrawing.setVariable \"USERS5\",inputBox (\""
   
8.         promptstr
   
9.         "\", \""
   
10.         title
    
11.         "\", \""
    
12.         default
    
13.         "\")"
    
14.        )
    
15.   )
    
16.   (getvar "users5")
    
17. )
    

;;;调用vb输入框 by Xran<br /> ;;;promptstr 提示信息<br /> ;;;title 窗体标题栏信息<br /> ;;;default 缺省值<br /> (defun inputbox (promptstr title default)<br />   (vla-eval (vlax-get-acad-object)<br />       (strcat "ThisDrawing.setVariable \"USERS5\",inputBox (\""<br />         promptstr<br />         "\", \""<br />         title<br />         "\", \""<br />         default<br />         "\")"<br />        )<br />   )<br />   (getvar "users5")<br /> )<br />

自贡黄明儒

阿然 发表于 2013-10-10 11:02
黄兄这些天卖力为大家写了这么多好函数，我也来凑个热闹

你这个还真不错

阿然

谢谢黄兄，同理还有消息对话框

1. ;;;调用vb里的msgbox by Xran
   
2. ;;;参数均为字符串
   
3. ;;;buttons取值
   
4. ;;;vbAbortRetryIgnore
   
5. ;;;vbApplicationModal
   
6. ;;;vbCritical
   
7. ;;;vbDefaultButton1
   
8. ;;;vbDefaultButton2
   
9. ;;;vbDefaultButton3
   
10. ;;;vbDefaultButton4
    
11. ;;;vbExclamation
    
12. ;;;vbInformation
    
13. ;;;vbMsgBoxHelpButton
    
14. ;;;vbMsgBoxRight
    
15. ;;;vbMsgBoxRtlReading
    
16. ;;;vbMsgBoxSetForeground
    
17. ;;;vbOKCancel
    
18. ;;;vbOKOnly
    
19. ;;;vbQuestion
    
20. ;;;vbRetryCancel
    
21. ;;;vbSystemModal
    
22. ;;;vbYesNo
    
23. ;;;vbYesNoCancel
    
24. ;;;可以使用类似vbokcancel+vbinformation的字符串作为buttons的值
    
25. (defun msgbox (promptstr buttons title)
    
26.   (vla-eval (vlax-get-acad-object)
    
27.             (strcat "ThisDrawing.setVariable \"USERI5\",MsgBox (\""
    
28.                     promptstr
    
29.                     "\", "
    
30.                     buttons
    
31.                     ", \""
    
32.                     title
    
33.                     "\")"
    
34.                    )
    
35.   )
    
36.   (getvar "useri5")
    
37. )
    

;;;调用vb里的msgbox by Xran<br /> ;;;参数均为字符串<br /> ;;;buttons取值<br /> ;;;vbAbortRetryIgnore<br /> ;;;vbApplicationModal<br /> ;;;vbCritical<br /> ;;;vbDefaultButton1<br /> ;;;vbDefaultButton2<br /> ;;;vbDefaultButton3<br /> ;;;vbDefaultButton4<br /> ;;;vbExclamation<br /> ;;;vbInformation<br /> ;;;vbMsgBoxHelpButton<br /> ;;;vbMsgBoxRight<br /> ;;;vbMsgBoxRtlReading<br /> ;;;vbMsgBoxSetForeground<br /> ;;;vbOKCancel<br /> ;;;vbOKOnly<br /> ;;;vbQuestion<br /> ;;;vbRetryCancel<br /> ;;;vbSystemModal<br /> ;;;vbYesNo<br /> ;;;vbYesNoCancel<br /> ;;;可以使用类似vbokcancel+vbinformation的字符串作为buttons的值<br /> (defun msgbox (promptstr buttons title)<br />   (vla-eval (vlax-get-acad-object)<br />             (strcat "ThisDrawing.setVariable \"USERI5\",MsgBox (\""<br />                     promptstr<br />                     "\", "<br />                     buttons<br />                     ", \""<br />                     title<br />                     "\")"<br />                    )<br />   )<br />   (getvar "useri5")<br /> )<br />

soly2006

同高手们学习，日有所长。。。
历史的荣誉榜有你们的伟名。

emk

好像明总也写过

crtrccrt

4楼程序运行出错

错误: Automation 错误。

自贡黄明儒

crtrccrt 发表于 2013-10-11 09:04
4楼程序运行出错

错误: Automation 错误。

应该没错，你要注册"MSComDlg.CommonDialog"才能用
(vl-registry-write
    "HKEY_CLASSES_ROOT\\LICENSES\\4d553650-6abe-11cf-8adb-00aa00c00905"
    ""
    "gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj"
  )

crtrccrt

注册了
还是运行错误

浮世小半生

简单的事情简单弄  （princ “重量”） 就可以在cad命令栏拷贝 了