产生压力V的Lisp

ReMark · 发表于 2022-7-6 12:58:11

manikya rao：你试图回复2006年9月的帖子。也许如果你把你的问题作为一个新的帖子发布，你会得到更好的结果。

示例：压力容器有哪些不同类型的封头？

manikya rao · 发表于 2022-7-6 12:58:27

你好
碟形封头类型

1、双曲面碟形端
2.2:1椭球碟形端
3、半球碟形端

谢谢你的回复

再见
manikya rao
印度的

nasha · 发表于 2022-7-6 13:02:33

您好，我是新使用lisp代码的人，有人能告诉我如何在cad中使用这个lisp吗

; 将度转换为弧度
（defun DTR（D）
（/（*pi D）180.0）
);DTR结束
（defun C:DISH（）
;用户输入
（setq CEN（getpoint“\n输入容器中心点：”）
（setq DIA（getreal“\n输入容器直径（DIA）：”）
（setq IKR（getreal“\n输入内转向节半径（IKR）：”）
; 获取转向节半径的点
（setq DIA2（/DIA 2））
（setq PT1（极性CEN（DTR 180）DIA2））
（setq PT2（极性PT1（DTR 0）IKR））
（setq PT3（极性PT2（DTR 120）IKR））
（setq PT4（极性CEN（DTR 0）DIA2））
（setq PT5（极性PT4（DTR 180）IKR））
（setq PT6（极性PT5（DTR 60）IKR））
; 画盘子
（命令“ARC”PT3“C”PT2 PT1）；弧起点/中心/终点
（命令“ARC”PT4“C”PT5 PT6）；弧起点/中心/终点
（命令“ARC”PT6“E”PT3“R”DIA）；圆弧起点/终点/半径
);盘子的末端

ReMark · 发表于 2022-7-6 13:05:30

纳沙：

欢迎来到论坛。

除了附加到上一个问题的末尾之外，你还应该考虑发布你的问题。这样你会得到更多的回复。

jaylo23 · 发表于 2022-7-6 13:09:54

嘿，第一次贴海报，但长期跟踪。我有基本的lisp经验。我正在寻找一个类似的Lisp程序这个只有几个不同之处。我附上了两张图片，1（之前）显示了lisp生成的内容，2（之后）显示了我希望修改它的目的。基本上，我只需要画一半的油箱盖，根据用户定义的长度从较大圆弧的中点向下画一条线，然后插值其他2条线。如果这不够清楚，请原谅我，让我知道，我会尽力澄清。
之后pdf
之前）。pdf

T2L · 发表于 2022-7-6 13:12:05

遵循LSR代码并进行以下修改：

要获得较大弧的一半，请使用3点弧（SSE），而不是LSR从pt3到pt6使用的（SER）。要获得弧的中点或第二个点，请使用“从中心点定义坦克头部的深度”。从那里使用break命令删除一半弧，弧的中点作为第一个点，pt6作为第二个点。

你需要在pt2下再取一个点来画一条线。

其余与LSR代码相同。

我希望我清楚了。

编辑：我应该说pt1不是pt2。

jaylo23 · 发表于 2022-7-6 13:14:34

谢谢t2l的回复，我完全明白你的意思，我只是无法正确编写代码。在这一点上，让我强调一下“Lisp程序新手”。有什么想法吗？

T2L · 发表于 2022-7-6 13:18:56

为了测试LSR代码，您必须提供数字或示例，就像启动此线程的人一样；否则就像在黑暗中射击。

waqas azam · 发表于 2022-7-6 13:21:46

尊敬的先生：，

我学习自动LISP plz帮助我
我在auto cad中制造压力容器
是否可以编写一个AutoLisp例程，该例程将要求用户输入变量，如外壳id、厚度、长度、关节半径、复曲面角度等，然后生成立面图和端视图
（或标高和平面图，取决于其是水平容器还是垂直容器）是否适用于同一容器？
请帮帮我
我的电子邮件是waqasazam89@hotmail.com

WAQAS AZAM公司

ReMark · 发表于 2022-7-6 13:24:52

Waqas Azam：欢迎来到CADTutor论坛。这篇文章的最后一篇帖子是一年多前写的。我可以建议您在AutoLISP/VBA论坛中以新的帖子形式发布您的问题吗？此外，在公共论坛上发布个人的私人电子邮件地址从来都不是一个好主意。非常感谢。

[编程交流] 产生压力V的Lisp

发表回复

精选推荐