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 static/image/common/back.gif
谢谢大家的帮助，问题解决了

望贴出修改后的代码

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有何区别
页: [1] 2 3
查看完整版本: 怎么样给我的代码增加记忆功能