[求助]：如何定制默认值问题

gxynd

在进行autolisp程序编写时，如何进行默认值的定制呢，希望兄台能举一例供兄弟参考
例如:
(defun c:tt()
(setq zg(getreal"请输入字高:"))
(command"text"  pause zg "0" )
)
先输入一回之后，以后就可以使用其上一回的默认值(<3.5>之类的)，望兄台指教

yjtdkj

2. 
   
3.   [FONT=courier new]
   
4. (defun c:tt (/ a)
   
5.   (or global:a (setq global:a 0))
   
6.   (setq a (getint (strcat "\n请输入整数值<" (itoa global:a) ">")))
   
7.   (if a
   
8.     (setq global:a a)
   
9.     (setq a global:a)
   
10.   )
    
11.   (setvar "useri1" a)
    
12. )
    
13. 
    
14.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:tt (/ a) <br />   (or global:a (setq global:a 0)) <br />   (setq a (getint (strcat "\n请输入整数值<" (itoa global:a) ">"))) <br />   (if a <br />     (setq global:a a) <br />     (setq a global:a) <br />   )<br />   (setvar "useri1" a)<br /> )<br /> <br />   [/FONT]<br />

哪位大哥能做一个返回实数和字符串的程序？

SLMin

[php](defun c:test()
  (setq zg (getreal "\n请输入字高:"))
  (if (= zg nil)  (setq zg (getvar "textsize")))
  (command"text" pause zg "0" )
  (princ)
  )[/php]

xyp1964

[php]
;;;通用格式化数值输入，输入值作为下次的默认值
;;;格式：(setq aaa (ureal 1 "" "提示内容" aaa))
(defun c:test ()
  (setq zg (ureal 1 "" "请输入字高" zg))
  (command "text" pause zg "0")
)
(defun ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp
    inp
    def
  )
)
[/php]

yjtdkj

楼上的大哥，不行呀，默认值不能显示在命令行上，而且不能按“回车”直接得到默认值
能不能给个完整的程序来测试一下？

panzhongw

可以这样，将上次输入的值设为一个变量，此变量在程序内不要注销，在使用前加入一个判断
如该变量存在即默认为上次的输入值，如不存在即提示输入新值。如果想在下此打开文件时默认值，可以在图中设置一个属性块，打开图形时检测；或者写到一个外部文本文件中；或者用图形词典。

xyp1964

最初由 yjtdkj 发布
[B]楼上的大哥，不行呀，默认值不能显示在命令行上，而且不能按“回车”直接得到默认值
能不能给个完整的程序来测试一下？ [/B]

通用数值输入程序应该没有问题！
再试试：
[php]
;;;通用格式化数值输入，输入值作为下次的默认值
;;;格式：(setq aaa (ureal 1 "" "提示内容" aaa))
(defun c:test (/)
  (setq pt1 (getpoint "\n文本输入点 : "))
  (command "_style" "汉字" "宋体" "" "1" "" "" "")
  (setvar "textstyle" "汉字")
  (setq zg (ureal 1 "" "请输入字高" zg)
        ang(ureal 1 "" "请输入字角" ang)
        )
  (command "text" "j" "mc" pt1 zg ang "晓东空间")
)
(defun ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
      bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp
    inp
    def
  )
)
[/php]

梦断江南

我来试试
[php]
;| (pset sym do str) = 有默认输入值的通用变量设置函数 by 梦断江南.2004.11
参数: sym = 要设置的变量.
       do = 取得变量值的方法(函数,为get* 系列).
       str = 提示.(程序会自动填入默认值)'
说明: 支持回车默认值.
实例: (setq a 3.4 b '(1.0 1.2 0.0))
      (pset 'a getdist "\n新值:")
      (pset 'b getpoint "\n新坐标:")
|;
(defun pset (sym do str / @@@)
  (princ (strcat str "<"))(princ (eval sym))
  (setq @@@  ((eval do)">:"))
  (if @@@ (set sym @@@))
  (eval sym)
)
;|测试:
(setq a 1 b 1.3 c "x" )
(pset 'a getint "\n输入个数" )
(pset 'b getdist "\n数值" )
(pset 'c getstring "\n新字符" )
数值<1.3
6424.95
_$ b
6424.95
_$
输入个数<1
9
_$ a
9
_$
新字符<u
"yyy"
_$c
"yyy"
|;
[/php]

aeo

用完以后不要设成nil就行.

因为是全局，所以名称要比较复杂一点，避免重复.

yjtdkj

最初由 梦断江南 发布
[B]我来试试
[php]
;| (pset sym do str) = 有默认输入值的通用变量设置函数 by 梦断江南.2004.11
参数: sym = 要设置的变量.
       do = 取得变量值的方法(函数,为get* 系列).
       str = 提示.(程序会自动填?.. [/B]

我试用了一下，还是不对，把它改了一下才行的：

2. 
   
3.   [FONT=courier new]
   
4. (defun pset (sym do str / @@@)
   
5.   (princ (strcat str "<"))
   
6.   (princ (eval sym))
   
7.   (setq @@@ (eval (do ">:")))
   
8.   (if (or (not @@@) (equal @@@ ""))
   
9.     (eval sym)
   
10.     (set sym @@@)
    
11.   )
    
12. )
    
13. 
    
14.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun pset (sym do str / @@@)<br />   (princ (strcat str "<"))<br />   (princ (eval sym))<br />   (setq @@@ (eval (do ">:")))<br />   (if (or (not @@@) (equal @@@ ""))<br />     (eval sym)<br />     (set sym @@@)<br />   )<br /> )<br /> <br />   [/FONT]<br />

江南兄的程序在提示时直接回车时会出错

zb_lou

很好。又学到了不同的方法！