求一关于文本的代码

xj6019

其他的自己想办法，你其他的想法的变动，我感觉都在预料之中，说不定还会一直有新的想法想要添加，所以开头说过了,仅限开始说明的情况，自己还是要学会动点脑筋，然后逐渐自己调整

xj6019

还是再帮你调一次吧，后面再有啥想法，自己想想办法了哦，代码如下：


(defun c:nm (/ ss lst i en ent pt en1 en2 en3 txt1 p1 zg p2 p3 )
        (if        (setq ss (ssget (list '(0 . "text,mtext")'(62 . 1))))
                (progn
                        ;; 1、?取点位表
                       
                        (setq lst '()
                                i   0
                        )
                        (repeat (sslength ss)
                                (setq en  (ssname ss i)
                                        ent (entget en)
                                        pt  (cdr (assoc 10 ent))
                                        lst (append lst (list (list  pt en)))
                                        i          (1+ i)
                                )
                        )
                        ;; 2、排序
                        (setq
                                lst (vl-sort
                                                        lst
                                                        (function
                                                                (lambda (e1  e2)
                                                                        (if (equal (cadar e1) (cadar e2) 1e1)
                                                                                (< (caar e1) (caar e2))
                                                                                (< (cadar e1) (cadar e2))
                                                                        )
                                                                )
                                                        )
                                                )
                        )
                )
        )
        ; 3、文字
        (setq en1 (cadadr lst) en2 (cadr(last lst)) en3 (cadar lst))
        (setq txt1(strcat (cdr(assoc 1 (entget en3)))"kli"))  ;命名加了后?的文字  "kli" ?里自定?需要增加的那个文字的后?
        (setq zg(cdr (assoc 40 (entget en1))))
        (setq p1 (getpoint "\n?指定插入点:"))
        (setq p2 (polar p1 (* 1.5 pi)  (* 2.2 zg)))
        (setq p3 (polar p2 (* 1.5 pi)  (* 2.2 zg)))
        (setq pt1(cdr  (assoc 10 (entget en2))))
        (command "COPY" ss "" "non" pt1 "non" pt1)
        (entmod(subst(cons 10  p1)(assoc 10 (entget en2))(entget en2))) ;更新插入点
        (entmod(subst(cons 10  p2)(assoc 10 (entget en3))(entget en3))) ;更新插入点
        (entmod(subst(cons 10  p3)(assoc 10 (entget en1))(entget en1))) ;更新插入点
        (entmod(subst(cons 1  txt1)(assoc 1 (entget en3))(entget en3))) ;更新需要加了后?的文字
        (princ)
)

wgij007

xj6019 发表于 2021-10-5 09:39
还是再帮你调一次吧，后面再有啥想法，自己想想办法了哦，代码如下：

好的，感谢!!!!!!