如何使以下程序在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)! p1 N& [, ?# E. G& y1 {
(setq p (GETPOINT "选择中心点:"))/ z1 S9 }- ~* v9 E+ V
(setq old_lay (getvar "clayer"))
) t, G" L( f$ X
(COMMAND "LAYER" "n" "center" "set" "center" "")
5 J9 h& {* `1 x2 z* j
(command "line" p pause "")
* ]+ S( n3 D1 Q' b
(setq czy_p (entlast))" Y6 j# |) F6 S
(command "ROTATE" czy_p "" p "c" "90"). `" D. Q9 L2 _1 B& ~: x9 g
(command "ROTATE" czy_p "" p "c" "180") _% K# F: l: q E# D$ Z+ B) j- Y% u
(command "ROTATE" czy_p "" p "c" "270")) o( E" a5 S0 o! h4 D* L+ c6 N
(setvar "clayer" old_lay)
a( S4 `* d0 ]
(initget 0 "u") ;定义关键字2 Q g, N- I5 ?6 _' d* j) C
(if (= (getkword "\n确定或 [放弃(U)]:") "u");检查用户输入的关键字决定是否放弃
/ G2 I. J. `, }; q5 I! G& K0 {
(repeat 5 (command "u")) ;放弃前面5个命令的结果
" u$ P: B+ ~) e: t, L* w6 K- {
;;; (command "undo" 5)
- ?! _6 ?% u) ]
)
/ F$ J. n* V" z R) e+ H
(prin1)
. a0 t$ b, v1 {% o z
) ;绘制圆的中心线

复制代码

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
8 g" e1 W( l5 d* h8 m/ K0 x那你就声明一个局部变量专门用于记录之前执行了多少个命令啊

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

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

woaishuijia 发表于 2013-7-22 18:18 static/image/common/back.gif
: |' w& c h1 d U那你就声明一个局部变量专门用于记录之前执行了多少个命令啊

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

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

通知

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

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

浏览过的版块