[帮助]拔出此螺栓

ketxu · 发表于 2022-7-6 08:38:26

请，请帮我用entmake或一些命令（多边形、圆、Pline或圆弧）绘制这个。我试过使用命令，但我对几何和号角非常胆小，我在计算坐标方面有问题，所以这成了一个大问题。。。
（不需要所有尺寸和螺栓中心的两个小圆+3/4圆，我只是添加到描述中。输入为D）
谢谢大家的帮助

Lee Mac · 发表于 2022-7-6 08:44:00

为什么不使用积木？

ketxu · 发表于 2022-7-6 08:50:12

我试图将DCL属于D的lisp代码放入其中，或者手动绘制，然后makeEntmake，然后将其缩放为一个块。。但是，正如我所提到的，我在几何方面非常胆小

alanjt · 发表于 2022-7-6 08:53:03

我还是会用一个街区。

ketxu · 发表于 2022-7-6 08:57:45

那么，你能帮我怎么通过3点做一个弧吗？还是制作相同形状的普林线？

Lee Mac · 发表于 2022-7-6 08:58:58

以下是我关于三点弧/圆的函数：

copy


[color=GREEN];; 3-Point Arc  -  Lee Mac[/color]
[color=GREEN];; Returns the Center, Start/End Angle, Radius of the[/color]
[color=GREEN];; Arc defined by three supplied points.[/color]
([color=BLUE]defun[/color] LM:3PArc ( p1 p2 p3 [color=BLUE]/[/color] cn m1 m2 )
   ([color=BLUE]setq[/color] m1 (mid p1 p2)
         m2 (mid p2 p3)
   )
   ([color=BLUE]if[/color]
       ([color=BLUE]setq[/color] cn
           ([color=BLUE]inters[/color]
               m1 ([color=BLUE]polar[/color] m1 ([color=BLUE]+[/color] ([color=BLUE]angle[/color] p1 p2) ([color=BLUE]/[/color] [color=BLUE]pi[/color] 2.)) 1.0)
               m2 ([color=BLUE]polar[/color] m2 ([color=BLUE]+[/color] ([color=BLUE]angle[/color] p2 p3) ([color=BLUE]/[/color] [color=BLUE]pi[/color] 2.)) 1.0)
               [color=BLUE]nil[/color]
           )
       )
       ([color=BLUE]append[/color] ([color=BLUE]list[/color] cn)
           ([color=BLUE]if[/color] (LM:Clockwise-p p1 p2 p3)
               ([color=BLUE]list[/color] ([color=BLUE]angle[/color] cn p3) ([color=BLUE]angle[/color] cn p1))
               ([color=BLUE]list[/color] ([color=BLUE]angle[/color] cn p1) ([color=BLUE]angle[/color] cn p3))
           )
           ([color=BLUE]list[/color] ([color=BLUE]distance[/color] cn p1))
       )
   )
)
[color=GREEN];; 3-Point Circle  -  Lee Mac[/color]
[color=GREEN];; Returns the Center and Radius of the Circle defined[/color]
[color=GREEN];; by three supplied points.[/color]
([color=BLUE]defun[/color] LM:3PCircle ( p1 p2 p3 [color=BLUE]/[/color] cn m1 m2 )
   ([color=BLUE]setq[/color] m1 (mid p1 p2)
         m2 (mid p2 p3)
   )
   ([color=BLUE]if[/color]
       ([color=BLUE]setq[/color] cn
           ([color=BLUE]inters[/color]
               m1 ([color=BLUE]polar[/color] m1 ([color=BLUE]+[/color] ([color=BLUE]angle[/color] p1 p2) ([color=BLUE]/[/color] [color=BLUE]pi[/color] 2.)) 1.0)
               m2 ([color=BLUE]polar[/color] m2 ([color=BLUE]+[/color] ([color=BLUE]angle[/color] p2 p3) ([color=BLUE]/[/color] [color=BLUE]pi[/color] 2.)) 1.0)
               [color=BLUE]nil[/color]
           )
       )
       ([color=BLUE]list[/color] cn ([color=BLUE]distance[/color] cn p1))
   )
)
[color=GREEN];; Midpoint  -  Lee Mac[/color]
[color=GREEN];; Returns the midpoint of two points[/color]
([color=BLUE]defun[/color] mid ( a b )
   ([color=BLUE]mapcar[/color] ([color=BLUE]function[/color] ([color=BLUE]lambda[/color] ( a b ) ([color=BLUE]/[/color] ([color=BLUE]+[/color] a b) 2.0))) a b)
)
[color=GREEN];; Clockwise-p  -  Lee Mac[/color]
[color=GREEN];; Returns T if p1,p2,p3 are clockwise oriented[/color]
([color=BLUE]defun[/color] LM:Clockwise-p ( p1 p2 p3 )
   ([color=BLUE]<[/color] ([color=BLUE]*[/color] ([color=BLUE]-[/color] ([color=BLUE]car[/color]  p2) ([color=BLUE]car[/color]  p1)) ([color=BLUE]-[/color] ([color=BLUE]cadr[/color] p3) ([color=BLUE]cadr[/color] p1)))
      ([color=BLUE]*[/color] ([color=BLUE]-[/color] ([color=BLUE]cadr[/color] p2) ([color=BLUE]cadr[/color] p1)) ([color=BLUE]-[/color] ([color=BLUE]car[/color]  p3) ([color=BLUE]car[/color]  p1)))
   )
)