求输入tt，点击文字，用-把文字连一起，可以插入到cad，并把文字复制到粘贴板，便...

664571221 · 发表于 2023-10-11 15:17:16

ssyfeng · 发表于 2023-10-11 15:56:26

这种简单的，你自己都会写啦。不行就逼一下自己

uualice2020 · 发表于 2023-10-11 16:27:48

讲下思路：对多线段创建选择集，用循环函数对每个多线段创建文字的选择集，判断选择集中文字的的位置，来确定最后文字是前缀还是后缀。然后用strcat把前缀 -后缀连接起来写入cad

664571221 · 发表于 2023-10-11 17:45:15

ssyfeng 发表于 2023-10-11 15:56
这种简单的，你自己都会写啦。不行就逼一下自己

大哥我不懂代码

NewBug · 发表于 2023-10-11 21:36:15

直接文字分组

664571221 · 发表于 2023-10-12 10:55:00

NewBug 发表于 2023-10-11 21:36
直接文字分组

大哥可以出手不

664571221 · 发表于 2023-10-12 11:32:17

波总的代码
;;-------------------------------------------------
(defun c:tt (/ e e1 e2 s s1 st)
(if (and (setq s (ssget ":S" '((0 . "TEXT"))))
(setq s (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))))
(setq s
(mapcar
'(lambda(x / xx)
   (setq xx (entget x))
   (list (cdr (assoc 10 xx))
   (cdr (assoc 1 xx))
   )
   )
s
)
)
)
(progn
(while (setq e (caar s))
(if (and (setq s1 (vl-remove-if-not '(lambda(x)(equal e (car x) 600))s))
   (<= 2 (length s1))
(setq e1 (car s1) e2 (cadr s1))
(setq st
(if (< (cadar e1)(cadar e2))
(strcat (cadr e2) "-" (cadr e1))
(strcat (cadr e1) "-" (cadr e2))
)
)
(entmakex
(list '(0 . "TEXT")
(cons 1 st)
(cons 7 (getvar "TEXTSTYLE"))
(cons 10 (mapcar '+ (car e1)'(800 0 0)))
(cons 40 200)
)
)
)
(foreach x s1 (setq s (vl-remove x s)))
)
)
)
)
(princ)
)
;;-------------------------------------------------

czb203 · 发表于 2023-10-13 10:33:59

论坛里面很多这样的，认真搜索下看看

664571221 · 发表于 2023-10-13 12:10:04

czb203 发表于 2023-10-13 10:33
论坛里面很多这样的，认真搜索下看看

可以发几个不....

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

[提问] 求输入tt，点击文字，用-把文字连一起，可以插入到cad，并把文字复制到粘贴板，便...

本帖子中包含更多资源

点评