如何在显示要赋值的变量的当前值？

knife0930

请教各位高手，怎么让程序执行的过程中，显示要赋值的变量的当前值？比如偏移命令，输入偏移的距离时，会显示上次的偏移值。file:///C:\Users\Administrator\Documents\Tencent Files\65228225\Image\Group\8D$7WB%C`Z]7BYZ50BVN)WN.png
不知道我描述清楚了吗？[img]file:///C:\Users\ADMINI~1\AppData\Local\Temp\0MPQM0[RBT5C$[@EJQ5Y3WJ.gif[/img]谢谢
file:///C:\Users\Administrator\Documents\Tencent Files\65228225\Image\Group\8D$7WB%C`Z]7BYZ50BVN)WN.png

Lisphk

多看论坛其他朋友的代码，这个是很常见的了

1. (defun c:tt ()
   
2.   (if (not #my_default)
   
3.     (setq #my_default 100.0)
   
4.   )
   
5.   (if (setq val        (getreal
   
6.                   (strcat "\n输入实数值<" (rtos #my_default 2 1) ">:")
   
7.                 )
   
8.       )
   
9.     (setq #my_default val)
   
10.   )
    
11.   (princ)
    
12. )
    
13. 
    

(defun c:tt ()<br />   (if (not #my_default)<br />     (setq #my_default 100.0)<br />   )<br />   (if (setq val        (getreal<br />                   (strcat "\n输入实数值<" (rtos #my_default 2 1) ">:")<br />                 )<br />       )<br />     (setq #my_default val)<br />   )<br />   (princ)<br /> )<br /> <br />

命令: tt
输入实数值<100>:200
命令: tt
输入实数值<200>:300
命令: tt
输入实数值<300>:

knife0930

Lisphk 发表于 2017-8-25 10:25

多谢高手，我是菜鸟，接触lisp时间还很短。请多多赐教~

marting

有问题就发帖求助，逻辑关系要先培养，多看看别人的代码，要看懂逻辑关系。用函数很简单，查手册就是了。

knife0930

marting 发表于 2017-8-25 10:57

多谢赐教！

kqqt6236

热心人还是多。