给代码添加记忆功能！

gcho

2. ;记忆上次输入比例
   
3.   (if *Scale* (setq SC (getreal (strcat  "\n输入比例1:<" (rtos *Scale* 2 0) ">:") ) )  
   
4.   (setq SC (getreal "\n输入比例1:<100>: ")))
   
5.   (if (null SC) (setq SC *Scale*) (setq *Scale* SC ))
   
6.   ;记忆上次基点高程
   
7.   (if *NewBASE* (setq H_BASE (getreal (strcat  "\n基点高程<" (rtos *NewBASE* 2 2) ">:") ) )  
   
8.   (setq H_BASE (getreal "\n输入基点高程<0.00>: ")))
   
9.   (if (null H_BASE) (setq H_BASE *NewBASE*) (setq *NewBASE* H_BASE ))
   
10.     ;记忆上次基点位置
    
11.    (if *NewPTBASE* (setq PT_BASE ？？？ ) )  
    
12.   (setq PT_BASE (getpoint "\n指定基点<0,0,0>: ")))
    
13. (if (null PT_BASE) (setq H_BASE *NewPTBASE*) (setq *NewPTBASE* PT_BASE ))
    

;记忆上次输入比例<br />   (if *Scale* (setq SC (getreal (strcat  "\n输入比例1:<" (rtos *Scale* 2 0) ">:") ) )  <br />   (setq SC (getreal "\n输入比例1:<100>: ")))<br />   (if (null SC) (setq SC *Scale*) (setq *Scale* SC ))<br />   ;记忆上次基点高程<br />   (if *NewBASE* (setq H_BASE (getreal (strcat  "\n基点高程<" (rtos *NewBASE* 2 2) ">:") ) )  <br />   (setq H_BASE (getreal "\n输入基点高程<0.00>: ")))<br />   (if (null H_BASE) (setq H_BASE *NewBASE*) (setq *NewBASE* H_BASE ))<br />     ;记忆上次基点位置<br />    (if *NewPTBASE* (setq PT_BASE ？？？ ) )  <br />   (setq PT_BASE (getpoint "\n指定基点<0,0,0>: ")))<br /> (if (null PT_BASE) (setq H_BASE *NewPTBASE*) (setq *NewPTBASE* PT_BASE ))<br />

上面三块代码分别是记忆上次;记忆上次输入比例，记忆上次基点高程，记忆上次基点位置
现在有两个问题：
1、最后一块记忆上次基点位置时不能仿照前两个来写，那“？？？”处不知道该怎么填（或者另辟方法）；
2、前面两块虽然能正确地运行，但是也有一个缺点，就是程序初次运行时SC、H_BASE值为空，非要给定一个值后它们才能往下运行，再次运行时就能记住给定的那个值。

rdhhb

一般全局变量基本能搞定，如果要达到关闭CAD也有记忆功能，可考虑写入注册表，写读写程序就行，有想法的朋友可加我QQ交流，110788013，加我的时候注明LISP交流

paulpipi

学习了，谢谢无私分享

执骨哟

很有用,谢谢分享

cnks

楼主抽空学点lisp吧，一两天的时间搞定的事

gcho

无语了！！！

cnks

gcho 发表于 2011-9-5 15:14
无语了！！！

你还无语？

caoyin

方法很多种：
1.直接使用全局变量，这种方法最简单。(特点：关闭文档“记忆”就被关闭)
2.写入、读取图形词典。（特点：记忆只储存在当前图形文档）
3.写入、读取注册表。（特点：记忆储存于计算机，可以任何文档任何时候读取或修改）
4.写入、读取文件，如TXT文件（特点：同上）
5.写入、读取环境变量（特点：同上）

yjr111

看看是不是满足你的要求....

2. (defun c:hello(/ scale newbase pt-base)
   
3.   (setvar "cmdecho" 0)
   
4. ;记忆上次输入比例
   
5.   (initget "Scale Newbase  Pt-base")
   
6.   (setq key (getkword "\n请选择(比例<S>或基点高程<N>或基点<P>)<默认S>:"))
   
7.   (if (not key) (setq key "Scale"))
   
8.       (if (= key "Scale")
   
9.       (progn
   
10.       (setq SC (getreal "\n输入比例<100>:"))
    
11.       (if (not sc) (setq sc 100))
    
12.       )
    
13.       )
    
14. ;记忆上次基点高程
    
15.       (if (= key "Newbase")
    
16.       (progn
    
17.       (setq H_BASE (getreal "\n输入基点高程<0.00>: "))
    
18.       (if (not H_BASE) (setq sc 0.00))
    
19.       )
    
20.       )
    
21. ;记忆上次基点位置
    
22.       (if (= key "Pt-base")
    
23.       (progn
    
24.       (setq p_BASE (getpoint "\n指定基点<上次基点>: "))
    
25.       (command "point" p_base);;;此句不能少！
    
26.       (command )
    
27.       (if (/= p_base nil)
    
28.         (progn
    
29.         (setq e1  (entlast))
    
30.         (setq ss1 (entget e1))
    
31.         (setq pp  (cdr(assoc 10 ss1)))
    
32.         )
    
33.         (setq p_BASE pp)
    
34.        )
    
35.       (setq p1 (getpoint "\n指定点: "));;;;示例
    
36.       (command "line" p1 p_BASE "");;;;示例
    
37.       )
    
38.       )
    
39.   )
    

(defun c:hello(/ scale newbase pt-base)<br />   (setvar "cmdecho" 0)<br /> ;记忆上次输入比例<br />   (initget "Scale Newbase  Pt-base")<br />   (setq key (getkword "\n请选择(比例<S>或基点高程<N>或基点<P>)<默认S>:"))<br />   (if (not key) (setq key "Scale"))<br />       (if (= key "Scale")<br />       (progn<br />       (setq SC (getreal "\n输入比例<100>:"))<br />       (if (not sc) (setq sc 100))<br />       )<br />       )<br /> ;记忆上次基点高程<br />       (if (= key "Newbase")<br />       (progn<br />       (setq H_BASE (getreal "\n输入基点高程<0.00>: "))<br />       (if (not H_BASE) (setq sc 0.00))<br />       )<br />       )<br /> ;记忆上次基点位置<br />       (if (= key "Pt-base")<br />       (progn<br />       (setq p_BASE (getpoint "\n指定基点<上次基点>: "))<br />       (command "point" p_base);;;此句不能少！<br />       (command )<br />       (if (/= p_base nil)<br />         (progn<br />         (setq e1  (entlast))<br />         (setq ss1 (entget e1))<br />         (setq pp  (cdr(assoc 10 ss1)))<br />         )<br />         (setq p_BASE pp)<br />        )<br />       (setq p1 (getpoint "\n指定点: "));;;;示例<br />       (command "line" p1 p_BASE "");;;;示例<br />       )<br />       )<br />   )<br />

gcho

yjr111 发表于 2011-9-5 19:28
看看是不是满足你的要求....

我下午弄了一下，也弄出来了，仍然谢谢你的帮助，你的方法也很不错！

yjr111

不知道你是用什么方法的，能不能贴出来看看？

gcho

yjr111 发表于 2011-9-5 20:36
不知道你是用什么方法的，能不能贴出来看看？

;记忆上次基点位置
          (initget 128 " ")
                (setq PT_BASEE (getpoint "\n指定基点或[上次基点(回车)]:"))
                (cond
                  ((= PT_BASEE " ")
                         (setq PT_BASEE *NewPTBASE*)
                        )
                        ((= (TYPE BSPOINT) 'LIST)
                        )
                )
         

twsyzx

举一反三，多谢指教