[编程交流] 提示输入默认值

(or *val* (setq *val* 1.0))
(setq *val*
      (cond ((getdist (strcat "\nSpecify Offset distance " (strcat "< " (rtos *val* 2 4) " > :"))))
            (*val*)
            )
     )

; Input  Dialog box with variable title
; multiple lines of dcl input supported
; add extra lines if required by copying code defun
; By Alan H 2015
(vl-load-com)
; 1 line dcl
; sample code (ah:getval1 "Line 1" 5 4 "-")
(defun AH:getval1 (title width limit def1 / fo fname)
; you can hard code a directory if you like for dcl file
;(setq fo (open (setq fname (vl-filename-mktemp "" "" ".dcl")) "w"))
(setq fo (open (setq fname "c:\\acadtemp\\getval.dcl") "w"))
(write-line "ddgetval : dialog {" fo)
(write-line " : row {" fo)
(write-line ": edit_box {" fo)
(write-line (strcat "    key = "  (chr 34) "key1" (chr 34) ";") fo)
(write-line  (strcat " label = "  (chr 34) title (chr 34) ";"  )   fo)
; these can be replaced with shorter value etc
(write-line (strcat "     edit_width = " (rtos width 2 0) ";" ) fo)
(write-line (strcat "     edit_limit = " (rtos limit 2 0) ";" ) fo)
(write-line "   is_enabled = true;" fo)
(write-line "    }" fo)
(write-line "  }" fo)
(write-line "ok_only;}" fo)
(close fo)
(setq dcl_id (load_dialog  fname))
; pt is a list 2 numbs -1 -1 centre ('(20 20))
;(not (new_dialog "test" dch "" *screenpoint*)) 
(if (not (new_dialog "ddgetval" dcl_id))
(exit))
(set_tile "key1" (setq val1 def1))
(action_tile "key1" "(setq val1 $value)")
(mode_tile "key1" 3)
(start_dialog)
(done_dialog)
(unload_dialog dcl_id)
; returns the value of val1 as a string
(vl-file-delete fname)
) ; defungetval1

copy

(if (not ah:getval1)(load "getval1"))
(ah:getval1 "Enter a value" 5 4 "6")

GETVALS3.lsp

(cond ;if any of the following conditions is true, here's what will happen
((= s "Y") 1) ;if s equals "Y", then it'll return 1
((= s "y") 1) ;if s equals "y", then it'll return 1
((= s "N") 0) ;if s equals "N", then it'll return 1
((= s "n") 0) ;if s equals "n", then it'll return 1
(t nil); if none of the above is true I'll test if "true" is true (it'll be) and return "nil"
)

(cond
(*givenvar* returnVal) ;if the variable is a valid value, return "returnVal"
(t defaulReturnVal) ;otherwise, return "defaulReturnVal"
)