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)
)

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://atlisp.cn/static/videos/textbox.mp4


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

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


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