ANSI B16.47法兰Lisp
大家好，下面是另一个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
; V2 | Removed AF2_PL Program Loop function and replace with while loop | 09|17|10
; XXXX | XXXXX | XX|XX|XX
; XXXX | XXXXX | XX|XX|XX
;
;/////////////////////////////////////////////////////////////////////////////////////////
我在代码中做了一个部分，供您编辑图层和线型。只需编辑红色突出显示的部分，如下所示。
;=========================================================================================
;
; Note: Here you can modify Layer Names, Color, Linetype and Lineweight Below.
;
(setq FLNAM "M-PROC-NOZZ") ;Flange Layer Name
(setq FLCLR 1) ;Flange Layer Color
(setq FLTYP "Continuous") ;Flange Linetype
(setq FLWGT 35) ;Flange Lineweight
(setq CLNAM "M-PROC-NOZZ-CLIN") ;Center Line Layer Name
(setq CLCLR 5) ;Center Line Layer Color
(setq CLTYP "CENTER2") ;Center Line Linetype
(setq CLWGT 18) ;Center Line Lineweight
;
; Note: The information below for the linetype is from acad.lin and acadiso.lin
;
(setq CDESC "Center (.5x) ___ _ ___ _ ___ _ ___ _ ___ _ ___ ") ;Center Line Description
(cond
((= DUNT "IMP") ;If Imperial Units
(setq TPL 1.125 ;Total Pattern Length (Imperial)
SLEN10.75 ;Segment Length 1 (Imperial)
SLEN2 -0.125 ;Segment Length 2 (Imperial)
SLEN30.125 ;Segment Length 3 (Imperial)
SLEN4 -0.125)) ;Segment Length 4 (Imperial)
((= DUNT "SI") ;If SI Units
(setq TPL 28.575 ;Total Pattern Length (SI)
SLEN1 19.05 ;Segment Length 1 (SI)
SLEN2 -3.175 ;Segment Length 2 (SI)
SLEN33.175 ;Segment Length 3 (SI)
SLEN4 -3.175))) ;Segment Length 4 (SI)
;
; End of Layer Modify
;
;=========================================================================================
AF2_V2。拉链 大家注意，
我不得不修复程序中一个错误的函数调用。最新的补丁现在上传到第一篇文章。我还要请您测试该程序，并报告您可能发现的任何其他问题。
很抱歉。
请欣赏这个节目
秃鹰 大家注意，
版本V2已上传至第一篇文章。有关更改，请参阅修订列表。 我不能使用，在文件c中定位：，然后“加载应用程序”并在命令行中写入AF1和AF2，我没有看到任何东西，我得到以下错误
命令：af1
**未找到DCL**文件
我做错了什么？
我有autocad 2008 支持文件搜索路径。
另请参阅另一个法兰程序。
页:
[1]