化工工艺流程图阀门程序设计
化工工艺流程图阀门程序设计
提要:本文针对化工工艺流程图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 ]))
(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 *** ( )
(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 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 :))
(if (not fm) (setq fm *fm) (setq *fm fm))
(cond ((= fm q) (qs) (dfw) (qf))
((= fm z) (qs) (dfw) (***))
((= 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)
380亿美元收购恩智浦半导体公司有望获批
是三维激光扫描技术满足历史建筑测绘要求
用工业互联网技术创新各行业解决方案
PCB油墨的特性以及使用注意事项解析
氮化镓推动电源解决方案
化工工艺流程图阀门程序设计
用案例分析如何将客户需求转化为产品之一
Matter如何为家庭自动化带来变革
vivo X21深度评测:一流外观设计+超强配置
特斯拉降价深度解析：供需平衡仍为关键
STM32对于U盘访问的硬件/软件实现
手机投屏到电视的5种方法
S7-1500有关组态控制的重要信息简析
开关电源之非同步控制器的仿真
乐檬K12系列即将上市:配备6000mAh超大电池
中低压配电网自动化及PLC实现设计
Linux开发_Shell脚本编程语言
中国第一！浪潮信息存储装机容量连续9个季度折桂
人工智能助力下 智慧林业迎来了良好的发展时机
基于Sitara AM5749平台的ali-iot边缘网关的配置方法
提要:本文针对化工工艺流程图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 ]))
(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 *** ( )
(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 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 :))
(if (not fm) (setq fm *fm) (setq *fm fm))
(cond ((= fm q) (qs) (dfw) (qf))
((= fm z) (qs) (dfw) (***))
((= 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)
380亿美元收购恩智浦半导体公司有望获批
是三维激光扫描技术满足历史建筑测绘要求
用工业互联网技术创新各行业解决方案
PCB油墨的特性以及使用注意事项解析
氮化镓推动电源解决方案
化工工艺流程图阀门程序设计
用案例分析如何将客户需求转化为产品之一
Matter如何为家庭自动化带来变革
vivo X21深度评测:一流外观设计+超强配置
特斯拉降价深度解析：供需平衡仍为关键
STM32对于U盘访问的硬件/软件实现
手机投屏到电视的5种方法
S7-1500有关组态控制的重要信息简析
开关电源之非同步控制器的仿真
乐檬K12系列即将上市:配备6000mAh超大电池
中低压配电网自动化及PLC实现设计
Linux开发_Shell脚本编程语言
中国第一！浪潮信息存储装机容量连续9个季度折桂
人工智能助力下 智慧林业迎来了良好的发展时机
基于Sitara AM5749平台的ali-iot边缘网关的配置方法