(已解决)自动修改编号

uualice · 发表于 2019-4-30 09:56:17

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

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

×

本帖最后由 uualice 于 2019-5-2 16:40 编辑

具体步骤：1.选需要改的编号 2.手动改其中一个编号，后面的编号自动修改，前面的编号不变

具体看附件CAD图

王鹏_pBZlo · 发表于 2019-5-2 11:30:18

uualice 发表于 2019-5-2 06:28
对的，就是这样的思路，最好后面自动修改的编号有可供选择的，我需要自动修改哪几个编号，就选择哪几个

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

cavid · 发表于 2019-4-30 10:22:20

有图演示下就好了

newer · 发表于 2019-4-30 10:43:41

1、论坛编号软件有很多，搜索下
2、发帖最好图片直接贴上来，不是谁都有时间下载附件去看

uualice · 发表于 2019-4-30 10:50:38

补发一张截图，望大神们帮忙

uualice · 发表于 2019-4-30 10:51:57

newer 发表于 2019-4-30 10:43
1、论坛编号软件有很多，搜索下
2、发帖最好图片直接贴上来，不是谁都有时间下载附件去看

论坛上的搜索过了，没找到我需要的，另外我补发了一张截图，谢谢你的回复

王鹏_pBZlo · 发表于 2019-4-30 12:34:35

思路
前提:文字格式是用－分隔的2个数字
1 选择需要修改的文字，可框选
2 输入要增加的数字
3 插件对选中的文字把－后边的数字加上输入的数字修改完成
4 若是减小可输入负数
来自: 微社区

王鹏_pBZlo · 发表于 2019-4-30 16:38:18

本帖最后由王鹏_pBZlo 于 2019-4-30 17:13 编辑

(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)))))
(command "ddedit" catt "")
(setq pre (strcat (car ctxt) "-"))
(setq sset (ssget "x" (list (cons 0 "TEXT") (cons 1 (strcat pre "#," pre "##," pre "###")))))
(setq sset (ssdel catt sset))
(setq i 0)
(while (setq catt (ssname sset i))
(setq txt (cdr (assoc 1 (entget catt))) txt (t2l txt))
(if (> (atoi (cadr txt)) (atoi (cadr ctxt)))
      (progn (setq txt (strcat pre (itoa (1+ (atoi (cadr txt))))))
(entmod (subst (cons 1 txt) (assoc 1 (entget catt)) (entget catt)))
      )
)
(setq i (1+ i))
)
(command "undo" "e")(princ)
)

王鹏_pBZlo · 发表于 2019-4-30 18:28:20

可能还会有删除一个编号，其它排在后面的编号要减去1的需求吧
来自: 微社区

王鹏_pBZlo · 发表于 2019-4-30 18:30:52

本帖最后由王鹏_pBZlo 于 2019-4-30 20:38 编辑

比如，删除编号 1-5，那1-6就要改为1-5， 1-7要改为1-6，... ...
(defun c:tt1( / 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)))))
(entdel catt)
(setq pre (strcat (car ctxt) "-"))
(setq sset (ssget "x" (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 (cadr ctxt)))
      (progn (setq txt (strcat pre (itoa (1- (atoi (cadr txt))))))
(entmod (subst (cons 1 txt) (assoc 1 (entget catt)) (entget catt)))
      )
)
(setq i (1+ i))
)
(command "undo" "e")(princ)
)

来自: 微社区

uualice · 发表于 2019-5-2 00:04:24

王鹏_pBZlo 发表于 2019-4-30 16:38
(defun c:tt( / catt ctxt pre sset i txt)
(defun t2l (string / str_ex_num s_word string_list)
(if ...

谢谢，基本上实现了我的要求，还有个问题，就是，修改的时候能多选吗，比如说我要修改1-3,1-3不止一个

王鹏_pBZlo · 发表于 2019-5-2 00:15:15

你可以文字替换。或修改1-2, 如果没有1-2,临时写个1-2，改完删掉这个临时的编号，不就好了
来自: 微社区

uualice · 发表于 2019-5-2 00:28:59

王鹏_pBZlo 发表于 2019-5-2 00:15
你可以文字替换。或修改1-2, 如果没有1-2,临时写个1-2，改完删掉这个临时的编号，不就好了

我又重新试了下，发现一个新问题，如果我把1-3直接改成1-5，那么我的效果是后面的编号1-4自动改成1-6,1-5自动改成1-7，你的插件好像后面的编号自动加1的

uualice · 发表于 2019-5-2 00:45:26

王鹏_pBZlo 发表于 2019-5-2 00:15
你可以文字替换。或修改1-2, 如果没有1-2,临时写个1-2，改完删掉这个临时的编号，不就好了

我的论坛级别受限，发不了私信，这是我电脑的申请码8B21-2841-6D41-9D90-11100426 （自动按编号统计。。插件）

王鹏_pBZlo · 发表于 2019-5-2 05:44:38

uualice 发表于 2019-5-2 00:28
我又重新试了下，发现一个新问题，如果我把1-3直接改成1-5，那么我的效果是后面的编号1-4自动改成1-6,1-5 ...

我的理解是，如果你需要这种修改，一定是原先的编号中需要插入一个编号，比如想插入一个1-4,那么原先的1-4,1-5就要变成1-5，1-6，这时候复制原先的1-3，修改1-3为1-4即可，原先的1-3是不会修改的。所以只需+1，什么时候需要+2呢？。修改是会在图内搜索所有符合条件的文字，然后判断是否需要修改的。
来自: 微社区

王鹏_pBZlo · 发表于 2019-5-2 06:04:03

如果纯粹是修改，不考虑原因的话，可以修改一下。
条件是，修改某个编号使得编号增加一个1或2或...，图中与它相同的编号也要一起修改掉，编号在其后的也增加1或2或...。
你确认是这样的吗？
来自: 微社区

账号		自动登录	找回密码
密码			立即注册

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

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

评分

评分