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

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

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

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

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

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
论坛里面很多这样的，认真搜索下看看

可以发几个不....
页: [1]
查看完整版本: 求输入tt，点击文字，用-把文字连一起，可以插入到cad，并把文字复制到粘贴板，便...