从点设置相同的Z值

Jakub · 发表于 2022-7-5 16:45:29

你好

我已经在TBC软件中将2D点覆盖到3D表面，这个过程会创建新点（2D坐标相同，但Z值从0更改为新值）。遗憾的是，此过程不会将点编号（标签）重新定位到同一高程。最后，我无法将点从CAD导出到带有标签的TXT。

我经常使用“ECoor”lisp例程，导出带有编号的坐标，其中number考虑最接近点的文本。由于Z值，这些数字不是最接近点的。

有什么办法可以做到吗？

感谢您提前提出建议。

David Bethel · 发表于 2022-7-5 16:58:38

你能寄一张样图吗？

Jakub · 发表于 2022-7-5 17:10:37

是的，我在附件中发送DWG文件。
样品图纸

David Bethel · 发表于 2022-7-5 17:31:45

这些数字真的很大！

这应该有效：

copy


[b][color=BLACK]([/color][/b]defun c:txtzpt [b][color=FUCHSIA]([/color][/b]/ ss i en ed pp tp ts tn td[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]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"POINT"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]princ [b][color=MAROON]([/color][/b]strcat [color=#2f4f4f]"\nSearching "[/color] [b][color=GREEN]([/color][/b]itoa [b][color=BLUE]([/color][/b]sslength ss[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [color=#2f4f4f]" Points..\n"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq i 0[b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]princ [b][color=GREEN]([/color][/b]strcat [color=#2f4f4f]"\r"[/color] [b][color=BLUE]([/color][/b]rtos i 2 0[b][color=BLUE])[/color][/b] [color=#2f4f4f]"      "[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b]
                   pp [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 10 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   tp [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]car pp[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]cadr pp[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]and [b][color=GREEN]([/color][/b]setq ts [b][color=BLUE]([/color][/b]ssget [color=#2f4f4f]"X"[/color] [b][color=RED]([/color][/b]list [b][color=PURPLE]([/color][/b]cons 0 [color=#2f4f4f]"TEXT"[/color][b][color=PURPLE])[/color][/b]
                                            [b][color=PURPLE]([/color][/b]cons 10 tp[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]= [b][color=BLUE]([/color][/b]sslength ts[b][color=BLUE])[/color][/b] 1[b][color=GREEN])[/color][/b]
                  [b][color=GREEN]([/color][/b]setq tn [b][color=BLUE]([/color][/b]ssname ts 0[b][color=BLUE])[/color][/b]
                        td [b][color=BLUE]([/color][/b]entget tn[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                 [b][color=GREEN]([/color][/b]entmod [b][color=BLUE]([/color][/b]subst [b][color=RED]([/color][/b]cons 10 pp[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]assoc 10 td[b][color=RED])[/color][/b] td[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq i [b][color=GREEN]([/color][/b]1+ i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]