绘制卫浴Lisp

neekcotrack · 发表于 2022-7-6 14:54:38

我正在寻找一个lisp，可以帮助绘制管道和插入块和修剪管道的块。请参阅所附图片以供参考。

这就是我在lisp中寻找的内容：

1、加载lisp并运行。
2.命令行提示：Pipe、Pipe Down、Pipe Up、Hose Bib、Value

示例：绘制下面的管道项目4和管道向下，然后执行管道向下，插入块5，修剪项目并再次绘制管道。

我希望这能给我一个好主意，我正在尝试做什么。我试图让命令提示符在每个命令后出现，并且只有在按下esc时才退出。

提前感谢您所做的一切！！！

Se7en · 发表于 2022-7-6 15:02:36

[ http://www.afralisp.net/lispa/lisp52.htm ]

fixo · 发表于 2022-7-6 15:03:35

在每个块定义中添加描述的另一种方法
括号内是左右两侧的距离
从插入点
见图片

~'J'~

BIGAL · 发表于 2022-7-6 15:10:34

我没有写lisp，而是写了序列

Setq表示先用P表示管道
然后，当ans/=nil时
cond P run defun管道
D运行卸载
U run defun up等
最后，请输入选项p d u等，如果按enter键，这等于零，因此退出

希望这有助于它不会修剪方块，但会重复提示

我确信，如果您知道每个方向上的块特征大小，那么您可以解决修剪问题，您需要将每个块的特征保存在lisp中，或者我会有一个文本文件，如果您更改块，您可以更改该文件。区块1 L R U D

neekcotrack · 发表于 2022-7-6 15:11:13

好的，我将设置到目前为止我所拥有的。从那时起只有一个改变，但我认为这可以帮助其他人。

neekcotrack · 发表于 2022-7-6 15:15:20

我使用了上面提到的lisp，并改变了一些事情。我可以找出如何在这些直线上使用相同的点。

我试图使线中的插入点与线相同，也就是说，我必须单击两次，只需单击线上的插入点，块就在那里并被修剪。

Lee Mac · 发表于 2022-7-6 15:22:01

对不起，我可能误解了您的意思-您是否试图获取它，以便只需单击块的插入点，它就会自动重新注册其所在的行？

Lee Mac · 发表于 2022-7-6 15:23:14

这将使它成为一个单一的点击，看看你如何处理它：

copy


(setq ent1 (entsel "\nSelect Point for Block...")
     ip   (osnap (cadr ent1) "_nea"))

neekcotrack · 发表于 2022-7-6 15:29:34

是的，我想点击块的插入点，它会自动重新注册其所在的线。您发送的代码是否将替换下面所述的代码？？？

Lee Mac · 发表于 2022-7-6 15:33:40

是的，用它来代替它，

返回的“entsel”是实体名称和单击的点，因此我只是将点捕捉到最近的线。

[编程交流] 绘制卫浴Lisp

发表回复

精选推荐