Lisp mod语言

lonie · 发表于 2022-7-6 12:23:08

我使用一个lisp来移动一个物体围绕一条多边形线；它在一种阶梯动画中实现了这一点。我想修改这个列表，这样就可以留下人体指纹。由于不熟悉lisps，我不知道该怎么做。
我已经附上了我使用的lisp。
jpg显示了如果我可以运行修改后的lisp，我想要的是什么。
我错过了什么？

mst（ssg）。Lisp程序。txt文件

NBC · 发表于 2022-7-6 12:29:35

在lsp中，你不能用复制代替移动吗？

lonie · 发表于 2022-7-6 12:39:41

试过了，没有快乐。我认为最后一步被抹去了，因为身体浸在普林周围

lpseifert · 发表于 2022-7-6 12:44:56

未测试。。。
试着注释掉擦除entlast
试着按照NBC的建议复制

lonie · 发表于 2022-7-6 12:48:45

仍然只是走来走去，没有留下副本。

CarlB · 发表于 2022-7-6 12:54:32

我没有看到例行程序在哪里使用实际的车辆转向理论（我可能在快速查看时错过了它）。所示的路径看起来不像车辆在转弯时扫过的路径。车外后部不应向外突出，并且应向车内进行更多清扫。

lisp创建者应在以下位置查看理论和lisp：
http://www.hawsedc.com/gnu/turntheo.php
http://www.hawsedc.com/gnu/turn.php

alanjt · 发表于 2022-7-6 13:01:03

我百分之百同意卡尔。然而，也许还有另一个意图。就我个人而言，我一直喜欢AutoTurn。但是，您要求修复，因此请尝试以下操作（替换此子例程）：
[code]（defun MoveStep（）（repeat（length pL）（setq p3（nth j pL））（setq pa3（vlax curve getParamAtPoint cur p3））（if（>=（*flag pa3）（*flag pa1））（progn（command“circle”p3 r）（setq ipL（ints cur（entlast））（if（>（length ipL）1）（setq p4（getnearP p1（car ipL）（cadr ipL）））（setq p4（car ipL））[颜色=红色];（命令“erase”（entlast）“”[颜色=石灰]