如何使以下程序在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)
: M9 A2 O& P/ }$ u- y
(setq p (GETPOINT "选择中心点:"))
+ A( q3 n- R3 Y) R
(setq old_lay (getvar "clayer")), y" \ c# g8 Z# `. e! x6 @* I
(COMMAND "LAYER" "n" "center" "set" "center" "")1 ~* {4 @5 C, C0 Q
(command "line" p pause "")
# `% h5 B3 n% K3 F& g6 C n
(setq czy_p (entlast))
2 e4 Y* s) I# l
(command "ROTATE" czy_p "" p "c" "90")
0 u# O$ d& B& q
(command "ROTATE" czy_p "" p "c" "180")
. j2 ?( W4 c# r0 c& I
(command "ROTATE" czy_p "" p "c" "270")
% Z7 O* R8 n& e
(setvar "clayer" old_lay)
6 U0 t, i- e: U0 B8 c
(initget 0 "u") ;定义关键字
0 b6 w, x2 f0 M+ c( D4 O! y
(if (= (getkword "\n确定或 [放弃(U)]:") "u");检查用户输入的关键字决定是否放弃: {7 ~8 h( R4 p7 k6 r
(repeat 5 (command "u")) ;放弃前面5个命令的结果
, J/ Z0 L. U, e. ^8 N
;;; (command "undo" 5)
+ ?1 t! g& W6 K" a, W/ k
)
) P8 y0 x8 q5 x( Z9 d6 B5 E
(prin1)
2 O- l6 G5 }& F: e- @
) ;绘制圆的中心线

复制代码

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& W1 j3 s; P+ z# a7 [; Y& Z
那你就声明一个局部变量专门用于记录之前执行了多少个命令啊

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

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

woaishuijia 发表于 2013-7-22 18:18 static/image/common/back.gif
8 E/ ^/ Q( @- W% o' T3 U那你就声明一个局部变量专门用于记录之前执行了多少个命令啊

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

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

通知

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

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

浏览过的版块