新颖Lisp程序

Hippe013 · 发表于 2022-7-5 22:21:52

我附加了一个新颖的lisp程序，它使用对象反应器将几个圆连接在一起，形成一个蛇型图形。蛇头是使用grread操纵的。

两个主要功能是“Snake”和“Snake2”。

这只是最初的想法。（更多圆圈）

蛇2：是更少的圆圈，但圆圈可以推动其他圆圈。（当我在这个圆上添加太多的圆时，AutoCAD不太喜欢它）

我希望你喜欢！

当做

Hippe013
蛇LSP

marko_ribar · 发表于 2022-7-5 22:40:35

Hippe013，我能说什么。。。Awaysome。。。这两个版本简直太棒了。。。只有一件事，在lisp的末尾添加（princ），它将删除作为输出的文本重复。。。我必须承认我没有太多使用反应堆，但这一个是完美的。。。

祝你一切顺利，M.R。

Hippe013 · 发表于 2022-7-5 22:42:01

谢谢Marko！我有一个同事说这是一个很好的减压工具。我不得不称赞李，因为我受到了他的启发。lsp和他对mapcar和lambda的巧妙使用，我现在终于开始理解和更频繁地使用了。

Lee Mac · 发表于 2022-7-5 22:53:10

好主意，嬉皮士-谢谢你的赞誉，我很高兴能激励你！

如果你想寻求建议，我个人会避免在这项任务中使用反应堆，例如：

copy


([color=BLUE]defun[/color] c:snake ( [color=BLUE]/[/color] c1 cl el gr p1 r1 r2 rl vs )
   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] p1 ([color=BLUE]getpoint[/color] [color=MAROON]"\nClick to generate the snake! "[/color]))
       ([color=BLUE]progn[/color]
           ([color=BLUE]setq[/color] vs ([color=BLUE]getvar[/color] 'viewsize)
                 r1 ([color=BLUE]/[/color] vs (LM:randrange 30 80))
           )
           ([color=BLUE]repeat[/color] 20
               ([color=BLUE]setq[/color] el ([color=BLUE]cons[/color] ([color=BLUE]cons[/color] -1 ([color=BLUE]entmakex[/color] ([color=BLUE]list[/color] '(0 . [color=MAROON]"CIRCLE"[/color]) ([color=BLUE]cons[/color] 10 p1) ([color=BLUE]cons[/color] 40 r1) ([color=BLUE]cons[/color] 62 ([color=BLUE]logand[/color] (LM:randrange 2 255) ([color=BLUE]~[/color] 1)))))) el)
                     cl ([color=BLUE]cons[/color] p1 cl)
                     rl ([color=BLUE]cons[/color] r1 rl)
                     r2 ([color=BLUE]/[/color] vs (LM:randrange 30 80))
                     p1 ([color=BLUE]cons[/color] ([color=BLUE]-[/color] ([color=BLUE]car[/color] p1) r1 r2) ([color=BLUE]cdr[/color] p1))
                     r1 r2
               )
           )
           ([color=BLUE]setq[/color] el ([color=BLUE]reverse[/color] el)
                 cl ([color=BLUE]reverse[/color] cl)
                 rl ([color=BLUE]reverse[/color] rl)
           )
           ([color=BLUE]while[/color] ([color=BLUE]=[/color] 5 ([color=BLUE]car[/color] ([color=BLUE]setq[/color] gr ([color=BLUE]grread[/color] [color=BLUE]t[/color] 13 0))))
               ([color=BLUE]entmod[/color] ([color=BLUE]list[/color] ([color=BLUE]car[/color] el) ([color=BLUE]cons[/color] 10 ([color=BLUE]setq[/color] c1 ([color=BLUE]cadr[/color] gr)))))
               ([color=BLUE]setq[/color] cl
                   ([color=BLUE]cons[/color] c1
                       ([color=BLUE]mapcar[/color]
                          '([color=BLUE]lambda[/color] ( a b c d )
                               ([color=BLUE]entmod[/color] ([color=BLUE]list[/color] a ([color=BLUE]cons[/color] 10 ([color=BLUE]setq[/color] c1 ([color=BLUE]polar[/color] c1 ([color=BLUE]angle[/color] c1 c) ([color=BLUE]+[/color] b d))))))
                               c1
                           )
                           ([color=BLUE]cdr[/color] el) ([color=BLUE]cdr[/color] rl) ([color=BLUE]cdr[/color] cl) rl
                       )
                   )
               )
           )
       )
   )
   ([color=BLUE]princ[/color])
)
[color=GREEN];; Rand  -  Lee Mac[/color]
[color=GREEN];; PRNG implementing a linear congruential generator with[/color]
[color=GREEN];; parameters derived from the book 'Numerical Recipes'[/color]
([color=BLUE]defun[/color] LM:rand ( [color=BLUE]/[/color] a c m )
   ([color=BLUE]setq[/color] m   4294967296.0
         a   1664525.0
         c   1013904223.0
         $xn ([color=BLUE]rem[/color] ([color=BLUE]+[/color] c ([color=BLUE]*[/color] a ([color=BLUE]cond[/color] ($xn) (([color=BLUE]getvar[/color] 'date))))) m)
   )
   ([color=BLUE]/[/color] $xn m)
)
[color=GREEN];; Random in Range  -  Lee Mac[/color]
[color=GREEN];; Returns a pseudo-random integral number in a given range (inclusive)[/color]
([color=BLUE]defun[/color] LM:randrange ( a b )
   ([color=BLUE]fix[/color] ([color=BLUE]+[/color] a ([color=BLUE]*[/color] (LM:rand) ([color=BLUE]-[/color] b a -1))))
)
([color=BLUE]princ[/color])