通过将内径或内径除以4，可以确定2:1的封头内径或内碟深度。注意，这仅适用于2:1水头。这使得IDR或内碟半径略高于90%，IKR或内转向节半径略高于17%。
其他头部IDD是IDR或碟形内半径和IKR或转向节内半径组合的结果。这些参数可能因制造商而异，但该程序中使用的半径对于其指定的头部类型来说是典型的。如果需要，可以在程序中更改这些值。
如果您有任何关于这些尺寸的实际规格，我可以为您相应地设置程序。
请参见下图。
秃鹰，
刚刚有机会查看了您的代码，这很好，但如果您需要，这里有一些建议：
[列表]
[*]如果新的_dialog调用失败，您似乎要加载两次对话框：
[/列表]
（setq DCL\U ID（load\U dialog“DH.DCL”））（if（not（new\U dialog“MAIN”DCL\U ID））（cond（（ 我将把代码注释留给像李和其他你在“关于”消息中信任的人。那件事目前我无法理解。
然而，我可以说，毫无疑问，在我从事化学工业的这些年里，我从来没有这么快地画过ASME法兰和碟形封头！你让我的生活变得轻松多了，我可以（而且确实）高兴地大喊。它起到了很好的作用。我所需要的只是你的程序和我的贝瑟伦钢法兰和碟形封头/体积和尺寸代码要求的狗耳环副本，我就要去比赛了。我真是太感谢你了，秃鹰。下次我要去纽约时，我会告诉你的。也许有什么办法我们可以见面，我可以给你买啤酒（或者两杯……或者？？）。你这个男人！ 谢谢你，李，
在我尝试使用它之前，我需要将其中一些分解并消化。你知道，这很奇怪，但你建议更改的一些代码是我根据你上次查看的代码所做的更改。我猜你一直在寻找压缩编码的方法。
当我制作此代码的另一个版本以添加功能时，我将添加其中一些修复。
再次感谢，
秃鹰
那句好听的话，
我希望您也测试了一些选项，看看它们是否有用。正如我所提到的，这些头部使用的半径是典型的，因此它们应该接近精确。我知道2:1的比例是在金钱上。我计划为B16.5法兰和管道以及结构钢制定更多的代码。我花了我的时间与这个碟形头代码，以确保我没有重做很多编码，所以这些其他代码将在适当的时候下来派克。
无论如何，让代码按其速度运行。
很高兴你喜欢它，享受代码。
秃鹰
没错，我一直在努力找到更好的做事方式 大家注意！
版本V0.1已上传至第一篇文章。
您可以查看修订列表中的更改。
谢谢你，享受代码。
秃鹰
页:
1
[2]