当前位置:高等教育资讯网  >  中国高校课件下载中心  >  大学文库  >  浏览文档

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

提要本文针对化工工艺流程图CAD阀门绘制程序设计,探讨CAD在化工工艺设计中的运 用。文后提供的程序清单可在 AutoCAD R12中文环境下运行,·对化工工艺设计CAD二次 开发提供经验与技巧。
资源类别:文库,文档格式:DOC,文档大小:43.5KB,文档页数:6,团购合买
点击下载完整版文档(DOC)

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

点击下载完整版文档(DOC)VIP每日下载上限内不扣除下载券和下载次数;
按次数下载不扣除下载券;
24小时内重复下载只扣除一次;
顺序:VIP每日次数-->可用次数-->下载券;
已到末页,全文结束
相关文档

关于我们|帮助中心|下载说明|相关软件|意见反馈|联系我们

Copyright © 2008-现在 cucdc.com 高等教育资讯网 版权所有