线对象上的特殊端点

JerryFiedler · 发表于 2022-7-6 12:51:50

问候语，
我正在使用AutoCad LT 09。我正在寻找一种方法（lisp例程）从一个点到另一个点绘制一条线，这条线的每一端都有一个“回退”。该线的外观和行为类似于维度上的引线，但回退将在两端。请参阅所附图像作为示例。
这条线的末端仍然在绘制它的节点上，但这条线的每一端似乎都有点短。在本例中，线对象端点（控制柄）将位于I形对象的中心。

提前感谢您，感谢任何能够对此有所了解的人。
杰瑞

NBC · 发表于 2022-7-6 13:14:39

首先，您声明正在使用LT；如果没有某种形式的附加组件（如LT扩展器）的帮助，LT无法使用LSP功能。
实现所需结果的一种方法是创建一个不包含任何对象的块；然后创建新的标注样式。
在新创建的标注样式中，可以将“箭头”设置为先前创建的块。这会给人留下“线”末端有间隙的印象。然后创建尺寸，而不是列位置之间的线

JerryFiedler · 发表于 2022-7-6 13:45:30

NBC，谢谢你的想法。我的LT确实有一个扩展程序，我们使用各种lisp例程。
我将尝试一下你的维度风格。

Lee Mac · 发表于 2022-7-6 13:53:37

只是一个快速的

copy


[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:lback [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] tmp p1 p2[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] *def [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *def [b][color=#009999]0.1[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]getdist[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nSpecify Set Back <"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] *def[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=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *def tmp[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] p1 [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#ff00ff]"\nSpecify 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] p2 [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] p1 [b][color=#ff00ff]"\nSpecify 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]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] p1 [b][color=RED]([/color][/b][b][color=BLUE]trans[/color][/b] p1 [b][color=#009900]1[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b] p2 [b][color=RED]([/color][/b][b][color=BLUE]trans[/color][/b] p2 [b][color=#009900]1[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] p1 [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] p1 [b][color=RED]([/color][/b][b][color=BLUE]angle[/color][/b] p1 p2[b][color=RED])[/color][/b] *def[b][color=RED])[/color][/b]
           p2 [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] p2 [b][color=RED]([/color][/b][b][color=BLUE]angle[/color][/b] p2 p1[b][color=RED])[/color][/b] *def[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]entmake[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"LINE"[/color][/b][b][color=RED])[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] p1[b][color=RED])[/color][/b]
                    [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]11[/color][/b] p2[b][color=RED])[/color][/b][b][color=RED])[/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]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[编程交流] 线对象上的特殊端点

发表回复

精选推荐