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