cad中断后如何接着编辑序号
lin_461045462
2010年10月13日 06:08:04
只看楼主

我写了编辑序号的步骤如下: (COMMAND "LAYER" "M" "序号" "c" "1" "" "") (if (not (setq k (getint "\n请输入当前序号 <1>: "))) (setq k 1) ) (setq k (1+ k))在cad图形编辑物体连续序号时,由于数量多,常常中途要中断,怎样才能实现在中断后,继续操作时,序号能连接起来?例如:图上已经编辑了100个号,重新运行编辑时,能自动从101号接着编辑。

我写了编辑序号的步骤如下:
(COMMAND "LAYER" "M" "序号" "c" "1" "" "")
(if (not (setq k (getint "\n请输入当前序号 <1>: ")))
(setq k 1)
)
(setq k (1+ k))

在cad图形编辑物体连续序号时,由于数量多,常常中途要中断,怎样才能实现在中断后,继续操作时,
序号能连接起来?
例如:图上已经编辑了100个号,重新运行编辑时,能自动从101号接着编辑。
求高手指教,要如何修改上面的语句?
在此先谢了
免费打赏
小萝卜的头
2010年10月13日 12:56:44
2楼


利用全局变量[code](defun C:TT ()
(or *旧序号*
(setq *旧序号* 1)
)
(setq K (getint (strcat "\n请输入当前序号<" (itoa *旧序号*) ">: ")
)
)
(if K
(setq *旧序号* (1+ K))
(setq *旧序号* (1+ *旧序号*))
)
(princ)
)[/code]
回复
lin_461045462
2010年10月13日 23:04:41
3楼
谢谢结构版主
试了试,此程序步骤好像只是在不退出程序的情况时,中断后又重新运行产生递增。
不能在退出程序后重新启动时,先搜索图上的序号,找出最大的值,然后接着最大值+1的方式运行。
不知能否做到这一点?
望高手指教。
谢谢
回复

相关推荐

APP内打开