帮我解决这个Lisp程序的问题

flopo · 发表于 2022-7-6 09:21:59

大家好，
我的Lisp程序经验很低。我做了下一个lisp，我想改进它，以这样使用：继续选择其他点，并不断绘制“管道”-一些与while。。。然后选择下一个点。。。请帮帮我！

;;;特维·弗洛林
（定义C：管道（/stp ep ds d1 d2 d3 d4 ang old\u err old\u hcosmode）
（defun DTR（deg）（*deg（/PI 180）））
（setq old\u err*错误*
*错误*hc\U err）
（setvar“CMDECHO”0）
（setvar“BLIPMODE”0）
（setq old\u hcosmode（getvar“Osmode”））
（setvar“Osmode”0）
（setq dia（getreal“\n名称：”）
（如果（=直径50）
（setq di 60.3））
（如果（=直径80）
（setq di 88.9））
（如果（=直径100）
（setq di 114.3））
（如果（=直径150）
（setq di 168.3）
（如果（=直径200）
（setq di 219.0）
（如果（=直径250）
（setq di 273）
（如果（=直径300）
（setq di 323.9））
（如果（=直径350）
（setq di 355.6））
（如果（=直径400）
（setq di 406.4））
（如果（=直径450）
（setq di 457.2））
（如果（=直径500）
（setq di 508）
（如果（=直径600）
（setq di 609.6））
（如果（=直径700）
（setq di 710）
（如果（=直径800）
（setq di 813）
（如果（=直径900）
（setq di 914））

（setq stp（getpoint“\n函数插入：”）
（如果（/=stp NIL）
（程序
（setq ep（getpoint“\nVarf：”stp））

（setq ds（距离stp ep）ang（角度stp ep））
)
（princ“\n？”）
)
（if（和stp ep）
（程序
（setq d1（极性stp（+ang（dtr 90））（/di 2））
d2（极性ep（+ang（dtr 90））（/di 2））
d3（极性ep（-ang（dtr 90））（/di 2））
d4（极性stp（-ang（dtr 90））（/di 2））

)

;（命令“_.PLINE”d1“W”“0”“0”
; d2 d3 d4 d1“”

（命令“行”d1 d2“”
“_.CHPROP”“L”“”“la”“contur”“lt”“bylayer”“c”“bylayer”“”
“行”d3 d4“”
“_.CHPROP”“L”“”“la”“contur”“lt”“bylayer”“c”“bylayer”“”
“行”stp ep“”
“_.CHPROP”“L”“”“la”“axe”“lt”“bylayer”“c”“bylayer”“”）
)

);如果结束。
（setvar“Osmode”old\u hcosmode）
（setq*error*old\U err）
（普林斯）
)

Tharwat · 发表于 2022-7-6 09:40:45

请使用[代码过帐]过帐代码。

http://www.cadtutor.net/forum/showthread.php?9184-代码发布指南

David Bethel · 发表于 2022-7-6 09:51:25

虽然我不太了解最终产品，但我会从以下内容开始：

copy


[color=#8b4513];;;tevi florin[/color]
[b][color=BLACK]([/color][/b]defun C:pipe [b][color=FUCHSIA]([/color][/b]/ stp ep ds d1 d2 d3 d4 ang old_err old_hcosmode
                data di dia[b][color=FUCHSIA])[/color][/b]
[color=#8b4513];[b][color=FUCHSIA]([/color][/b]setq old_err *error*[/color]
[color=#8b4513];     *error* hc_err[b][color=FUCHSIA])[/color][/b][/color]
[b][color=FUCHSIA]([/color][/b]setvar [color=#2f4f4f]"CMDECHO"[/color] 0[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setvar [color=#2f4f4f]"BLIPMODE"[/color] 0[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setq old_hcosmode[b][color=NAVY]([/color][/b]getvar [color=#2f4f4f]"Osmode"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setvar [color=#2f4f4f]"Osmode"[/color] 0[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setvar [color=#2f4f4f]"CECOLOR"[/color] [color=#2f4f4f]"BYLAYER"[/color][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setvar [color=#2f4f4f]"CELTYPE"[/color] [color=#2f4f4f]"BYLAYER"[/color][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setvar [color=#2f4f4f]"PLINEWID"[/color] 0.0[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setq data '[b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]50  . 60.3[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]80  . 88.9[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]100 . 114.3[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]150 . 168.3[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]200 . 219.0[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]250 . 273.0[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]300 . 323.9[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]350 . 355.6[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]400 . 406.4[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]450 . 457.2[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]500 . 508.0[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]600 . 609.6[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]700 . 710.0[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]800 . 813.0[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]900 . 914.0[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]not [b][color=MAROON]([/color][/b]assoc dia data[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]initget 7[b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq dia [b][color=MAROON]([/color][/b]getreal [color=#2f4f4f]"\nDiametru:   "[/color] [b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setq di [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc dia data[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 stp [b][color=NAVY]([/color][/b]getpoint [color=#2f4f4f]"\nPunct Insertie:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]setq ep [b][color=MAROON]([/color][/b]getpoint stp [color=#2f4f4f]"\nVarf:   "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq ds [b][color=MAROON]([/color][/b]distance stp ep[b][color=MAROON])[/color][/b]
           ang [b][color=MAROON]([/color][/b]angle stp ep[b][color=MAROON])[/color][/b]
            d1 [b][color=MAROON]([/color][/b]polar stp [b][color=GREEN]([/color][/b]+ ang [b][color=BLUE]([/color][/b]* pi 0.5[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]/ di 2.[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
            d2 [b][color=MAROON]([/color][/b]polar ep  [b][color=GREEN]([/color][/b]+ ang [b][color=BLUE]([/color][/b]* pi 0.5[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]/ di 2.[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
            d3 [b][color=MAROON]([/color][/b]polar ep  [b][color=GREEN]([/color][/b]- ang [b][color=BLUE]([/color][/b]* pi 0.5[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]/ di 2.[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
            d4 [b][color=MAROON]([/color][/b]polar stp [b][color=GREEN]([/color][/b]- ang [b][color=BLUE]([/color][/b]* pi 0.5[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]/ di 2.[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [color=#8b4513];[b][color=NAVY]([/color][/b]command [color=#2f4f4f]"_.PLINE"[/color] d1 d2 d3 d4 d1 [color=#2f4f4f]""[/color][b][color=NAVY])[/color][/b][/color]
      [b][color=NAVY]([/color][/b]command [color=#2f4f4f]"_.LINE"[/color] d1 d2 [color=#2f4f4f]""[/color]
               [color=#2f4f4f]"_.LINE"[/color] d3 d4 [color=#2f4f4f]""[/color]
               [color=#2f4f4f]"_.LINE"[/color] stp ep [color=#2f4f4f]""[/color][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq stp ep[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setvar [color=#2f4f4f]"Osmode"[/color] old_hcosmode[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setq *error* old_err[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]