找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: uualice

[已解决] (已解决)自动修改编号

[复制链接]
 楼主| 发表于 2019-5-2 06:09:18 来自手机 | 显示全部楼层
对的,就是这个思路
来自: 微社区
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-5-2 06:28:56 | 显示全部楼层
王鹏_pBZlo 发表于 2019-5-2 06:04
如果纯粹是修改,不考虑原因的话,可以修改一下。
条件是,修改某个编号使得编号增加一个1或2或...,图中 ...

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

使用道具 举报

已领礼包: 586个

财富等级: 财运亨通

发表于 2019-5-2 09:02:52 | 显示全部楼层
(defun c:tt( / catt ctxt pre sset i txt)
        (defun t2l (string / str_ex_num s_word string_list)
        (if (= "" string)
            (setq string_list (list ""))
            (progn        (setq str_ex_num 1 string_list nil)               
                (while (not (> str_ex_num (strlen string)))
                        (setq s_word (substr string str_ex_num 1))
                        (if (= s_word "-")
                            (progn        (setq string_list (append string_list (list (substr string 1 (1- str_ex_num)))))
                                    (setq string (substr string (+ 1 str_ex_num)))                               
                                (setq str_ex_num 1))
                            (setq str_ex_num (1+ str_ex_num))
                        ))       
                (if (/= "" string) (setq string_list (append string_list (list string))))))
        string_list)
        (setq catt (car (entsel "\n选择修改编号:")))
        (command "undo" "be")
        (setq ctxt (t2l (cdr (assoc 1 (entget catt)))))
        (setq pre (strcat (car ctxt) "-"))
        (setq on (cadr ctxt))
        (command "ddedit" catt "")
        (setq nn (- (atoi (cadr (t2l (cdr (assoc 1 (entget catt)))))) (atoi on)))
        (prompt "\n选择需相应修改的其它编号")
        (setq sset (ssget  (list (cons 0 "TEXT") (cons 1 (strcat pre "#," pre "##," pre "###")))))
        (setq i 0)
        (while (setq catt (ssname sset i))
                (setq txt (cdr (assoc 1 (entget catt))) txt (t2l txt))
                (if (>= (atoi (cadr txt)) (atoi on))
                    (progn        (setq txt (strcat pre (itoa (+ nn (atoi (cadr txt))))))
                        (entmod (subst (cons 1 txt) (assoc 1 (entget catt)) (entget catt)))
                    )
                )
                (setq i (1+ i))
        )
        (command "undo" "e")(princ)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 586个

财富等级: 财运亨通

发表于 2019-5-2 11:30:18 来自手机 | 显示全部楼层
uualice 发表于 2019-5-2 06:28
对的,就是这样的思路,最好后面自动修改的编号有可供选择的,我需要自动修改哪几个编号,就选择哪几个

按要求修改完成
来自: 微社区

评分

参与人数 1D豆 +10 收起 理由
cbwt8116 + 10 热心帮忙奖!

查看全部评分

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

使用道具 举报

 楼主| 发表于 2019-5-2 16:38:19 | 显示全部楼层

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

使用道具 举报

发表于 2019-9-20 12:04:11 | 显示全部楼层

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 05:02 , Processed in 0.314892 second(s), 37 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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