管道内底标高

Jhun Gonzalo · 发表于 2022-7-6 14:38:47

你好

大家好：D，请问有没有人有Lisp路线，可以创建一个水平尺寸文字，第一次拾取地面标高，第二次拾取到管道的底线，以获得管道的距离高度，然后引线箭头将定位到第二次拾取，水平文字将定位任何我想要的位置。

如果有，请提供：lol:me一条显示下图的路线
非常感谢。

当做
JG公司

Lee Mac · 发表于 2022-7-6 14:56:22

又快又脏：

copy


[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ql [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] pt1 pt2[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] oldcmd [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt1 [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#ff00ff]"\nSelect First Point: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt2 [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] pt1 [b][color=#ff00ff]"\nSelect Second Point: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]command[/color][/b] [b][color=#ff00ff]"_qleader"[/color][/b] pt2 pause [b][color=#ff00ff]""[/color][/b] [b][color=#ff00ff]""[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"IL +"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]distance[/color][/b] pt1 pt2[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]"mm"[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]""[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

Jhun Gonzalo · 发表于 2022-7-6 15:12:44

哇：D谢谢李，太棒了，没什么要求，能不能让领头的拿到3分，这样我就可以把领头的紧握在文本旁边。
再次感谢：哈哈：

copy


[b][color=red]([/color][/b][b][color=blue]defun[/color][/b] c:ql [b][color=red]([/color][/b][b][color=blue]/[/color][/b] pt1 pt2[b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] oldcmd [b][color=red]([/color][/b][b][color=blue]getvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] [b][color=#009900]0[/color][/b][b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]while[/color][/b] [b][color=red]([/color][/b][b][color=blue]and[/color][/b] [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] pt1 [b][color=red]([/color][/b][b][color=blue]getpoint[/color][/b] [b][color=#ff00ff]"\nSelect First Point: "[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
             [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] pt2 [b][color=red]([/color][/b][b][color=blue]getpoint[/color][/b] pt1 [b][color=#ff00ff]"\nSelect Second Point: "[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
     [b][color=red]([/color][/b][b][color=blue]command[/color][/b] [b][color=#ff00ff]"_qleader"[/color][/b] pt2 pause [b][color=#ff00ff]""[/color][/b] [b][color=#ff00ff]""[/color][/b]
              [b][color=red]([/color][/b][b][color=blue]strcat[/color][/b] [b][color=#ff00ff]"IL +"[/color][/b] [b][color=red]([/color][/b][b][color=blue]rtos[/color][/b] [b][color=red]([/color][/b][b][color=blue]distance[/color][/b] pt1 pt2[b][color=red])[/color][/b] [b][color=#009900]2[/color][/b] [b][color=#009900]2[/color][/b][b][color=red])[/color][/b] [b][color=#ff00ff]"mm"[/color][/b][b][color=red])[/color][/b] [b][color=#ff00ff]""[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] [b][color=#009900]1[/color][/b][b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]princ[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]

Lee Mac · 发表于 2022-7-6 15:26:04

这可能取决于您的初始引导设置，但请试一试

copy


[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ql [b][color=RED]([/color][/b][b][color=BLUE]/ [/color][/b][color=Black]oldcmd[/color] pt1 pt2[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] oldcmd [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt1 [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#ff00ff]"\nSelect First Point: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt2 [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] pt1 [b][color=#ff00ff]"\nSelect Second Point: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]command[/color][/b] [b][color=#ff00ff]"_qleader"[/color][/b] pt2 pause pause [b][color=#ff00ff]""[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"IL +"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]distance[/color][/b] pt1 pt2[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]"mm"[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]""[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] [color=Black]oldcmd[/color][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

Jhun Gonzalo · 发表于 2022-7-6 15:30:22

是的，李，我知道了。谢谢

干杯：D

Lee Mac · 发表于 2022-7-6 15:50:03

很乐意帮忙

[编程交流] 管道内底标高

发表回复

精选推荐