给代码添加记忆功能！

gcho · 发表于 2011-9-4 16:42:01

本帖最后由 gcho 于 2011-9-4 16:46 编辑

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

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

rdhhb · 发表于 2016-5-1 22:39:24

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

paulpipi · 发表于 2020-9-28 09:27:42

学习了，谢谢无私分享

执骨哟 · 发表于 2020-9-28 15:30:52

很有用,谢谢分享

cnks · 发表于 2011-9-4 16:52:08

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

gcho · 发表于 2011-9-5 15:14:54

无语了！！！

cnks · 发表于 2011-9-5 15:19:43

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

你还无语？

caoyin · 发表于 2011-9-5 15:48:03

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

yjr111 · 发表于 2011-9-5 19:28:06

本帖最后由 yjr111 于 2011-9-5 19:33 编辑

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

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

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

gcho · 发表于 2011-9-5 20:09:24

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

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

yjr111 · 发表于 2011-9-5 20:36:35

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

gcho · 发表于 2011-9-5 21:17:57

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

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

twsyzx · 发表于 2013-11-15 21:16:51

举一反三，多谢指教

账号		自动登录	找回密码
密码			注册

给代码添加记忆功能！

本帖被以下淘专辑推荐:

评分

评分