组合LiSP'；s

VisDak · 发表于 2022-7-6 10:55:23

大家好，

大家好，我有一个3 Lisp，它会根据墙的相交线自动多条修剪线，
WALL-L.lsp：多重修剪一条类似角线的圆角，
WALL-T.lsp：根据T连接的多条修剪线
WALL-X.lsp：根据交叉线进行多条修剪线

我需要使这3条路线成为1 Lisp（3to1），通过有一个选择，然后当选择是选择，并已经选择了一条线要修剪，按回车按钮返回选择，以选择另一种类型的修剪器，我试图这样做，但总是（错误：输入错误列表）我附加了我的3 Lisp的创建由1，请帮助我在这方面。

非常感谢
墙-L.LSP
墙-T.LSP
墙-X.LSP

JohnM · 发表于 2022-7-6 11:08:43

做一个主defun请求选择并调用正确的lisp/
去掉C：所有其他defun的一部分，这样它们就可以被主defun调用
完成例程后，只需右键单击即可重新输入。
主defun
这一个有C：因此可以在命令行中调用
把这个放在其中一个文件的顶部
（定义c:wallt（/wtyp）
（initget“L T X）
（setq wtyp（getstring“输入修剪类型：[L\T\X”））
（如果（=wtyp“L”）（wall-L））_调用正确的lisp
（if（=wtyp“T”）（wall-T））_调用正确的lisp
（if（=wtyp“X”）（wall-X））_调用正确的lisp
（普林斯）
);_德芬
我没有检查这个，但你应该知道。
我会确保它工作正常，然后编译成VLX文件，以便于加载