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

Lisp mod语言

我使用一个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。但是，您要求修复，因此请尝试以下操作（替换此子例程）：
（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）“”[颜色=石灰]

lonie 发表于 2022-7-6 13:07:27

嗨，卡尔/艾伦·JT，
车身实际上是一个汽车外壳，绕着一个输送机清扫/踩踏。身体内的两个圆必须始终在柱脚上。我用它来解释一个物体如何在传送带上移动以进行碰撞检测。
 
我毫无喜悦地剪贴了这个模型。

alanjt 发表于 2022-7-6 13:15:11

 
多么模棱两可。你能不能让它工作，或者它没有给你想要的结果。你提供的信息越多，帮助就越容易。它为我复制了一切。

lonie 发表于 2022-7-6 13:20:14

已经运行了lisp，这就是我得到的，它确实留下了一个副本，但没有遵循路径。
页: [1] 2
查看完整版本: Lisp mod语言