绘制卫浴Lisp
我正在寻找一个lisp，可以帮助绘制管道和插入块和修剪管道的块。请参阅所附图片以供参考。这就是我在lisp中寻找的内容：
1、加载lisp并运行。
2.命令行提示：Pipe、Pipe Down、Pipe Up、Hose Bib、Value
示例：绘制下面的管道项目4和管道向下，然后执行管道向下，插入块5，修剪项目并再次绘制管道。
我希望这能给我一个好主意，我正在尝试做什么。我试图让命令提示符在每个命令后出现，并且只有在按下esc时才退出。
提前感谢您所做的一切！！！
[ http://www.afralisp.net/lispa/lisp52.htm ] 在每个块定义中添加描述的另一种方法
括号内是左右两侧的距离
从插入点
见图片
~'J'~
我没有写lisp，而是写了序列
Setq表示先用P表示管道
然后，当ans/=nil时
cond P run defun管道
D运行卸载
U run defun up等
最后，请输入选项p d u等，如果按enter键，这等于零，因此退出
希望这有助于它不会修剪方块，但会重复提示
我确信，如果您知道每个方向上的块特征大小，那么您可以解决修剪问题，您需要将每个块的特征保存在lisp中，或者我会有一个文本文件，如果您更改块，您可以更改该文件。区块1 L R U D 好的，我将设置到目前为止我所拥有的。从那时起只有一个改变，但我认为这可以帮助其他人。 我使用了上面提到的lisp，并改变了一些事情。我可以找出如何在这些直线上使用相同的点。
我试图使线中的插入点与线相同，也就是说，我必须单击两次，只需单击线上的插入点，块就在那里并被修剪。
对不起，我可能误解了您的意思-您是否试图获取它，以便只需单击块的插入点，它就会自动重新注册其所在的行？ 这将使它成为一个单一的点击，看看你如何处理它：
(setq ent1 (entsel "\nSelect Point for Block...")
ip (osnap (cadr ent1) "_nea"))
是的，我想点击块的插入点，它会自动重新注册其所在的线。您发送的代码是否将替换下面所述的代码？？？
是的，用它来代替它，
返回的“entsel”是实体名称和单击的点，因此我只是将点捕捉到最近的线。
页:
[1]
2