压力容器碟形封头

The Buzzard · 发表于 2022-7-5 17:50:54

12年前我从泽西岛搬到这里是为了离弗吉尼亚州医院更近。那个地方占用了我很多时间。我只是做编程，这样我就不会感到无聊，因为我不再工作了。

ReMark · 发表于 2022-7-5 17:54:56

好吧，我们总有一天要聚在一起喝杯啤酒！我有一个女儿住在布鲁克林（Bayridge？）。

The Buzzard · 发表于 2022-7-5 17:56:56

我记住了这一点。期待着看看你是否真的像你的头像。

The Buzzard · 发表于 2022-7-5 18:01:22

给你一点关于头部半径的信息。

通过将内径或内径除以4，可以确定2:1的封头内径或内碟深度。注意，这仅适用于2:1水头。这使得IDR或内碟半径略高于90%，IKR或内转向节半径略高于17%。

其他头部IDD是IDR或碟形内半径和IKR或转向节内半径组合的结果。这些参数可能因制造商而异，但该程序中使用的半径对于其指定的头部类型来说是典型的。如果需要，可以在程序中更改这些值。

如果您有任何关于这些尺寸的实际规格，我可以为您相应地设置程序。

请参见下图。

Lee Mac · 发表于 2022-7-5 18:02:46

秃鹰，

刚刚有机会查看了您的代码，这很好，但如果您需要，这里有一些建议：
[列表]

如果新的_dialog调用失败，您似乎要加载两次对话框：
[/列表]
[code]（setq DCL\U ID（load\U dialog“DH.DCL”））（if（not（new\U dialog“MAIN”DCL\U ID））（cond（（

ReMark · 发表于 2022-7-5 18:06:53

我将把代码注释留给像李和其他你在“关于”消息中信任的人。那件事目前我无法理解。

然而，我可以说，毫无疑问，在我从事化学工业的这些年里，我从来没有这么快地画过ASME法兰和碟形封头！你让我的生活变得轻松多了，我可以（而且确实）高兴地大喊。它起到了很好的作用。我所需要的只是你的程序和我的贝瑟伦钢法兰和碟形封头/体积和尺寸代码要求的狗耳环副本，我就要去比赛了。我真是太感谢你了，秃鹰。下次我要去纽约时，我会告诉你的。也许有什么办法我们可以见面，我可以给你买啤酒（或者两杯……或者？？）。你这个男人！

The Buzzard · 发表于 2022-7-5 18:10:10

谢谢你，李，

在我尝试使用它之前，我需要将其中一些分解并消化。你知道，这很奇怪，但你建议更改的一些代码是我根据你上次查看的代码所做的更改。我猜你一直在寻找压缩编码的方法。

当我制作此代码的另一个版本以添加功能时，我将添加其中一些修复。

再次感谢，
秃鹰

The Buzzard · 发表于 2022-7-5 18:12:48

那句好听的话，

我希望您也测试了一些选项，看看它们是否有用。正如我所提到的，这些头部使用的半径是典型的，因此它们应该接近精确。我知道2:1的比例是在金钱上。我计划为B16.5法兰和管道以及结构钢制定更多的代码。我花了我的时间与这个碟形头代码，以确保我没有重做很多编码，所以这些其他代码将在适当的时候下来派克。

无论如何，让代码按其速度运行。
很高兴你喜欢它，享受代码。
秃鹰

Lee Mac · 发表于 2022-7-5 18:16:38

没错，我一直在努力找到更好的做事方式

The Buzzard · 发表于 2022-7-5 18:20:05

大家注意！

版本V0.1已上传至第一篇文章。
您可以查看修订列表中的更改。

谢谢你，享受代码。
秃鹰

[编程交流] 压力容器碟形封头

发表回复

精选推荐