在文字输入处插入acad点

stevesfr · 发表于 2022-7-6 09:13:30

这可以通过lisp在全球范围内实现吗？假设我在一个图形中有许多短文本（在不同的Z值下）。如何在这些短文本的插入点插入Acad点。我想把所有Acad点放在一个独特的层上，并在全球范围内进行。。。砰！
TIA寻找线索。。。
尝试查看LM point manager，但没有解决此问题。
史蒂夫

Tiger · 发表于 2022-7-6 09:27:15

这条线怎么样？

（不要理会啤酒谈话）

David Bethel · 发表于 2022-7-6 09:38:08

史提夫，

我将从以下内容开始：

copy


[b][color=BLACK]([/color][/b]defun c:txt2pt [b][color=FUCHSIA]([/color][/b]/ ss en ed p10 p11 ip[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"X"[/color] '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"TEXT"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]  [color=#8b4513];;;ADD FILTERS AS NEEDED[/color]
      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]         [color=#8b4513];;;WHILE THERE IS A PICKSET[/color]
             [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b]            [color=#8b4513];;;GET THE 1ST ENAME[/color]
                  p10 [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 10 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]    [color=#8b4513];;;BASE POINT[/color]
                  p11 [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 11 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]    [color=#8b4513];;;JUSTIFY POINT[/color]
                   ip [b][color=GREEN]([/color][/b]if [b][color=BLUE]([/color][/b]or [b][color=RED]([/color][/b]> [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 72 ed[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b] 0[b][color=RED])[/color][/b]
                              [b][color=RED]([/color][/b]> [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 73 ed[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b] 0[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                          p11 p10[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]          [color=#8b4513];;;DETERMINE THE INSERT POINT[/color]
             [b][color=MAROON]([/color][/b]entmake [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"POINT"[/color][b][color=BLUE])[/color][/b] [color=#8b4513];;;ENTMAKE THE POINT[/color]
                            [b][color=BLUE]([/color][/b]assoc 8 ed[b][color=BLUE])[/color][/b]
                            [b][color=BLUE]([/color][/b]cons 10 [b][color=RED]([/color][/b]trans ip en 0[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                            [b][color=BLUE]([/color][/b]assoc 210 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
           [color=#8b4513]; [b][color=MAROON]([/color][/b]entdel en[b][color=MAROON])[/color][/b]                     ;;;UNCOMMENT TO ERASE TEXT[/color]
             [b][color=MAROON]([/color][/b]ssdel en ss[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]                 [color=#8b4513];;;STEPS THRU THE PICKSET[/color]
  [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]