土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ cad中断后如何接着编辑序号

cad中断后如何接着编辑序号

发布于：2010-10-13 06:08:13 来自：建筑设计/CAD下载及教程 [复制转发]

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

在cad图形编辑物体连续序号时，由于数量多，常常中途要中断，怎样才能实现在中断后，继续操作时，
序号能连接起来？
例如：图上已经编辑了100个号，重新运行编辑时，能自动从101号接着编辑。
求高手指教，要如何修改上面的语句？
在此先谢了

cad

0人已收藏
0人已打赏
免费
0人已点赞
分享

复制链接新浪微博微信扫一扫

全部回复（2 ）

只看楼主我来说两句抢地板

lin_461045462 沙发

谢谢结构版主
试了试，此程序步骤好像只是在不退出程序的情况时，中断后又重新运行产生递增。
不能在退出程序后重新启动时，先搜索图上的序号，找出最大的值，然后接着最大值+1的方式运行。
不知能否做到这一点？
望高手指教。
谢谢

2010-10-13 23:04:13
回复举报
赞同0
小萝卜的头板凳

利用全局变量[code](defun C:TT ()
(or *旧序号*
(setq *旧序号* 1)
)
(setq K (getint (strcat "\n请输入当前序号<" (itoa *旧序号*) ">: ")
)
)
(if K
(setq *旧序号* (1+ K))
(setq *旧序号* (1+ *旧序号*))
)
(princ)
)[/code]

2010-10-13 12:56:13
回复举报
赞同0