如何使以下程序在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)" S9 _& F. O) Y9 h6 x* M2 F6 L; m
(setq p (GETPOINT "选择中心点:"))
2 L, A c' R8 A/ M7 m6 i4 F' j3 O( I
(setq old_lay (getvar "clayer"))1 F; `2 y) `% s: U
(COMMAND "LAYER" "n" "center" "set" "center" "")- M, l9 l. a: s5 a
(command "line" p pause "")0 P0 M/ w( k M8 c* [% @
(setq czy_p (entlast))8 s- [& f% r* s! M- X M4 h
(command "ROTATE" czy_p "" p "c" "90")4 W7 f/ o U1 Y8 m$ n3 `1 B
(command "ROTATE" czy_p "" p "c" "180")
% ]5 H; O: B% I6 C& |& {) P6 c7 \
(command "ROTATE" czy_p "" p "c" "270")% U& d3 Z* o3 h; f: ]" o2 _
(setvar "clayer" old_lay)( l- T7 A0 x6 k# G4 y
(initget 0 "u") ;定义关键字7 J- x& E% B2 j
(if (= (getkword "\n确定或 [放弃(U)]:") "u");检查用户输入的关键字决定是否放弃* H) Y% m1 n7 ^# ^
(repeat 5 (command "u")) ;放弃前面5个命令的结果$ v) g7 Z) M, x+ s) o6 U2 @: J* [4 U
;;; (command "undo" 5)0 n2 A9 o/ F4 m/ m
)
4 i9 Z1 e* G9 v9 `: Q- m2 f
(prin1)$ \5 N) F o7 |, M' c6 T
) ;绘制圆的中心线

复制代码

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
, b( e& u+ z+ r那你就声明一个局部变量专门用于记录之前执行了多少个命令啊

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

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

woaishuijia 发表于 2013-7-22 18:18 static/image/common/back.gif+ Y1 ]# x8 \# b4 S
那你就声明一个局部变量专门用于记录之前执行了多少个命令啊

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

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

通知

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

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

浏览过的版块