化工工艺流程图阀门程序设计

化工工艺流程图阀门程序设计提要:本文针对化工工艺流程图 CAD 阀门绘制程序设计，探讨 CAD在化工工艺设计中的运用。文后提供的程序清单可在 AutoCAD R12 中文环境下运行，对化工工艺设计 CAD 二次开发提供经验与技巧。 CAD 技术已广泛应用于各专业设计，但在化工工艺设计领域内商品化软件不足，这就需要各设计单位自行开发应用软件以适应 CAD 技术的进展.本文提供的阀门绘制程序是在AutoCAD 二次开发的化工工艺计算机辅助设计 CPCAD 系统中的一个独立程序，它以AutoLisp 语言编写，功能全，使用方便，具有可读性及一定的技巧。● 阀门绘制要求 在 AutoCAD 上绘制阀门，要求于已存在的工艺管道上据阀门类型自动按一定的比例显示，图纸输出时的尺寸符合专业制图要求，(原因是不可能根据阀门的实际尺寸与其它化工设备按同一比例绘图) 并自动切断管道线，同时推断管线与水平方向的夹角，可取代AutoCAD 的 copy。阀门型式全，层自动设置并不受原当前层的影响。● 程序简介 该程序针对以上要求，提供 11 种常用阀型，可方便地进行选择.如需其它类型，可对源程序简单地修改补充。1.主控程序 在主控程序中，(if (and (/= *bl nil) (/= * dwgscale nil) ) 推断变量*bl 及*dwgscal 是否存在.如不存在程序不再执行， 因此需在 ACAD. LSP中加载或在 command 下赋值(注:*bl=*dwgscale)。如(setq *bl 100) (setq *dwgscale 100)，100 为绘图比例。Progn 语句段完成图层设置，下面的缺省值设计读者可自行分析，具有通用性和一定的技巧。2.阀门程序的公用子程序 该部分是程序的核心.阀门长度的赋值是绘图比例的 5 倍，当以相同比例输出时其长度为 5mm。法兰的绘制是可选择的。当提示阀心位置时，选择 line 实体，程序可就选择的line 实体的起点和终点坐标计算该线与水平方向的夹角，同时求出各绘制点的极坐标。需要强调的是对 Pline 折线不适用，其原因是起点与终点的连线和要绘阀门不一致。(一般地，如需粗线可在出图时对绘图仪的参数进行设置)该子程序中又调用法兰设计子程序，这是AutoLisp 允许的，而且是一很好的功能。3.其它子程序相对简单，不再介绍。●.附源程序清单 VA(defun *ERROR* (st)(menucmd "s=s")(command "osnap" "none")(command "layer" "s" cl "")(setvar "regenmode" 1)(princ st)(terpri))(defun qs （）(setq fc (* 5.0 *bl))(menucmd "s=s")(initget ...