关于简单门工具的建议

steven-g · 发表于 2022-7-5 17:08:21

只是消磨时间，直到一个Lisp程序的出现，这确实使用了一个块开始，但爆炸它在那里的某个地方，它需要为每个门点击3次。
1）铰链点
2）宽度-开口的另一侧
3）将取决于是否需要翻转，如果是，请单击门扇的末端以翻转翻转，或者如果单击第三个点是正确的，请单击铰链点上的后退，门将不会翻转。
它从一个宏开始工作，你可以将它放在工具面板、菜单或riibbon上，并反复运行，直到你点击escape。我住在世界的公制一边，所以如果你使用那些有趣的测量方法，它将需要适应。无论如何，请看一看包含起始块和要练习的7面墙的附图，该块有一个对齐参数，因此当您拾取第一个点（铰链）时，您接近拾取点的墙的一侧将确定门放置在墙的哪一侧，这就是您获得练习墙的原因。
这是放置门的宏。

copy

*^C^C^C._insert;Door;end;\;;;_scale;last;;$M=$(getvar,lastpoint);reference;1000;\explode;last;_mirror;last;;$(index,0,$(getvar,lastpoint)),$(index,1,$(getvar,lastpoint));\y;

门图纸

BKT · 发表于 2022-7-5 17:12:07

这里有一个尝试，直到更好的事情出现。不是优雅，不是错误陷阱，但似乎正如你所说的那样。

copy


(defun c:door (/ len ln1 pt1 pt2 pt3 pt4 pt5)
(setq pt1 (getpoint "\nSelect Hinge Point: ")
     pt2 (getpoint "\nSelect Jam Point: ")
     len (distance pt1 pt2)
     pt4 (polar pt1 (+ (angle pt1 pt2) (/ pi 2)) len)
     pt5 (polar pt1 (- (angle pt1 pt2) (/ pi 2)) len)
)
(command "._LINE" pt4 pt5 "")
(setq ln1 (entlast))
(setq pt3 (getpoint "\nPick End Of Line On Swing Side: "))
(if
 (equal pt3 pt4 0.000001)
   (command "._ARC" pt2 "_C" pt1 pt3)
   (command "._ARC" pt3 "_C" pt1 pt2)
)
(command "._PLINE" pt1 pt3 "")
(entdel ln1)
(princ)
)

tzframpton · 发表于 2022-7-5 17:14:56

我很好奇为什么它不能是一个街区？

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

这是从一些现有例程中拼凑而成的：

[列表]

防火商业门框

2“门板

最小4“壁厚
[/列表]

虽然不好看，但很多都是在20世纪90年代写的

copy


[b][color=BLACK]([/color][/b]defun c:door2d [b][color=FUCHSIA]([/color][/b]/ h f hf dd d s o w ll bn hp i a[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]initget 1 [color=#2f4f4f]"Right Left"[/color][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq h [b][color=NAVY]([/color][/b]getkword [color=#2f4f4f]"\nDoor Hinging - Right/Left:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]initget 6[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq f [b][color=NAVY]([/color][/b]getdist [color=#2f4f4f]"\nOverall Frame Width <40>:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]or f [b][color=NAVY]([/color][/b]setq f 40[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq hf [b][color=NAVY]([/color][/b]* f 0.5[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq dd [b][color=NAVY]([/color][/b]- f 4[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]initget 6[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq d [b][color=NAVY]([/color][/b]getdist [b][color=MAROON]([/color][/b]strcat [color=#2f4f4f]"\nDoor Panel Width <"[/color] [b][color=GREEN]([/color][/b]rtos dd 2 2[b][color=GREEN])[/color][/b] [color=#2f4f4f]">:   "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]or d [b][color=NAVY]([/color][/b]setq d dd[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq s [b][color=NAVY]([/color][/b]* [b][color=MAROON]([/color][/b]- f d[b][color=MAROON])[/color][/b] 0.5[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]not o[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]> o [b][color=GREEN]([/color][/b]* pi [b][color=BLUE]([/color][/b]/ 170.01 180[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
            [b][color=GREEN]([/color][/b]< o [b][color=BLUE]([/color][/b]/ pi 6[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]initget 5[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq o [b][color=MAROON]([/color][/b]getangle [color=#2f4f4f]"\nOpen Angle Min 30 Max 170 <90>:   "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]or o [b][color=MAROON]([/color][/b]setq o [b][color=GREEN]([/color][/b]* pi 0.5[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]while [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]not w[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]< w 4[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]initget 6[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq w [b][color=MAROON]([/color][/b]getdist [color=#2f4f4f]"\nWall Thickness - Min 4 <6>:   "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]or w [b][color=MAROON]([/color][/b]setq w 6[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]defun makel [b][color=NAVY]([/color][/b]p1 p2[b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"2D-DOOR"[/color][b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 6 [color=#2f4f4f]"BYLAYER"[/color][b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 39 0[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 62 256[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 10 p1[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 11 p2[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]setq ll [b][color=NAVY]([/color][/b]list
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- hf[b][color=BLUE])[/color][/b] 0 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- hf[b][color=BLUE])[/color][/b] 0.5 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ hf[b][color=BLUE])[/color][/b] 0 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ hf[b][color=BLUE])[/color][/b] 0.5 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- hf[b][color=RED])[/color][/b] 0[b][color=BLUE])[/color][/b] 0.5 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- hf[b][color=RED])[/color][/b] s[b][color=BLUE])[/color][/b] 0.5 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]+ hf[b][color=RED])[/color][/b] 0[b][color=BLUE])[/color][/b] 0.5 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]+ hf[b][color=RED])[/color][/b] s[b][color=BLUE])[/color][/b] 0.5 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- hf[b][color=RED])[/color][/b] s[b][color=BLUE])[/color][/b]  0.5 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- hf[b][color=RED])[/color][/b] s[b][color=BLUE])[/color][/b] -1.5 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]+ hf[b][color=RED])[/color][/b] s[b][color=BLUE])[/color][/b]  0.5 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]+ hf[b][color=RED])[/color][/b] s[b][color=BLUE])[/color][/b] -1.5 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- hf[b][color=RED])[/color][/b] s 0.0[b][color=BLUE])[/color][/b] -1.5 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- hf[b][color=RED])[/color][/b] s 0.5[b][color=BLUE])[/color][/b] -1.5 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]+ hf[b][color=RED])[/color][/b] s 0.0[b][color=BLUE])[/color][/b] -1.5 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]+ hf[b][color=RED])[/color][/b] s 0.5[b][color=BLUE])[/color][/b] -1.5 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- hf[b][color=RED])[/color][/b] s 0.5[b][color=BLUE])[/color][/b] -1.5 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- hf[b][color=RED])[/color][/b] s 0.5[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 1.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]+ hf[b][color=RED])[/color][/b] s 0.5[b][color=BLUE])[/color][/b] -1.5 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]+ hf[b][color=RED])[/color][/b] s 0.5[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 1.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- hf[b][color=RED])[/color][/b] s 0.0[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 0.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- hf[b][color=RED])[/color][/b] s 0.0[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 1.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]+ hf[b][color=RED])[/color][/b] s 0.0[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 0.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]+ hf[b][color=RED])[/color][/b] s 0.0[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 1.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- hf[b][color=RED])[/color][/b] s 0.5[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 1.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- hf[b][color=RED])[/color][/b] s 0.0[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 1.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]+ hf[b][color=RED])[/color][/b] s 0.5[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 1.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]+ hf[b][color=RED])[/color][/b] s 0.0[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 1.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- hf[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- w[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- hf[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 0.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ hf[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- w[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ hf[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 0.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- hf[b][color=RED])[/color][/b] 0[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 0.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]- hf[b][color=RED])[/color][/b] s[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 0.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
          [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]+ hf[b][color=RED])[/color][/b] 0[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 0.5[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b]
                [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]+ hf[b][color=RED])[/color][/b] s[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]- w[b][color=RED])[/color][/b] 0.5[b][color=BLUE])[/color][/b] 0[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]entmake [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]cons 0 [color=#2f4f4f]"BLOCK"[/color][b][color=MAROON])[/color][/b][b][color=MAROON]([/color][/b]cons 2 [color=#2f4f4f]"*U"[/color][b][color=MAROON])[/color][/b][b][color=MAROON]([/color][/b]cons 70 1[b][color=MAROON])[/color][/b][b][color=MAROON]([/color][/b]list 10 0 0 0[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]= h [color=#2f4f4f]"Right"[/color][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq hp [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]+ [b][color=BLUE]([/color][/b]- hf[b][color=BLUE])[/color][/b] s[b][color=GREEN])[/color][/b] 0.5 0[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b]
                     [b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"2D-DOOR"[/color][b][color=GREEN])[/color][/b]
                     [b][color=GREEN]([/color][/b]cons 10 hp[b][color=GREEN])[/color][/b]
                     [b][color=GREEN]([/color][/b]cons 11 [b][color=BLUE]([/color][/b]polar hp o d[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]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"ARC"[/color][b][color=GREEN])[/color][/b]
                      [b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"2D-DOOR"[/color][b][color=GREEN])[/color][/b]
                      [b][color=GREEN]([/color][/b]cons 10 hp[b][color=GREEN])[/color][/b]
                      [b][color=GREEN]([/color][/b]cons 40 d[b][color=GREEN])[/color][/b]
                      [b][color=GREEN]([/color][/b]cons 50 0[b][color=GREEN])[/color][/b]
                      [b][color=GREEN]([/color][/b]cons 51 o[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]and [b][color=NAVY]([/color][/b]= h [color=#2f4f4f]"Left"[/color][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq hp [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]- [b][color=BLUE]([/color][/b]+ hf[b][color=BLUE])[/color][/b] s[b][color=GREEN])[/color][/b] 0.5 0[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b]
                     [b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"2D-DOOR"[/color][b][color=GREEN])[/color][/b]
                     [b][color=GREEN]([/color][/b]cons 10 hp[b][color=GREEN])[/color][/b]
                     [b][color=GREEN]([/color][/b]cons 11 [b][color=BLUE]([/color][/b]polar hp [b][color=RED]([/color][/b]- pi o[b][color=RED])[/color][/b] d[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]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"ARC"[/color][b][color=GREEN])[/color][/b]
                      [b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"2D-DOOR"[/color][b][color=GREEN])[/color][/b]
                      [b][color=GREEN]([/color][/b]cons 10 hp[b][color=GREEN])[/color][/b]
                      [b][color=GREEN]([/color][/b]cons 40 d[b][color=GREEN])[/color][/b]
                      [b][color=GREEN]([/color][/b]cons 50 [b][color=BLUE]([/color][/b]- pi o[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                      [b][color=GREEN]([/color][/b]cons 51 pi[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]foreach l ll
      [b][color=NAVY]([/color][/b]makel [b][color=MAROON]([/color][/b]car l[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]cadr l[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq bn [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"ENDBLK"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"0"[/color][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]initget 1[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq i [b][color=NAVY]([/color][/b]getpoint [color=#2f4f4f]"\nINSERT Point:   "[/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 a [b][color=NAVY]([/color][/b]getangle i [color=#2f4f4f]"\nINSERT Angle:   "[/color][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]"INSERT"[/color][b][color=MAROON])[/color][/b][b][color=MAROON]([/color][/b]cons 2 bn[b][color=MAROON])[/color][/b][b][color=MAROON]([/color][/b]cons 10 i[b][color=MAROON])[/color][/b][b][color=MAROON]([/color][/b]cons 50 a[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]

-大卫

ReMark · 发表于 2022-7-5 17:22:25

我很确定，根据OP，只需要绘制两个对象。1）表示门的单线和2）表示门摆动的90度弧。其他任何事情都是多余的。

David Bethel · 发表于 2022-7-5 17:23:21

把门框线取出来很容易。我们只能拭目以待。

jweber · 发表于 2022-7-5 17:27:56

我原以为这很容易，但在用entmake创建一个圆弧时遇到了麻烦，让它转270度，而不是一半时间转90度。我知道它为什么这样做，但似乎无法回避。希望有人能从我停下来的地方补上

copy

(defun c:door ()
 (initget 1)
 (setq pt1 (getpoint "\nInsertion Point:   ")
       pt2 (getpoint "\nDoor Width:     ")
       an1 (getangle pt1 "\nSwing Direction:   ")
       an2 (angle pt1 pt2)
       dis (distance pt1 pt2)
       pt3 (polar pt1 an1 dis))     
;  (cond ((<= an2 (- an1 pi))
;        (setq temp (list an1 an2)
;              an1 (cadr temp)
;              an2 (car temp))
;        )
;  )
 (command "line" pt1 pt3 "")
 (entmake (list (cons 0 "ARC")
              (cons 10 pt1)
              (cons 40 dis)
              (cons 50 an2)
              (cons 51 an1)))
 (princ))