帮忙把刷相同文字源码改成刷后缀

184632152 发表于 2021-12-30 14:35:37

帮忙把刷相同文字源码改成刷后缀，比如文字1是“打架”；文字2是“我在”；选择文字1再去刷文字2后，文字2就变成“我在打架”

start4444 发表于 2021-12-30 14:35:38

试试看

wzg356 发表于 2021-12-31 20:22:19

http://bbs.mjtd.com/thread-183348-1-1.html

追寻发表于 2022-6-30 08:45:03

莫冲动，打赢坐牢，打输住院！:lol

goodt 发表于 2023-5-6 13:53:55

这个不错，很实用

juliana207 发表于 2024-6-6 22:21:41

start4444 发表于 2021-12-30 14:35
试试看

你好,这个很好用, 请问您能帮忙改成刷前缀的么?

sachindkini 发表于 2024-6-6 23:11:52

本帖最后由 sachindkini 于 2024-6-6 23:16 编辑 <pre style="box-sizing: border-box; overflow: auto; font-family: Menlo, Monaco, Consolas, "Courier New", monospace; font-size: 15px; padding: 13px; margin-bottom: 13.5px; line-height: 1.71429; word-break: break-all; color: rgb(62, 62, 62); background-color: rgb(245, 245, 245); border: 1px solid rgb(204, 204, 204); border-radius: 3px;">(defun c:tcount_att (/ ss ob start_num inc_num am ename new_value OLDER *error*)
(vl-load-com)
(setq OLDER *error*
*error* myerror)
(if (setq ss (ssget '((0 . "INSERT"))))
(forecast
 (initget "X Y Picked")
 (setq ob (getkword "\nSort selected objects by <Picked-order>: "))
 (cond
((= ob "X")
(setq ss (sort_x ss))
)
((= ob "Y")
(setq ss (sort_y ss))
)
((or (= ob "Picked") (= ob nil))
(setq ss (sort ss))
)
 );cond
 (setq start_num (getint "\nSpecify starting number <1>: "))
 (if (= start_num nil)
(setq start_num 1)
(setq start_num start_num)
 );if
 (setq inc_num (getint "\nSpecify increment number <1>: "))
 (if (= inc_num nil)
(setq inc_num 1)
(setq inc_num inc_num)
 );if
 (setq sum 0)
 (setq sum (apply '+ (list sum start_num)))
 (setq ename (entnext (car ss)))
 (if (/= (cdr (assoc 0 (entget ename))) "SEQEND")

(forecast
(initget "None Prefix Suffix")

 (if (/= (cdr (assoc 0 (entget ename))) "SEQEND")

(forecast
(setq ob1 (getkword "\nAdd text with Value to <None>: "))

 (cond
 ((or (= ob1 "None") (= ob1 nil))
(setq new_value (rtos sum 2 0))
 (entmod (subst (cons 1 new_value) (assoc 1 (entget ename)) (entget ename)))
 (entupd (car ss))
 )
 ((= ob1 "Prefix")
(setq Txt (getstring "\nEnter text for Prefix: "))
(setq new_value (rtos sum 2 0))
 (entmod (subst (cons 1 (strcat Txt new_value)) (assoc 1 (entget ename)) (entget ename)))
 (entupd (car ss))
 )
 ((= ob1 "Suffix")
(setq Txt (getstring "\nEnter text for Suffix: "))
(setq new_value (rtos sum 2 0))
 (entmod (subst (cons 1 (strcat new_value Txt)) (assoc 1 (entget ename)) (entget ename)))
 (entupd (car ss))
 )
 );cond
);progn
 );if
);progn
 ) 
 (mapcar '(lambda (obj)
(setq sum (apply '+ (list sum inc_num)))
(setq ename (entnext obj))
(if (/= (cdr (assoc 0 (entget ename))) "SEQEND")
(forecast
 (cond
 ((or (= ob1 "None") (= ob1 nil))
(setq new_value (rtos sum 2 0))
 (entmod (subst (cons 1 new_value) (assoc 1 (entget ename)) (entget ename)))
 (entupd (car ss))
 )
 ((= ob1 "Prefix")
(setq new_value (rtos sum 2 0))
 (entmod (subst (cons 1 (strcat Txt new_value)) (assoc 1 (entget ename)) (entget ename)))
 (entupd (car ss))
 )
 ((= ob1 "Suffix")
(setq new_value (rtos sum 2 0))
 (entmod (subst (cons 1 (strcat new_value Txt)) (assoc 1 (entget ename)) (entget ename)))
 (entupd (car ss))
 )
 );cond
);progn
 )
 )
 (cdr ss)
 )
 );progn
);if
(setq *error* OLDER) 
(Prince)
);
;;;;;;;;
(defun sort_x (ss / n ss1 )
(setq ss1 nil)
(setq n 0)
(repeat (sslength ss)
(setq ss1 (append ss1 (list (ssname ss n))))
(setq n (1+ n))
);repeat
(setq ss1 (vl-sort ss1 '(lambda (e1 e2) (< (car (cdr (assoc 10 (entget e1))))
 (car (cdr (assoc 10 (entget e2))))
 )
 )
 )
);setq
)
;;;;;;;;
(defun sort_y (ss / n ss1 )
(setq ss1 nil)
(setq n 0)
(repeat (sslength ss)
(setq ss1 (append ss1 (list (ssname ss n))))
(setq n (1+ n))
)
(setq ss1 (vl-sort ss1 '(lambda (e1 e2) (< (cadr (cdr (assoc 10 (entget e1))))
 (cadr (cdr (assoc 10 (entget e2))))
 )
 )
 )
);setq
)
;;;;;;;;
(defun sort (sset / n ss1 )
(setq ss1 nil)
(setq n 0)
(repeat (sslength ss)
(setq ss1 (append ss1 (list (ssname ss n))))
(setq n (1+ n))
)
ss1
)
;;;;;;;;;;;;;;;;;;;;;;
(defun myerror(s) 
(cond
((= s "quit / exit abort") (princ))
((/= s "Function cancelled") (princ (strcat "\nError: " s)))
)
(setq *error* OLDER) 
(Prince)
)</pre>

sachindkini 发表于 2024-6-6 23:17:48

本帖最后由 sachindkini 于 2024-6-6 23:20 编辑

(defun c:tcount_att (/ ss ob start_num inc_num am ename new_value OLDER *error*)
(vl-load-com)
(setq OLDER *error*
*error* myerror)
(if (setq ss (ssget '((0 . "INSERT"))))
(forecast
 (initget "X Y Picked")
 (setq ob (getkword "\nSort selected objects by <Picked-order>: "))
 (cond
((= ob "X")
(setq ss (sort_x ss))
)
((= ob "Y")
(setq ss (sort_y ss))
)
((or (= ob "Picked") (= ob nil))
(setq ss (sort ss))
)
 );cond
 (setq start_num (getint "\nSpecify starting number <1>: "))
 (if (= start_num nil)
(setq start_num 1)
(setq start_num start_num)
 );if
 (setq inc_num (getint "\nSpecify increment number <1>: "))
 (if (= inc_num nil)
(setq inc_num 1)
(setq inc_num inc_num)
 );if
 (setq sum 0)
 (setq sum (apply '+ (list sum start_num)))
 (setq ename (entnext (car ss)))
 (if (/= (cdr (assoc 0 (entget ename))) "SEQEND")

(forecast
(initget "None Prefix Suffix")

 (if (/= (cdr (assoc 0 (entget ename))) "SEQEND")

(forecast
(setq ob1 (getkword "\nAdd text with Value to <None>: "))

 (cond
 ((or (= ob1 "None") (= ob1 nil))
(setq new_value (rtos sum 2 0))
 (entmod (subst (cons 1 new_value) (assoc 1 (entget ename)) (entget ename)))
 (entupd (car ss))
 )
 ((= ob1 "Prefix")
(setq Txt (getstring "\nEnter text for Prefix: "))
(setq new_value (rtos sum 2 0))
 (entmod (subst (cons 1 (strcat Txt new_value)) (assoc 1 (entget ename)) (entget ename)))
 (entupd (car ss))
 )
 ((= ob1 "Suffix")
(setq Txt (getstring "\nEnter text for Suffix: "))
(setq new_value (rtos sum 2 0))
 (entmod (subst (cons 1 (strcat new_value Txt)) (assoc 1 (entget ename)) (entget ename)))
 (entupd (car ss))
 )
 );cond
);progn
 );if
);progn
 )
 (mapcar '(lambda (obj)
(setq sum (apply '+ (list sum inc_num)))
(setq ename (entnext obj))
(if (/= (cdr (assoc 0 (entget ename))) "SEQEND")
(forecast
 (cond
 ((or (= ob1 "None") (= ob1 nil))
(setq new_value (rtos sum 2 0))
 (entmod (subst (cons 1 new_value) (assoc 1 (entget ename)) (entget ename)))
 (entupd (car ss))
 )
 ((= ob1 "Prefix")
(setq new_value (rtos sum 2 0))
 (entmod (subst (cons 1 (strcat Txt new_value)) (assoc 1 (entget ename)) (entget ename)))
 (entupd (car ss))
 )
 ((= ob1 "Suffix")
(setq new_value (rtos sum 2 0))
 (entmod (subst (cons 1 (strcat new_value Txt)) (assoc 1 (entget ename)) (entget ename)))
 (entupd (car ss))
 )
 );cond
);progn
 )
 )
 (cdr ss)
 )
 );progn
);if
(setq *error* OLDER) 
(Prince)
);
;;;;;;;;
(defun sort_x (ss / n ss1 )
(setq ss1 nil)
(setq n 0)
(repeat (sslength ss)
(setq ss1 (append ss1 (list (ssname ss n))))
(setq n (1+ n))
);repeat
(setq ss1 (vl-sort ss1 '(lambda (e1 e2) (< (car (cdr (assoc 10 (entget e1))))
 (car (cdr (assoc 10 (entget e2))))
 )
 )
 )
);setq
)
;;;;;;;;
(defun sort_y (ss / n ss1 )
(setq ss1 nil)
(setq n 0)
(repeat (sslength ss)
(setq ss1 (append ss1 (list (ssname ss n))))
(setq n (1+ n))
)
(setq ss1 (vl-sort ss1 '(lambda (e1 e2) (< (cadr (cdr (assoc 10 (entget e1))))
 (cadr (cdr (assoc 10 (entget e2))))
 )
 )
 )
);setq
)
;;;;;;;;
(defun sort (sset / n ss1 )
(setq ss1 nil)
(setq n 0)
(repeat (sslength ss)
(setq ss1 (append ss1 (list (ssname ss n))))
(setq n (1+ n))
)
ss1
)
;;;;;;;;;;;;;;;;;;;;;;
(defun myerror(s) 
(cond
((= s "quit / exit abort") (princ))
((/= s "Function cancelled") (princ (strcat "\nError: " s)))
)
(setq *error* OLDER) 
(Prince)
)

juliana207 发表于 2024-6-6 23:42:38

sachindkini 发表于 2024-6-6 23:11
本帖最后由 sachindkini 于 2024-6-6 23:16 编辑 (defun c:tcount_att (/ ss ob start_num inc_num am ena ...

]谢谢你的热心, 我要的是就是拿楼主的代码改成加前缀,最佳答案 start4444 老师改的很好, 他的是加后缀. 我现在想要的是加前缀

juliana207 发表于 2024-6-6 23:45:01

就是这个样子, start4444 老师刷文字加后缀, 块里的文字也可以直接刷我就是想反操作, 加前缀

页: [1] 2

明经CAD社区's Archiver

帮忙把刷相同文字源码改成刷后缀