产生压力V的Lisp

a_differently a · 发表于 2022-7-6 12:23:27

大家好，

在此处使用AutoCAD 2006。

我主要处理EPC或制药行业中使用的压力容器图纸。我的问题是；

1.是否可以编写一个AutoLisp例程，要求用户输入诸如外壳id、厚度、长度、关节半径、复曲面角度等变量，然后生成立面图和端视图
（或标高和平面图，取决于其是水平容器还是垂直容器）？

2.这里的AutoLisp专家能否推荐两本学习和掌握AutoLisp的好书？（就AutoLisp而言，我是个新手）

任何帮助都将不胜感激。提前谢谢。

Adesu · 发表于 2022-7-6 12:27:11

Hi a_Differential abled_draft；50996,
1).是的，这是可以写与lisp，取决于你的能力使用所有函数lisp，或张贴在这里你的绘图，也许其他成员会帮助你。
2).我不买书，我只加入论坛，从lisp网站上读了很多书。

或者访问“Afralisp”，你会在那里找到lisp。

a_differently a · 发表于 2022-7-6 12:30:06

Thanx Adesu，
刚刚访问了Afralisp网站。。。对于像我这样的autolisp新手来说，这很酷。
我肯定会经常去。

我要在这里上传一个水平容器的dwg文件。。
不知道如何将文件大小调整到推荐的50KB，但我在这里碰碰运气。

我想要实现的是，
不要手动绘制船舶的轮廓视图，而是使用Lisp，它将要求用户输入所有所需参数，如壳体id、长度、库克尔半径等，并动态生成立面图和端视图（或平面图和立面图）。

仍在努力解决这个问题，因为这对像我这样主要处理不同类型压力容器的人来说将是一个关键的生产力提升。
接收器-11 KL。图纸

Adesu · 发表于 2022-7-6 12:35:07

Hi a_Differential abled_draft；51407,
你的图纸足够详细，易于阅读，但我仍然不明白“175 IKR”是什么意思，我知道这是值半径，但“IKR”是什么？，然后是“1750 ICR”。
如果你看到L1层有一条黄色的线，那是什么？，这条线有多长，与水平线的夹角是多少（从“X”看），或者它是焊接的符号？。
我会尝试为这张图创建一个lisp，我希望你耐心地收到我的代码，因为这张图相当复杂。

a_differently a · 发表于 2022-7-6 12:36:46

IKR=内转向节半径
ICR=内冠半径（碟端）
u是指用于将角撑板加强筋固定到鞍座支架的端视图中的焊缝吗？哦，它们不需要在lisp中生成。
你有messenger id吗？

LSR · 发表于 2022-7-6 12:41:02

你可以从这里开始：

copy

; To convert degrees to radians
(defun DTR (D)
  (/ (* pi D) 180.0)
);end of DTR
(defun C:DISH ()
;User Input 
  (setq CEN (getpoint "\nEnter center point of Vessel: "))
  (setq DIA (getreal "\nEnter Vessel Diameter (DIA): "))
  (setq IKR (getreal "\nEnter Internal Knuckle Radius (IKR): "))
; To get the points of Knuckle Radius
  (setq DIA2 (/ DIA 2))                               
  (setq PT1 (polar CEN (DTR 180) DIA2))
  (setq PT2 (polar PT1 (DTR 0) IKR))
  (setq PT3 (polar PT2 (DTR 120) IKR))
  (setq PT4 (polar CEN (DTR 0) DIA2))
  (setq PT5 (polar PT4 (DTR 180) IKR))
  (setq PT6 (polar PT5 (DTR 60) IKR))
; To draw the Dish 
  (command "ARC" PT3 "C" PT2 PT1)          ; Arc Start/Center/End
  (command "ARC" PT4 "C" PT5 PT6)          ; Arc Start/Center/End
  (command "ARC" PT6 "E" PT3 "R" DIA)     ; Arc Start/End/Radius
);end of DISH

图纸应如下所示：

学习它，你就可以完成剩下的。祝你好运

a_differently a · 发表于 2022-7-6 12:44:25

谢谢LSR
我必须学习更多，也要试试这个。
&非常感谢您用图表解释

blaryon · 发表于 2022-7-6 12:46:04

你好
我需要你的经验来帮助我设计压力容器，双夹套能够在夹套之间输送8到10巴的蒸汽，带有碟形两侧开口门，配有搅拌机，用于烹饪鸡肉废料，用于食用活鸡肉，
最重要的是制造板的厚度和开口浇口的设计，因为有一个与齿轮箱耦合的密炼机通过它们。
我想帮我做这个设计
我想提请您注意另一件重要的事情，即排放口应位于联轴器侧的对向，报价容量1570升的基本尺寸为
L=2米
内壳D=1米

manikya rao · 发表于 2022-7-6 12:50:08

你好
谢谢你的Lisp程序，但有一个错误是你的身高问题。
plz检查高度

高度形式h=1/4 X id（~）

再见

manikya rao · 发表于 2022-7-6 12:52:29

好的，很好。
这个碟形端名plz。
有多少种碟形封头。

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

发表回复

精选推荐