组合LiSP'；s
大家好，大家好，我有一个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
做一个主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文件，以便于加载 谢谢JohnM，
我已经尝试过修改，没有故障加载没有错误：D只是我不理解为什么它对ta命令系统有连续性，必须首先选择选择行，请检查这些我刚刚附加了lisp路径，因为我刚刚合并了它对不起：
再次感谢
沃尔特。lsp 伙计，如果我是你，我会使用多线和所有这些关节特征 无论如何，我相信这就是你想要的？
编辑
抱歉，维斯塔克没有看到您创建了解决方案
墙-L.LSP flowerrobot，您好，Lisp程序，但墙X不工作。。非常感谢
页:
[1]