化工工艺流程图阀门程序设计.doc
《化工工艺流程图阀门程序设计.doc》由会员分享,可在线阅读,更多相关《化工工艺流程图阀门程序设计.doc(6页珍藏版)》请在咨信网上搜索。
化工工艺流程图阀门程序设计 提要:本文针对化工工艺流程图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 *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) ) ) (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 ]< ") (princ *xz) (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 ( ) (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 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 (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" "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 < ") (princ *fm) (setq fm (getkword " >:")) (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)- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 化工 工艺 流程图 阀门 程序设计
咨信网温馨提示:
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,个别因单元格分列造成显示页码不一将协商解决,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【二***】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【二***】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,个别因单元格分列造成显示页码不一将协商解决,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【二***】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【二***】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。
关于本文