找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 4899|回复: 6

[求助]:复制+自动递增编号的lisp

[复制链接]
发表于 2009-3-9 12:06:01 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
有没有一个lisp是可以复制数字,并且复制完后的数字比前一数字自动递增呢?就是我复制的数字为3,复制后的数字是4,继续复制下一个的话,就是5。以前好像看到过,现在找不到了。晓东现在的搜索功能用不了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2013-5-21 16:18:13 | 显示全部楼层
见过单选递增的
没有见过复制递增的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-14 11:00:12 | 显示全部楼层
复制并加步长

(defun c:gf()
(setq bc (getint "\n 请输入步长:"))
)


(defun c:mcc()

(if (= bc nil)
(setq bc 1)
)

(setq entt  (ssget '((0 . "*TEXT"))))

(setq len (sslength entt))
(setq n 0 nn 0 nnn 0)
(setq pt1 (getpoint "\n 请选择一个点:"))
(setq pt2 (acet-ss-drag-move entt pt1 "\n选择第二点:" "highlight" 1))
(setq ssxin (ssadd))


(while pt2
(setq n 0)

(repeat len
(setq ent (ssname entt n))
(command "copy" ent "" pt1 pt2)
(setq entxin (entlast))

(setq ssxin (ssadd entxin ssxin))
(setq n (1+ n))
)



(repeat len

(setq ent1 (ssname ssxin nn))
(setq dxf1 (entget ent1))          ;联合列表
(setq wenzizu (assoc 1 dxf1))     ;点对列表
(setq wenzi (cdr wenzizu))       ;文字

(setq wenzilen (strlen wenzi))
(setq fanyihou (vl-string-translate "1234567890" "##########" wenzi))  ;翻译字符

(setq weizhi (vl-string-search "#" fanyihou))  ;找出#的位置

(setq qianzhui (substr wenzi 1 weizhi))   ;取出前缀
(setq shuzi (substr wenzi (+ weizhi 1)))   ;取出字符串形式的数字
(setq shishu (atoi shuzi))   ;把数字改为实数

(setq lll (substr wenzi 1 1))  ;判断第一个字符是什么


(cond



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(
(= lll "<")                                           ;
(progn                                                  ;
(setq b (+ shishu bc nnn))                                ;
(setq c (itoa b))                                       ;
                                                        ;
(setq d (strcat qianzhui c ">"))                        ;
                                                        ;
(setq e (cons 1 d))  
                                   ;
(setq dxf1 (subst e wenzizu dxf1))                       ;
(entmod dxf1)                                           ;
(princ)                                                 ;
)  ;end progn                                           ;
)  ;end first                                           ;
                                                        ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


                                                             ;如果要加判断的话,请选择这里



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(t                                                      ;
(progn                                                  ;
(setq b (+ shishu bc nnn))                                ;
(setq c (itoa b))                                       ;
(setq d (strcat qianzhui c))                            ;
(setq e (cons 1 d))
                                                        ;    ;此处为第二个判断                                                  ;
(setq dxf1 (subst e wenzizu dxf1))                       ;
(entmod dxf1)                                           ;
(princ)                                                 ;
)   ;end progn                                                    ;
)    ;end second                                                   ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;




)  ;end cond

(setq nn (+ 1 nn))



)    ;end repeat
(setq nnn (+ bc nnn))
(setq pt2 (acet-ss-drag-move entt pt1 "\n选择第二点:" "highlight" 1))
); end while

(setq ssxin nil)
)    ;end defun


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-9-10 09:45:38 | 显示全部楼层
士大夫士大夫士大夫撒
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 391个

财富等级: 日进斗金

发表于 2013-9-23 18:36:04 | 显示全部楼层
一直用文字修改大师,功能挺全的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 104个

财富等级: 日进斗金

发表于 2016-8-23 17:09:01 | 显示全部楼层
马了,这个很好用,还有步长设置很给力哦。。。唯一缺点是只能在末尾增加,不能选择以那个字符为参照增加,总的来说是很棒的。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 226个

财富等级: 日进斗金

发表于 2024-5-29 08:27:47 | 显示全部楼层
不错,谢谢分享!!!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-27 11:21 , Processed in 0.212123 second(s), 44 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表