请问如何用lisp实现预输入

langjs

带记忆功能带预设的带显示的支持空格默认a值，试试
(defun c:aa (/ b)
  (if (null a)
    (setq a 10)
  )
  (if (setq b (getint (strcat "\n输入整数:<" (itoa a) ">")))
    (setq a b)
  )
  (princ "\n a=")
  (princ a)
  (princ)
)

寒林清远

                (if (/= cc1_hzm nil)
                        (progn
                                (setq cc1 (getreal (strcat "\n输入桩帽内侧边长<" (rtos cc1_hzm) ">:")))
                                (if (null cc1) (setq cc1 cc1_hzm)(setq cc1_hzm cc1))
                        )
                        (progn
                                (setq cc1(getreal"\n输入桩帽内侧边长:"))
                                (setq cc1_hzm cc1)
                        )
                )

类似于这个，改改就行了，其中cc1_hzm为全局变量

peraperson

自贡黄明儒 发表于 2013-10-19 08:07
(setq a (getint));如果回车，则a =nil,所以下行写
(if a nil (setq a 10))

额 可能是我表达不是很清楚吧 我看了你给的链接 好像是用对话框的形式弹出的提示数值10的是吗？ 我想要的是另外一种效果 就是比如我们画线的时候 输入line 马上就会给提示“指定第一个点”在在这个提示信息后面紧跟着一个小框框，里面一个数字 我希望达到的就是这种效果 就是10出现在这个小框框里面 而不是对话框的形式弹出 请问有什么方法吗 谢谢

自贡黄明儒

peraperson 发表于 2013-10-22 12:45
额 可能是我表达不是很清楚吧 我看了你给的链接 好像是用对话框的形式弹出的提示数值10的是吗？ 我想要的 ...

是不是这样呀？
(defun C:myline (/ P1 P2)
  (setq p1 (getpoint "\n 画线起点"))
  (if (setq p2 (getpoint p1 "\n 第二点<默认画一10mm横线>"))
    nil;输入距离or点取or输入点
    (setq p2 (mapcar '+ p1 '(10 0)));如果用户回车，默认画一横线
  )
  (command "_.Line" p1 p2 "")
  (princ)
)

xyp1964

2. (defun c:tt ()
   
3.   (defun uint (bit kwd msg def / inp)
   
4.     (if        def
   
5.       (setq msg        (strcat "\n" msg "<" (itoa def) ">: ")
   
6.             bit        (* 2 (fix (/ bit 2)))
   
7.       )
   
8.       (setq msg (strcat "\n" msg ": "))
   
9.     )
   
10.     (initget bit kwd)
    
11.     (setq inp (getint msg))
    
12.     (if        inp
    
13.       inp
    
14.       def
    
15.     )
    
16.   )
    
17.   (if (null int)
    
18.     (setq int 10)
    
19.   )
    
20.   (setq int (Uint 1 "" "整数" int))
    
21.   (princ)
    
22. )

(defun c:tt ()<br />   (defun uint (bit kwd msg def / inp)<br />     (if        def<br />       (setq msg        (strcat "\n" msg "<" (itoa def) ">: ")<br />             bit        (* 2 (fix (/ bit 2)))<br />       )<br />       (setq msg (strcat "\n" msg ": "))<br />     )<br />     (initget bit kwd)<br />     (setq inp (getint msg))<br />     (if        inp<br />       inp<br />       def<br />     )<br />   )<br />   (if (null int)<br />     (setq int 10)<br />   )<br />   (setq int (Uint 1 "" "整数" int))<br />   (princ)<br /> )

peraperson

langjs 发表于 2013-10-22 09:38
带记忆功能带预设的带显示的支持空格默认a值，试试
(defun c:aa (/ b)
  (if (null a)

谢谢 成功解决了

peraperson

寒林清远 发表于 2013-10-22 11:34
(if (/= cc1_hzm nil)
                        (progn
                               ...

谢谢 成功解决了

peraperson

自贡黄明儒 发表于 2013-10-22 13:16
是不是这样呀？
(defun C:myline (/ P1 P2)
  (setq p1 (getpoint "\n 画线起点"))

不是的 要的就是楼上的那种效果 还是很谢谢你

peraperson

xyp1964 发表于 2013-10-22 14:30

谢谢 成功解决了

llsheng_73

peraperson 发表于 2013-10-21 13:16
谢谢 但是有个问题就是这个10不会出现在屏幕上 我想要的效果是预先显示有10这个值 如果要输入的是10按ent ...

(setq a(getint"<10>"))
(setq a(if (null a) 10 a)