各位大佬看下，相同文字加框的功能

664571221 · 发表于 2023-7-9 15:40:00

本帖最后由 664571221 于 2023-7-9 15:42 编辑

求输入tt选择文字，相同文字加框，如果输入ttt可以把框删除，加的框的线的特质按如图，可以参考gif

嘒彼小星 · 发表于 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)
)

(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-14 10:17:43

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

大佬能不能改下，我改不来

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

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

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

liunian0524 · 发表于 2023-7-10 07:58:55

以前在论坛看到一个文字查找功能，可以圆标记和删除圆。一时找不到原址了

664571221 · 发表于 2023-7-10 08:56:38

liunian0524 发表于 2023-7-10 07:58
以前在论坛看到一个文字查找功能，可以圆标记和删除圆。一时找不到原址了

那个圆的我有

andyding · 发表于 2023-7-10 10:32:48

本帖最后由 andyding 于 2023-7-10 13:38 编辑

没有对话框，凑合用吧。

664571221 · 发表于 2023-7-10 12:01:04

andyding 发表于 2023-7-10 10:32
没有对话框，凑合用吧。

谢谢大佬.......

664571221 · 发表于 2023-7-10 12:06:31

andyding 发表于 2023-7-10 10:32
没有对话框，凑合用吧。

大佬你这个不支持有角度的文字吗

自贡黄明儒 · 发表于 2023-7-10 12:46:30

664571221 发表于 2023-7-10 12:06
大佬你这个不支持有角度的文字吗

多行文字，有背景遮罩，可以显示外框。

andyding · 发表于 2023-7-10 13:39:21

664571221 发表于 2023-7-10 12:06
大佬你这个不支持有角度的文字吗

已经更新，支持角度文字。

vitalgg · 发表于 2023-7-10 13:39:49

本帖最后由 vitalgg 于 2023-7-10 13:45 编辑

如果无法播放，请点击此处在新窗口打开

源码：
https://gitee.com/atlisp/packages/blob/main/at-text/box.lsp

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

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

[提问] 各位大佬看下，相同文字加框的功能

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源