设为首页
收藏本站
登录
|
[加入论坛]
开启辅助访问
切换到窄版
站内搜索
首页
BBS
化工技术网- 赠人玫瑰 手有余香
»
首页
›
≡供配电、输发电、自控、公用、制图专区≡
›
『 化工制图 』
›
化工工艺流程图阀门程序设计
返回列表
查看:
2636
|
回复:
2
[分享]
化工工艺流程图阀门程序设计
[复制链接]
gy4444
当前离线
狗仔卡
gy4444
发表于 2009-3-28 19:13
|
显示全部楼层
|
阅读模式
化工工艺流程图阀门程序设计
本帖子中包含更多资源
您需要
登录
才可以下载或查看,没有账号?
[加入论坛]
x
回复
使用道具
举报
提升卡
置顶卡
沉默卡
变色卡
SCLP2008
当前离线
狗仔卡
SCLP2008
发表于 2009-3-30 13:29
|
显示全部楼层
化工工艺流程图阀门程序设计
提要:本文针对化工工艺流程图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
回复
支持
反对
使用道具
举报
qyf
当前离线
狗仔卡
qyf
发表于 2009-3-30 15:27
|
显示全部楼层
这是我多年前发表的一个小程序(刚起步时),没想到在这里见面了。
回复
支持
反对
使用道具
举报
返回列表
高级模式
B
Color
Image
Link
Quote
Code
Smilies
您需要登录后才可以回帖
登录
|
[加入论坛]
本版积分规则
发表回复
回帖后跳转到最后一页
化工技术网- 赠人玫瑰 手有余香
(
苏ICP备14035884号
)
快速回复
返回顶部
返回列表