大家好，
下面是另一个entmake程序，它可以快速创建ANSI B16.47法兰。该程序的一部分来自Afralisp，并通过更好的错误捕获和外部数据输入进行了修改。感谢李在这方面以及列表框。该程序还具有内置指令。该程序将允许您切换插入点位置，以将法兰面对面安装到管道或法兰上，而无需额外操作。该程序规定以国际单位制插入法兰。可以编辑图层名称、颜色、线型和线宽，以符合您的标准。法兰范围：26“至60”。
此程序需要以下文件才能正常工作。
确保将这些文件放在同一目录中。
还要确保目录位于AutoCAD支持文件搜索路径中。
这个程序有一个内置的警报，让你知道DIM文件是否丢失。（见下图）
AF2.dcl-AutoCAD对话框定义，大小为3 KB“
AF2.lsp-AutoLISP应用程序源，大小63 KB“
AF2_A_150#。dim-dim文件，大小为3 KB“
AF2_A_300#。dim-dim文件，大小为3 KB“
AF2_A_400#。dim-dim文件，大小为3 KB“
AF2_A_600#。dim-dim文件，大小为3 KB“
AF2_A_900#。dim-dim文件，大小2 KB“
AF2_B_75#。dim-dim文件，大小为3 KB“
AF2_B_150#。dim-dim文件，大小为3 KB“
AF2_B_300#。dim-dim文件，大小为3 KB“
AF2_B_400#。dim-dim文件，大小为3 KB“
AF2_B_600#。dim-dim文件，大小为3 KB“
AF2_B_900#。dim-dim文件，大小2 KB“
试试看，让我知道进展如何。
见附件AF2。拉链在下面。
命令语法为：AF2
您可以在此处找到有关加载程序的信息：http://www.cadtutor.net/forum/showthread.php?t=1390
对于ANSI B16.5法兰，请转至以下螺纹：http://www.cadtutor.net/forum/showthread.php?t=48462
对于ASME压力容器封头，请转至以下螺纹：http://www.cadtutor.net/forum/showthread.php?t=47451
注意：版本V2 2010年9月17日
- ;/////////////////////////////////////////////////////////////////////////////////////////
- ;
- ; Do Not Remove This Header!
- ;
- ; Revisions.
- ; Note: Be sure to add the most recent revision date and version in the About Dialog Page.
- ;-----------------------------------------------------------------------------------------
- ; Version | Change | Date
- ;-----------------------------------------------------------------------------------------
- ; V1 | Fix bad function call problem in AF2_CFV | 06|05|10
- [color=red][b]; V2 | Removed AF2_PL Program Loop function and replace with while loop | 09|17|10[/b][/color]
- ; XXXX | XXXXX | XX|XX|XX
- ; XXXX | XXXXX | XX|XX|XX
- ;
- ;/////////////////////////////////////////////////////////////////////////////////////////
我在代码中做了一个部分，供您编辑图层和线型。只需编辑红色突出显示的部分，如下所示。
- ;=========================================================================================
- ;
- ; Note: Here you can modify Layer Names, Color, Linetype and Lineweight Below.
- ;
- (setq FLNAM "[color=red]M-PROC-NOZZ[/color]") ;Flange Layer Name
- (setq FLCLR [color=red]1[/color]) ;Flange Layer Color
- (setq FLTYP "[color=red]Continuous[/color]") ;Flange Linetype
- (setq FLWGT [color=red]35[/color]) ;Flange Lineweight
- (setq CLNAM "[color=red]M-PROC-NOZZ-CLIN[/color]") ;Center Line Layer Name
- (setq CLCLR [color=red]5[/color]) ;Center Line Layer Color
- (setq CLTYP "[color=red]CENTER2[/color]") ;Center Line Linetype
- (setq CLWGT [color=red]18[/color]) ;Center Line Lineweight
- ;
- ; Note: The information below for the linetype is from acad.lin and acadiso.lin
- ;
- (setq CDESC "[color=red]Center (.5x) ___ _ ___ _ ___ _ ___ _ ___ _ ___[/color] ") ;Center Line Description
- (cond
- ((= DUNT "IMP") ;If Imperial Units
- (setq TPL [color=red]1.125[/color] ;Total Pattern Length (Imperial)
- SLEN1 [color=red]0.75[/color] ;Segment Length 1 (Imperial)
- SLEN2 [color=red]-0.125[/color] ;Segment Length 2 (Imperial)
- SLEN3 [color=red]0.125[/color] ;Segment Length 3 (Imperial)
- SLEN4 [color=red]-0.125[/color])) ;Segment Length 4 (Imperial)
- ((= DUNT "SI") ;If SI Units
- (setq TPL [color=red]28.575[/color] ;Total Pattern Length (SI)
- SLEN1 [color=red]19.05[/color] ;Segment Length 1 (SI)
- SLEN2 [color=red]-3.175[/color] ;Segment Length 2 (SI)
- SLEN3 [color=red]3.175[/color] ;Segment Length 3 (SI)
- SLEN4 [color=red]-3.175[/color]))) ;Segment Length 4 (SI)
- ;
- ; End of Layer Modify
- ;
- ;=========================================================================================
AF2_V2。拉链 | 
置顶卡
