如何使以下程序在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)# j/ \: v: X/ r1 l& S6 n
(setq p (GETPOINT "选择中心点:"))7 [! {$ z* e: Q! ]9 E: g& w
(setq old_lay (getvar "clayer"))
1 q j- z* t: \' W
(COMMAND "LAYER" "n" "center" "set" "center" "")
8 Q/ W W0 J7 u S
(command "line" p pause "")
( O! {3 M0 h8 H- {+ \* x$ `- Y8 D" X
(setq czy_p (entlast))
& s& N$ M6 F7 D- N4 @
(command "ROTATE" czy_p "" p "c" "90")% s! G* w+ \9 ]1 U& Z I, b6 \
(command "ROTATE" czy_p "" p "c" "180")
) J4 G$ |0 K- E+ `2 \. y
(command "ROTATE" czy_p "" p "c" "270")- g/ S s# A7 c, W6 n' l
(setvar "clayer" old_lay)
- H. T' K$ E! Y5 h3 t
(initget 0 "u") ;定义关键字1 c% q. z3 g% D d' U4 b0 R
(if (= (getkword "\n确定或 [放弃(U)]:") "u");检查用户输入的关键字决定是否放弃$ D& Y8 V i% d# a: Q2 D% w
(repeat 5 (command "u")) ;放弃前面5个命令的结果( }& t a; \/ ~: A
;;; (command "undo" 5): K0 z4 f0 {; f
)
# z( Y: n0 U* r$ _! T
(prin1)
+ q2 M: n, {" J" ~
) ;绘制圆的中心线

复制代码

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.gif4 z! k4 Q p5 o3 E8 w8 D: q
那你就声明一个局部变量专门用于记录之前执行了多少个命令啊

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

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

woaishuijia 发表于 2013-7-22 18:18 static/image/common/back.gif
9 v0 \% f3 E l2 v( j" J那你就声明一个局部变量专门用于记录之前执行了多少个命令啊

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

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

通知

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

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

浏览过的版块