我建议这样做，作为一种更宽容的选择：[b][color=BLACK]([/color][/b]defun RtoA [b][color=FUCHSIA]([/color][/b]r[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]/ [b][color=NAVY]([/color][/b]* r 180.0[b][color=NAVY])[/color][/b] pi[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b] [color=#8b4513];Radian To Angle[/color][b][color=BLACK]([/color][/b]defun AtoR [b][color=FUCHSIA]([/color][/b]a[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]* pi [b][color=NAVY]([/color][/b]/ a 180.0[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b] [color=#8b4513];Angle To Radian[/color][b][color=BLACK]([/color][/b]and [b][color=FUCHSIA]([/color][/b]setq i -1 ss1 [b][color=NAVY]([/color][/b]ssget '[b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]0 . [color=#2f4f4f]"LINE"[/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]while [b][color=NAVY]([/color][/b]setq a1 [b][color=MAROON]([/color][/b]ssname ss1 [b][color=GREEN]([/color][/b]setq i [b][color=BLUE]([/color][/b]1+ i[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]setq a2 [b][color=MAROON]([/color][/b]entget a1[b][color=MAROON])[/color][/b] p1 [b][color=MAROON]([/color][/b]cdr [b][color=GREEN]([/color][/b]assoc 10 a2[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] p2 [b][color=MAROON]([/color][/b]cdr [b][color=GREEN]([/color][/b]assoc 11 a2[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] a3 [b][color=MAROON]([/color][/b]angle p1 p2[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]cond [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]or [b][color=BLUE]([/color][/b]>= [b][color=RED]([/color][/b]ator 120[b][color=RED])[/color][/b] a3 [b][color=RED]([/color][/b]ator 60[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]<= [b][color=RED]([/color][/b]ator 330[b][color=RED])[/color][/b] a3[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]>= [b][color=RED]([/color][/b]ator 30[b][color=RED])[/color][/b] a3[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]VA2[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]or [b][color=BLUE]([/color][/b]>= [b][color=RED]([/color][/b]ator 210[b][color=RED])[/color][/b] a3 [b][color=RED]([/color][/b]ator 150[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]>= [b][color=RED]([/color][/b]ator 300[b][color=RED])[/color][/b] a3 [b][color=RED]([/color][/b]ator 240[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]HA2[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]
-大卫
