怎么样给我的代码增加记忆功能

hhh454 · 发表于 2011-2-24 14:41:38

(defun c:ngc_sc (/ ngc_pa ngc_pb ngc_ty)
  (setvar "CMDECHO" 0)
  (setq ngc_pa (getpoint "指定一点:"))
  (setq ngc_pb (/ 1.0 180)) ；每次比例不一样就要改这里，想让这里有个记忆的功能
  (setq ngc_ty (ssget))
  (command ".scale" ngc_ty "" ngc_pa ngc_pb "")
  (setvar "CMDECHO" 1)
  (princ)
  )

zmzk · 发表于 2022-12-28 11:32:08

呵呵，学习了，谢谢

usercoolbo · 发表于 2011-2-24 14:42:47

没怎么懂，你直接输入比例不就行了？

hhh454 · 发表于 2011-2-24 14:46:08

回复 usercoolbo 的帖子

有的时候要缩放比例的时候比较多，这样能省点时间，我是做建筑模型的。通常都是带比例画图

hhh454 · 发表于 2011-2-24 14:47:28

比如我现在的绘图比例是1/300,我只要输入一次，其他的就可以省了

Gu_xl · 发表于 2011-2-24 16:11:20

本帖最后由 Gu_xl 于 2011-2-24 20:53 编辑

回复 hhh454 的帖子

将比例变量*Scale*设为全局变量储存：
(if *Scale* (setq NewScale (getreal (strcat "\n比例值<" (rtos *Scale* 2 2) ">:") ) ) (setq NewScale (getreal "\n比例值:")))
(if (null NewScale) (setq NewScale *Scale*) (setq *Scale* NewScale ))

hhh454 · 发表于 2011-2-25 08:37:20

谢谢大家的帮助，问题解决了

xiaxiang · 发表于 2011-2-25 09:58:27

hhh454 发表于 2011-2-25 08:37
谢谢大家的帮助，问题解决了

望贴出修改后的代码

hhh454 · 发表于 2011-2-25 10:54:21

修改后的代码：
(defun c:ngc_sc (/ ngc_pa NewScale ngc_ty)
  (setvar "CMDECHO" 0)
  (setq ngc_pa (getpoint "指定一点:"))
  (if *Scale* (setq NewScale (getreal (strcat  "\n比例值<" (rtos *Scale* 2 2) ">:") ) )
  (setq NewScale (getreal  "\n比例值:")))
  (if (null NewScale) (setq NewScale *Scale*) (setq *Scale*  NewScale ))
  (setq ngc_ty (ssget))
  (command ".scale" ngc_ty "" ngc_pa NewScale)
  (setvar "CMDECHO" 1)
  (princ)
  )

hhh454 · 发表于 2011-2-25 10:55:10

回复 xiaxiang 的帖子

代码已经贴上去了

guankuiwu · 发表于 2011-2-26 12:57:48

这个跟sc有何区别

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

[基础] 怎么样给我的代码增加记忆功能

点评

评分

本帖子中包含更多资源