嘒彼小星 发表于 2023-7-10 16:21:37

本帖最后由 嘒彼小星 于 2023-7-10 17:14 编辑

(defun C:tt ()
      (command "UNDO" "be")
      (if (setq E(cdr (assoc 1 (entget (car (entsel))))))
                (progn
                        (setq ss (ssget (list '(0 . "TEXT")(cons 1 E))))
                        (setq ss_gs (sslength ss))
                        (setq i 0)
                        (repeat ss_gs
                              (setq ss_n (ssname ss i))
                              (command "UCS" "e" ss_n)
                              (setq ss_data (entget ss_n))
                              (setq text_box (textbox ss_data))
                              (setq text_box_1 (car text_box))
                              (setq text_box_3 (cadr text_box))
                              (command "RECTANG" text_box_1 text_box_3)
                              (setq i (1+ i))
                        )
                        (command "UCS" "")
                        (princ (strcat"\n共有" (itoa ss_gs) "个相同文字加框"))
                )
      )
      (command "UNDO" "e")
      (print)
)

664571221 发表于 2023-7-10 20:39:01

vitalgg 发表于 2023-7-10 13:39
源码：
https://gitee.com/atlisp/packages/blob/main/at-text/box.lsp

兄弟你考虑的很全面啊

664571221 发表于 2023-7-10 20:40:41

xyp1964 发表于 2023-7-10 14:21


谢谢派大.......

664571221 发表于 2023-7-10 20:41:54

嘒彼小星 发表于 2023-7-10 16:21


谢谢兄弟.......

jun353835273 发表于 2023-7-14 08:08:26

664571221 发表于 2023-7-10 08:56
那个圆的我有

http://bbs.mjtd.com/thread-175477-1-1.html
这个查找的改改几句代码就可以加框了

loveu515 发表于 2023-7-14 08:32:37

嘒彼小星 发表于 2023-7-10 16:21


感谢分享，学习一下

664571221 发表于 2023-7-14 10:17:43

jun353835273 发表于 2023-7-14 08:08
http://bbs.mjtd.com/thread-175477-1-1.html
这个查找的改改几句代码就可以加框了

大佬能不能改下，我改不来
页: 1 [2]
查看完整版本: 各位大佬看下，相同文字加框的功能