[编程交流] 如何在我的r

[color=RED]([/color][color=BLUE]defun[/color] c:test [color=RED]([/color] [color=BLUE]/[/color] p1 p2 p3 elist [color=RED])[/color]
 [color=#990099];;---------------------------------------------;;[/color]
 [color=#990099];; Example © Lee Mac 2011  -  www.lee-mac.com  ;;[/color]
 [color=#990099];;---------------------------------------------;;[/color]
 [color=RED]([/color][color=BLUE]if[/color] [color=RED]([/color][color=BLUE]setq[/color] p1 [color=RED]([/color][color=BLUE]getpoint[/color] [color=#a52a2a]"\nSpecify First Point: "[/color][color=RED])[/color] p3 p1[color=RED])[/color]
   [color=RED]([/color][color=BLUE]while[/color]
     [color=RED]([/color][color=BLUE]progn[/color] [color=RED]([/color][color=BLUE]initget[/color] [color=#a52a2a]"Undo"[/color][color=RED])[/color]
       [color=RED]([/color][color=BLUE]setq[/color] p2 [color=RED]([/color][color=BLUE]getpoint[/color] [color=RED]([/color][color=BLUE]strcat[/color] [color=#a52a2a]"\nSpecify Next Point"[/color] [color=RED]([/color][color=BLUE]if[/color] elist [color=#a52a2a]" [undo]"[/color] [color=#a52a2a]""[/color][color=RED])[/color] [color=#a52a2a]": "[/color][color=RED])[/color] p1[color=RED]))[/color]
       
       [color=RED]([/color][color=BLUE]cond[/color]
         [color=RED]([/color]
           [color=RED]([/color][color=BLUE]and[/color] p2 [color=RED]([/color][color=BLUE]listp[/color] p2[color=RED]))[/color]
           [color=RED]([/color][color=BLUE]setq[/color] elist
             [color=RED]([/color][color=BLUE]cons[/color]
               [color=RED]([/color][color=BLUE]entmakex[/color]
                 [color=RED]([/color][color=BLUE]list[/color]
                   [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]0[/color] [color=#a52a2a]"LINE"[/color][color=RED])[/color]
                   [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]10[/color] [color=RED]([/color][color=BLUE]trans[/color] p1 [color=#009900]1[/color] [color=#009900]0[/color][color=RED]))[/color]
                   [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]11[/color] [color=RED]([/color][color=BLUE]trans[/color] p2 [color=#009900]1[/color] [color=#009900]0[/color][color=RED]))[/color]
                 [color=RED])[/color]
               [color=RED])[/color]
               elist
             [color=RED])[/color]
             p1 p2
           [color=RED])[/color]
         [color=RED])[/color]
         [color=RED]([/color]
           [color=RED]([/color][color=BLUE]eq[/color] [color=#a52a2a]"Undo"[/color] p2[color=RED])[/color]
           [color=RED]([/color][color=BLUE]if[/color] elist
             [color=RED]([/color][color=BLUE]progn[/color]
               [color=RED]([/color][color=BLUE]entdel[/color] [color=RED]([/color][color=BLUE]car[/color] elist[color=RED]))[/color]
               [color=RED]([/color][color=BLUE]if[/color] [color=RED]([/color][color=BLUE]setq[/color] elist [color=RED]([/color][color=BLUE]cdr[/color] elist[color=RED]))[/color]
                 [color=RED]([/color][color=BLUE]setq[/color] p1 [color=RED]([/color][color=BLUE]cdr[/color] [color=RED]([/color][color=BLUE]assoc[/color] [color=#009900]11[/color] [color=RED]([/color][color=BLUE]entget[/color] [color=RED]([/color][color=BLUE]car[/color] elist[color=RED])))))[/color]
                 [color=RED]([/color][color=BLUE]setq[/color] p1 p3[color=RED])[/color]
               [color=RED])[/color]
             [color=RED])[/color]
             [color=RED]([/color][color=BLUE]princ[/color] [color=#a52a2a]"\n** Nothing to Undo **"[/color][color=RED])[/color]
           [color=RED])[/color]
         [color=RED])[/color]
       [color=RED])[/color]
     [color=RED])[/color]
   [color=RED])[/color]
 [color=RED])[/color]
 [color=RED]([/color][color=BLUE]princ[/color][color=RED])[/color]
[color=RED])[/color]

2