圆角AutoLISP

mantoshelis · 发表于 2022-7-5 18:15:31

你好

我想在AutoLISP中绕过那个角落。谁能帮我？这是马克的任务。

(DEFUN C:Disc()
 (setq t1 (getpoint "\n Select first point:"))
 (setq t2 (list(+(car t1)10) (+(cadr t1)10)))
 (setq t3 (list(+(car t2)38) (cadr t2)))
 (setq t4 (list(car t3) (-(cadr t3)50)))
 (command "line" t1 t2 t3 t4 ""))

登录/注册后可看大图

Jef! · 发表于 2022-7-5 18:24:43

标准的“圆角”命令怎么样？

mantoshelis · 发表于 2022-7-5 18:29:15

在大学里，使用AutoLISP是一项任务

Hippe013 · 发表于 2022-7-5 18:38:16

容易的

copy

(defun c:fillet ()
(command "fillet")
)

Jef! · 发表于 2022-7-5 18:41:41

嗯，我想它必须在单个函数中。。。？
如果使用命令不是制作lisp的最有效方法，但从学术角度来说，这是一个很好的起点。
您可以使用arc命令。假设我想做一个90度的圆弧，以0,0,0为中心，从坐标5,0到0,5，可以使用以下公式：
（命令“.u弧”“c”“0,0,0”“5,0”“0,5”）。
现在，您要做的是在正确的位置插入arc命令，并将直线2的端点坐标和直线3的起点坐标更改为与圆弧半径相等的长度。
如果需要，你可以要求用户输入半径，将其存储到一个变量中，并使用它进行所需的计算，或者像线的长度一样硬编码。

我希望这个提示能帮助你实现你所需要的。

BIGAL · 发表于 2022-7-5 18:46:27

您可以使用窗口选项并选择两条线或“F”围栏选项，两者都返回两条线，或者在此处搜索我的自动圆角例程，该例程使用F123.45并针对给定半径自动运行圆角命令。

David Bethel · 发表于 2022-7-5 18:55:30

这可能有助于入门：

copy


[color=#8b4513];;;CREATE A FILLET ARC FROM A LIST OF 3 CCW POINTS AND RADIUS[/color]
[b][color=BLACK]([/color][/b]defun f3p_fil3p [b][color=FUCHSIA]([/color][/b]l ra / a1 a2 i1 d1 c1 c2 cn sa ea[b][color=FUCHSIA])[/color][/b]
    [b][color=FUCHSIA]([/color][/b]setq a1 [b][color=NAVY]([/color][/b]angle [b][color=MAROON]([/color][/b]nth 1 l[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]nth 2 l[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
          a2 [b][color=NAVY]([/color][/b]angle [b][color=MAROON]([/color][/b]nth 1 l[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]nth 0 l[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
          i1 [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]> a1 a2[b][color=MAROON])[/color][/b]
                 [b][color=MAROON]([/color][/b]- [b][color=GREEN]([/color][/b]+ [b][color=BLUE]([/color][/b]* 2 pi[b][color=BLUE])[/color][/b] a2[b][color=GREEN])[/color][/b] a1[b][color=MAROON])[/color][/b]
                 [b][color=MAROON]([/color][/b]- a2 a1[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
          d1 [b][color=NAVY]([/color][/b]abs [b][color=MAROON]([/color][/b]/ ra [b][color=GREEN]([/color][/b]/ [b][color=BLUE]([/color][/b]sin [b][color=RED]([/color][/b]* i1 0.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                           [b][color=BLUE]([/color][/b]cos [b][color=RED]([/color][/b]* i1 0.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
          c1 [b][color=NAVY]([/color][/b]polar [b][color=MAROON]([/color][/b]nth 1 l[b][color=MAROON])[/color][/b] a1 d1[b][color=NAVY])[/color][/b]
          c2 [b][color=NAVY]([/color][/b]polar [b][color=MAROON]([/color][/b]nth 1 l[b][color=MAROON])[/color][/b] a2 d1[b][color=NAVY])[/color][/b]
          cn [b][color=NAVY]([/color][/b]inters c1 [b][color=MAROON]([/color][/b]polar c1 [b][color=GREEN]([/color][/b]+ a1 [b][color=BLUE]([/color][/b]* pi 0.5[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] 1.0[b][color=MAROON])[/color][/b]
                     c2 [b][color=MAROON]([/color][/b]polar c2 [b][color=GREEN]([/color][/b]+ a2 [b][color=BLUE]([/color][/b]* pi 0.5[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] 1.0[b][color=MAROON])[/color][/b] nil[b][color=NAVY])[/color][/b]
          sa [b][color=NAVY]([/color][/b]angle cn c2[b][color=NAVY])[/color][/b]
          ea [b][color=NAVY]([/color][/b]angle cn c1[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]entmake [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]cons 0 [color=#2f4f4f]"ARC"[/color][b][color=MAROON])[/color][/b]
                 [b][color=MAROON]([/color][/b]cons 10 cn[b][color=MAROON])[/color][/b]
                 [b][color=MAROON]([/color][/b]cons 40 ra[b][color=MAROON])[/color][/b]
                 [b][color=MAROON]([/color][/b]cons 50 sa[b][color=MAROON])[/color][/b]
                 [b][color=MAROON]([/color][/b]cons 51 ea[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
[b][color=BLACK]([/color][/b]defun LM:Clockwise-p [b][color=FUCHSIA]([/color][/b] p1 p2 p3 [b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]< [b][color=NAVY]([/color][/b]* [b][color=MAROON]([/color][/b]- [b][color=GREEN]([/color][/b]car  p2[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]car  p1[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]- [b][color=GREEN]([/color][/b]cadr p3[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]cadr p1[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]* [b][color=MAROON]([/color][/b]- [b][color=GREEN]([/color][/b]cadr p2[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]cadr p1[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]- [b][color=GREEN]([/color][/b]car  p3[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]car  p1[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
[color=#8b4513];************ TEST BED ***************************************[/color]
[b][color=BLACK]([/color][/b]defun c:f3p [b][color=FUCHSIA]([/color][/b]/ ra p1 p2 p3[b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]initget 7[b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]setq ra [b][color=NAVY]([/color][/b]getdist [color=#2f4f4f]"\nFillet Radius:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]princ [color=#2f4f4f]"\nSelect 3 CCW Pts:   "[/color][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]initget 1[b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]setq p1 [b][color=NAVY]([/color][/b]getpoint [color=#2f4f4f]"\nStart Pt - P1:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]initget 1[b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]setq p2 [b][color=NAVY]([/color][/b]getpoint p1 [color=#2f4f4f]"\nVertex Pt - P2:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]grdraw p1 p2 1 3[b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]initget 1[b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]setq p3 [b][color=NAVY]([/color][/b]getpoint p2 [color=#2f4f4f]"\nEnd Pt - P3:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]grdraw p2 p3 2 3[b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]LM:Clockwise-p p1 p2 p3[b][color=NAVY])[/color][/b]
       [b][color=NAVY]([/color][/b]alert [color=#2f4f4f]"Ponts Are Not CCW"[/color][b][color=NAVY])[/color][/b]
       [b][color=NAVY]([/color][/b]f3p_fil3p [b][color=MAROON]([/color][/b]list p1 p2 p3[b][color=MAROON])[/color][/b] ra[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]