如何使以下程序在cad窗口下，按（Ctrl+Z）后，程序能一步返回到最初状态

2010caozhiyong · 发表于 2013-7-21 10:24:48

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 2010caozhiyong 于 2013-7-21 10:26 编辑

小弟一直有个困惑，自己编了很多程序，尤其是一些有循环的很长程序，结果画出来之后，发现画错了
然后，我就按放弃命令（Ctrl+Z）结果要按上几分钟才能一步一步的返回的最初状态
我简单复制了一个程序，如下，怎样添加内容，使该程序能成为一个整体，就像CAD内部程序一样，一步就可以返回到最初状态，谢谢

(defun c:xy(/ p czy_p)
(setq p (GETPOINT "选择中心点:"))
(setq old_lay (getvar "clayer"))
(COMMAND "LAYER" "n" "center" "set" "center" "")
(command "line" p pause "")
(setq czy_p (entlast))
(command "ROTATE" czy_p "" p "c" "90")
(command "ROTATE" czy_p "" p "c" "180")
(command "ROTATE" czy_p "" p "c" "270")
(setvar "clayer" old_lay)
(prin1)
);绘制圆的中心线

2010caozhiyong · 发表于 2013-7-21 12:11:21

本帖最后由 2010caozhiyong 于 2013-7-21 12:14 编辑

解释一下，可能朋友们没有听清楚意思
就是我程序编好了，加载后，在CAD窗口下运行后，发现我的画出来的图形不太对，想返回后重新画
但是，我在cad里用（Ctra+Z）命令，要一直按好久好久，才能一步一步的返回到我运行这个程序之前的状态
我现在想一步就返回到最初的状态，怎么修改程序呢？
就像cad内部命令一样，阵列了好多图元，我发现不对，想放弃，直接按一下（Ctra+Z）就行了，不要按好多下

woaishuijia · 发表于 2013-7-22 01:46:33

本帖最后由 woaishuijia 于 2013-7-22 01:48 编辑

(defun c:xy (/ p old_lay czy_p) k; k( F: v* F
(setq p (GETPOINT "选择中心点:"))2 P/ B1 i- {4 B: Z
(setq old_lay (getvar "clayer")): C) q V5 _* Y1 P: [
(COMMAND "LAYER" "n" "center" "set" "center" "")
. z1 o- K& j7 B+ Y
(command "line" p pause "")
/ h: y( Y. P. \3 T. P b# P7 ]
(setq czy_p (entlast)); s" v: D; V" g+ a6 J
(command "ROTATE" czy_p "" p "c" "90")$ W7 Z$ G& `1 L" e/ `
(command "ROTATE" czy_p "" p "c" "180")
% d& Y7 }2 D0 ~5 ~- k& a; v
(command "ROTATE" czy_p "" p "c" "270"). A! v) h% ]& G2 ]3 E
(setvar "clayer" old_lay): i6 q ?( }6 C7 z
(initget 0 "u") ;定义关键字
. v; C3 a ~1 R( ]6 @
(if (= (getkword "\n确定或 [放弃(U)]:") "u");检查用户输入的关键字决定是否放弃
' C8 z8 {+ `3 ]) e1 f0 ?. [
(repeat 5 (command "u")) ;放弃前面5个命令的结果# [* B. _( w0 @! d' [3 {7 b4 t
;;; (command "undo" 5)# p. u( t4 R6 {- _
)
& H/ ^" q5 y: | K4 M5 u! \, c
(prin1)
4 G# I& y5 B, N! T: w! y* x
) ;绘制圆的中心线

复制代码

2010caozhiyong · 发表于 2013-7-22 18:14:26

本帖最后由 2010caozhiyong 于 2013-7-22 18:29 编辑

woaishuijia 发表于 2013-7-22 01:46 static/image/common/back.gif

非常感谢版主的回复
对于我知道应该放弃5个命令的结果，该方案是行得通的，
但如果我是一个选集，且我也不知道要返回多少个命令的时候，就不适用该办法了。
有没有一个办法，可以把我的程序打一个包，就是一个整体，执行，放弃，都是一步
如下面程序

(defun c:yd (/ s b p0 n0 ss a0 a s0 p00)
  (setvar "cmdecho" 0)(setq old_osm (getvar "osmode")) (setvar "osmode" 0)
  (setq s (ssget) p1 (list 0 0))
  (setq s (ssget "p" '((0 . "circle")))
  );新建圆选集
  (command "copybase" p1 s "")  (command "pasteblock" p1)
  (setq n0  (-(sslength s) 1) a (ssadd))
  (if (= n0 -1) (exit))
  (repeat n0
(setq ss (ssname s 0)  p0 (czy_yxd ss) )
(if (/= p0 p00)(progn
   (command "POINT" p0)
   (setq a0 (entlast) a (ssadd a0 a))
   )
)
(setq p00 p0)
(ssdel ss s)(command "erase" ss "")
  )
(setq ss (ssname s 0)  p0 (czy_yxd ss) )
(if (/= p0 p00) (progn
(command "POINT" p0)
      (setq a0 (entlast) a (ssadd a0 a))
)
   )
(command "erase" ss "")
(command "copybase" p0 a "") (command "erase" a "")(command "pasteblock" p0)
(setvar "osmode" old_osm)(setvar "cmdecho" 1)
(princ)
);框选圆，并删除圆，在圆心处添加点

woaishuijia · 发表于 2013-7-22 18:18:17

那你就声明一个局部变量专门用于记录之前执行了多少个命令啊

2010caozhiyong · 发表于 2013-7-22 18:32:14

woaishuijia 发表于 2013-7-22 18:18 static/image/common/back.gif
5 ~$ h$ G2 ^, h2 H$ P9 c那你就声明一个局部变量专门用于记录之前执行了多少个命令啊

没有弄过，不会
版主，能不能帮我在以上程序里，添加一下啊
谢谢啊

2010caozhiyong · 发表于 2013-7-22 18:38:48

woaishuijia 发表于 2013-7-22 18:18 static/image/common/back.gif" e! H: ?6 V: A. `- Z P T% Y
那你就声明一个局部变量专门用于记录之前执行了多少个命令啊

上面是燕秀工具箱里的文字成线命令
我爆炸成线后，发现不对，我按“CTRA+Z”后出现的代码
版主知道，该程序是如何办到的吗？

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

通知

[求助] 如何使以下程序在cad窗口下，按（Ctrl+Z）后，程序能一步返回到最初状态

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。