《AutoCAD实用参考资料》化工工艺流程图阀门程序设计

化工工艺流程图阀门程序设计 提要本文针对化工工艺流程图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 ]< ")

(princ * ffl) ) (if (not fl)(setq fl*yffl(setq'yffl fl)) )(defun dfw ( (command"OSNAP""NEAR") ( setq el( entel"n阀心位置:") (command"osnap""none") ( defun gy ( setq zx(cadr el) e2(entget(car el)) pol(cdr(assoc 10 e2)) 02(edr(assoc 1l e2)) 2(+(*(1.02.0)pi) angle pl1p02) 11(/fc 1. 732) 12(l11.0) pl( polar Z(+z(*(2.03.0)pi))l2) p2( polar zx(+z(*(1.03.0)pi))l2) p3( polar Zx(+z(*(403.0)pi))l2) p4(polar zx(+ zj(*(/5.03.0)pi)) 12) pll( polar Zx(+z(*(1.02.0)p)(*0.86712) p2l( polar zx(+z(*(203.0)p)(*0.4811) p22( polar zx(+2(*(1.03.0)pi)(*0.4811) p23( polar zX(+(*(4.03.0)pi)(*0.4811) p24( polar zX(+2(*(5.03.0)pi)(*0.4811);setq (command"break"p32 p33) (defun qfo (while el (gy) (command"line"p21 pl p2 p22 line"p23 p3 p4 p24 circle"ZX(*0.48 I1):command ): while (PRINC (while el (command"line"pl p2 p3 p4 pl "" (PRINC

(princ *yffl) (setq fl (getkword " >")) (if (not fl) (setq fl *yffl) (setq *yffl fl)) ) (defun dfw ( ) (command "OSNAP" "NEAR") (setq e1 (entsel "\n 阀心位置:")) (command "osnap" "none") (defun gy（） (setq zx (cadr e1) e2 (entget (car e1)) p01 (cdr (assoc 10 e2)) p02 (cdr (assoc 11 e2)) zj (+ (* (/ 1.0 2.0) pi) (angle p01 p02)) l1 (/ fc 1.732) l2 (/ l1 1.0) p1 (polar zx (+ zj (* (/ 2.0 3.0) pi)) l2) p2 (polar zx (+ zj (* (/ 1.0 3.0) pi)) l2) p3 (polar zx (+ zj (* (/ 4.0 3.0) pi)) l2) p4 (polar zx (+ zj (* (/ 5.0 3.0) pi)) l2) p11 (polar zx (+ zj (* (/ 1.0 2.0) pi)) (* 0.867 l2)) p21 (polar zx (+ zj (* (/ 2.0 3.0) pi)) (* 0.48 l1)) p22 (polar zx (+ zj (* (/ 1.0 3.0) pi)) (* 0.48 l1)) p23 (polar zx (+ zj (* (/ 4.0 3.0) pi)) (* 0.48 l1)) p24 (polar zx (+ zj (* (/ 5.0 3.0) pi)) (* 0.48 l1)))；setq (flsz) (command "break" p32 p33 ) ) (defun qf ( ) (while e1 (gy) (command "line" p21 p1 p2 p22 "" "line" p23 p3 p4 p24 "" "circle" zx (* 0.48 l1))；command (dfw) )；while (PRINC) ) (defun jz ( ) (while e1 (gy) (command "line" p1 p2 p3 p4 p1 "") (dfw) (PRINC) )

(gy) ( setq I3(/122) p7(poax(+z(*(1.01.0)pi))13 p8( polar Z(+z(*(0.01.0)pi))13);setq (command"line"pl p2 p3 p4 pl line"p7 p8"):command (PRINC)): while ( defun dx () (while el (gy) (command"line"pl p2 p3 p4 pl (xzjd) (command"rotate""c"p2 p3""zx Zj) (dfw) (PRINC) ( defun xzd ( (initget"YN") (if (not*xz)(setq*XZ"N") ( princ"n镜像旋转:[YN]") setq xz(getkword">")) (if (not xz)(setq xz*xz)(setq *xz xz)) (if(=xz"N")(setq zj 0.0)(setq Zj 180.0)) )(defun xs O (while el (command"line"pl p2 p3 p4 pl donut"0(*0.811)ZX"): command (dfw) (PRINC) (defun jl() (while el (command"line"pl p2 p3 p4 pl

) (defun zf ( ) (while e1 (gy) (setq l3 (/ l2 2) p7 (polar zx (+ zj (* (/ 1.0 1.0) pi)) l3) p8 (polar zx (+ zj (* (/ 0.0 1.0) pi)) l3))；setq (command "line" p1 p2 p3 p4 p1 "" "line" p7 p8 "" )；command (dfw) (PRINC))；while ) (defun dx ( ) (while e1 (gy) (command "line" p1 p2 p3 p4 p1 "" "solid" zx p3 p4 "" "")；command (xzjd) (command "rotate" "c" p2 p3 "" zx zj) (dfw) ) (PRINC) ) (defun xzjd（） (initget "Y N") (if (not *xz) (setq *xz "N")) (princ "\n 镜像旋转: [ Y/N ]")) (if (not xz) (setq xz *xz) (setq *xz xz)) (if (= xz "N") (setq zj 0.0) (setq zj 180.0)) ) (defun xs ( ) (while e1 (gy) (command "line" p1 p2 p3 p4 p1 "" "donut" 0 (* 0.8 l1) zx "")；command (dfw) )；while (PRINC) ) (defun jl ( ) (while e1 (gy) (command "line" p1 p2 p3 p4 p1

solid"zx p3 p4 solid"zx pl p2 ): command (PRINC) (defun jy() ( while el (command"line"pl p3 p4 p2 pI line"p3 pll p4 " D: while (PRINC) ( defun gm( (while el (gy) ( setq p44(polar zx(+zj (*0.0 pi))(*0.6Il)) (command"line"pl p2 p3 p4 pI arcp24 p44 p22): command (PRINC )(defun df() (gy) (command"line"pl p3 p4 p2 pl circle"ZX(0.5)): command (PRINC) ( defun ss() (while el (gy) (setq p55(polar zx(*0. 25 pi)(*0.45 fc)) p56( polar z(*1.25p)(*0.45fc) p57(polar zx(* 1.25 pi)(*0.225 fc))): setq (command"pline"p57"w"(*0.45 fc)""a""ce"zx "a"180 line"p55 p56 circle"ZX(*0.45 fc)): command

"solid" zx p3 p4 "" "" "solid" zx p1 p2 "" "")；command (dfw) )；while (PRINC) ) (defun jy ( ) (while e1 (gy) (command "line" p1 p3 p4 p2 p1 "" "line" p3 p11 p4 "")；command (xzjd) (command "rotate" "c" p2 p3 "" zx zj) (dfw) )；while (PRINC) ) (defun gm ( ) (while e1 (gy) (setq p44 (polar zx (+ zj (* 0.0 pi)) (* 0.6 l1))) (command "line" p1 p2 p3 p4 p1 "" "arc" p24 p44 p22)；command (dfw) )；while (PRINC) ) (defun df ( ) (while e1 (gy) (command "line" p1 p3 p4 p2 p1 "" "circle" zx (* 0.5 l1))；command (dfw) )；while (PRINC) ) (defun ss ( ) (while e1 (gy) (setq p55 (polar zx (* 0.25 pi) (* 0.45 fc)) p56 (polar zx (* 1.25 pi) (* 0.45 fc)) p57 (polar zx (* 1.25 pi) (* 0.225 fc)))；setq (command "pline" p57 "w" (* 0.45 fc) "" "a" "ce" zx "a" 180 "" "line" p55 p56 "" "circle" zx (* 0.45 fc) )；command

): while ( setq kl(polar Zx Zj(*120.7) kzx(polar ZX Zj (12 0.35)) k2( polar kl(+2(*(1.02.0)pi))(1220) k3( polar kI(+2(*(3.02.0)p)(/220) k4 (polar kl zj(/12 2.0))):setq (command"line"pl p2 p3 p4 pI arc"k2 k4 k3): command (command"rotate""c"kzx k4 zx zj) (dfw) ): while (PRINC) (defun flsz ( (etqp32( polar Zy(+z(*(/-1.02.0)p)(*3.0*bl) p33( polar zx(+z(*(1.02.0)pl)(*3.0*bl) 2j(*0.0pi)(*0.511) (*1.0pi)(*0.511) ( polar p33(+z(*1.0pi)(*0.511) pf4(polar p33 (+Zj(0.0 pi))(0.5II))): setq (command"break "p32 p33"line"pfl pf2 e"pf3 pf4 );co ):progn ( setq p32(polar zx(+zj((-1.02.0)pi)) p33( polar zx(+2(*(1.02.0)pi))12);setq ): if (defun va) (if (and(/=*bl nil)(/=*dwgscale nil)) (setvar "cmdecho"O) (setvar"regenmode"0)

(dfw) )；while (PRINC) ) (defun kz ( ) (while e1 (gy) (setq k1 (polar zx zj (* l2 0.7)) kzx (polar zx zj (* l2 0.35)) k2 (polar k1 (+ zj (* (/ 1.0 2.0) pi)) (/ l2 2.0)) k3 (polar k1 (+ zj (* (/ 3.0 2.0) pi)) (/ l2 2.0)) k4 (polar k1 zj (/ l2 2.0)))；setq (command "line" p1 p2 p3 p4 p1 "" "line" k2 k3 "" "line" k1 zx "" "arc" k2 k4 k3)；command (xzjd) (command "rotate" "c" kzx k4 "" zx zj) (dfw) )；while (PRINC) ) (defun flsz（） (if (= fl "Y") (progn (setq p32 (polar zx (+ zj (* (/ -1.0 2.0) pi)) (* 3.0 *bl)) p33 (polar zx (+ zj (* (/ 1.0 2.0) pi)) (* 3.0 *bl)) pf1 (polar p32 (+ zj (* 0.0 pi)) (* 0.5 l1)) pf2 (polar p32 (+ zj (* 1.0 pi)) (* 0.5 l1)) pf3 (polar p33 (+ zj (* 1.0 pi)) (* 0.5 l1)) pf4 (polar p33 (+ zj (* 0.0 pi)) (* 0.5 l1)))；setq (command "break" p32 p33 "line" pf1 pf2 "" "line" pf3 pf4 "")；command )；progn (setq p32 (polar zx (+ zj (* (/ -1.0 2.0) pi)) l2) p33 (polar zx (+ zj (* (/ 1.0 2.0) pi)) l2))；setq )；if (princ) ) (defun va( ) (if (and (/= *bl nil) (/= *dwgscale nil)) (progn (setvar "cmdecho" 0) (setvar "regenmode" 0)

(setq cl(getvar"clayer") (command"blipmode""off c green (initget"QZJDXLYGWSK") (if (not*fm)(setq*fm"J")) ( princ"n球Q闸Z/截J/单D/旋节L减Y隔G/蝶W疏S控K: " ) (if (not fm)(setq fm*fm)(setq *fm fm) (cond((=fm"Q")(qs)(dfw)(qf)) ((=fm"Z")(qs)(dfw)(zf)) (( fm"J")(qs)(dfw)Gz)) ((=fm"D")(qs)(dfw)(dx)) ((=fm"X")(qs)(dfw)(xs) ((=fm"")(qs)(dfw)gD)) ((fm"Y")(qs)(dfw)(y)) ((=fm"G")(qs)(dfw)(gm)) ((fm"W")(qs)(dfw)(df)) ((=fm"S")(qs)(dfw)(ss) ((=fm"K )(qs)(dfw)(kz))): cond (command"layer""s"cl") ( setvar regenmode"1) ()))( ): end (va)

(setq cl (getvar "clayer")) (command "blipmode" "off" "fill" "on" "layer" "m" "va" "s" "va" "lt" "continuous" "" "c" "green" "" "")；command (initget "Q Z J D X L Y G W S K") (if (not *fm) (setq *fm "J")) (princ "\n 球 Q/闸 Z/截 J/单 D/旋 X/节 L/减 Y/隔 G/蝶 W/疏 S/控 K :")) (if (not fm) (setq fm *fm) (setq *fm fm)) (cond ((= fm "Q") (qs) (dfw) (qf)) ((= fm "Z") (qs) (dfw) (zf)) ((= fm "J") (qs) (dfw) (jz)) ((= fm "D") (qs) (dfw) (dx)) ((= fm "X") (qs) (dfw) (xs)) ((= fm "L") (qs) (dfw) (jl)) ((= fm "Y") (qs) (dfw) (jy)) ((= fm "G") (qs) (dfw) (gm)) ((= fm "W") (qs) (dfw) (df)) ((= fm "S") (qs) (dfw) (ss)) ((= fm "K") (qs) (dfw) (kz)))；cond (command "layer" "s" cl "") (setvar "regenmode" 1) (princ) ) ) )；end (va) princ) ) ) )；end (va)