UNDO编组

cqnj023

使用(command         "undo" "be")


.......................其它操作


(command "line" '(0 1) '(4 5) "")


(command "undo" "e")


(command "u")


居然不能返回到设置be位置，却只删除了line，是怎么回事？

my_computer

(defun c:d2()
(command "undo" "g")
(command "line" (list 0 0 ) (list 1 1) "")
(command "undo" "e")
(command "undo" "1")
(princ)
)

cqnj023

谢谢，帮助文件里是be而不是g，但居然g可用而be不可用

meflying

cqnj023发表于2004-3-21 22:27:00回复：（cqnj023）UNDO编组使用(command \"undo\" \"be\") .......................其它操作 (command \"line\" '(0 1) '(4 5) \"\") (command \"undo\" \"e\") (command \"u\"

你的其它操作又是什么呢?我一直这么用的,没有问题啊

cqnj023

其实其它操作仅仅是建立了几个图层，设置了一下当前颜色及线形，至于为什么be不行而g可以，不得而知。

meflying

又是不舍得把自己的程序给出来？让别人怎么给你蒙答案？

cqnj023

飞哥，你误解了，只是以为这样能说的清楚一点，哪知误会了。我的目的是要临时获得几个外部文件中的数据生成的实体所组成的边界数据，程序如下：

(command "undo" "be")
(setq ss (ssadd))
(command "-layer" "m" "fuzhu" "C" "6" "" "")
(command "-style" "biaozhu" "宋体" "0.8" "0.7" "0" "" "" "")
(setq wenj (getfiled "请选择" "d:\剖面线" "scr" 4))
(setq f (open wenj "r"))
(setq a1 (read-line f))
(while (/= (wcmatch a1 "pline") t)
(setq a1 (read-line f))
)
(setq a1 (read-line f))
(setq a2 a1)
(while (/= a1 "")
(if (wcmatch a1 ";*")
(progn
(setq zf (substr a1 2))
(command "line" a2 "@1<90" "")
(ssadd (entlast) ss)
(command "text" "s" "biaozhu" "J" "bc" "from" a2 "@1<90" "0" zf)
(ssadd (entlast) ss)
)
)
(setq a2 a1)
(setq a1 (read-line f))
)
(close f)
(command "script" wenj)
(ssadd (entlast) ss)
(command "-block" "dddd" jidan ss "") ;;jidian为其它地方获得
(command "-insert" "dddd" jidian "" "" "")
(setq boundingbox (entlast)) ;;;;;boundingbox为子函数。
(command "undo" "e")
(command "u")

meflying

一个从现象上找不到问题所在的程序，就只能是通过调试来查找问题，而且调试比读程序查找问题速度更快，更容易，而调试就必须要程序除了问题部分外，其余的部分能够正确运行。。。



楼上的程序有诸多地方无法使程序继续


另外，你程序中说boundingbox是一个子函数，可在程序的使用中，它仅仅是一个变量而已

cqnj023

谢谢飞歌费心了，让我在调试调试，是的，boundingbox前的setq应去掉。