维普资讯 http://www.77cn.com.cnNO 2 .
Fb20 e.05
机械设计与制造( m a d iep O 1 2; c m n￣ n 'l 1 0") o _ p ( adets s o) s d (n at s u; s l )t ( m a d i * 12p 0") c m n qn p 0 1 3; o e ( adets s o) s d (n at s u; s l )t ( m¨d e 0 1 4; c m n 13p 0") o ( adets so ) s d (n at s u; s l )t (o m n 14 p O '; cm¨d e 0 l l ) ( adets s o) s d (n at s u; s l )t ( m¨d i 15p 0") c m 1n 0 1 6; o e ( adets s o) s d (n a )s u; s lt t (o m n qn￣ 19p 1") cm a d i p 0 1 2; e ( adets so ) s d (n a )s u; s lt t (o m n l0 p l '; cm¨d e 1 l l )
一 5一 4
以用户拾取的端点为基准，计算其余各点坐标画出管法兰，见图6然后根据管头所处中心线的位置旋转管法兰到所需方向。。程序执行步骤流程如图 7示。所
图 5用户介面图
( adets s o) s d (n at s u; s l )t (o m n￣ n 2 1p 0"; cm a dl ep 0 2 2 ) i ( a d e t s)s u; s d (n at t ) s l so (o m n￣n '2 2 2 3; cm a dl ep 0 0") i p ( a d et s st ) s d (n at s u; s l ) o (o m n￣ n'2 3p 0"; cm a dl ep 0 2 4 ) i ( a d e t s) t ) s d (n a s o; s lt su (o m n q n#2 4p 0"; c m a d i p 0 2 1 ) e ( a d et s)s u; s d (n at t ) s l so (o m n q n#2 5 p 0"; cm a d i p 0 2 6 ) e (s d e t s l t ) s d (nl ts o; a a )s u (o m n￣ n*2 9p 1"; c m a dl ep 0 2 2 ) i
图 6管法兰示图管法兰完成函数源程序如下：
图 7程序流程图
(s d et s st ) s d (n at s u; a l ) o (o m n"n" 2 0p 1 ) cm a dl e 1 2 ; i p l (s d e t s st ) s d (nl t s u; a a) o ( m a da l le'Oa9 ) c m n∞ p l ep ''0; o ( adets so ) s d (n at s u; s l )t (o m n"r p " 'Oa9 ) cm a da" l 2e p *'0; c 1 e ( adets so ) s d (n at s u; s l )t )
(eu u/ 1 1 12p 0 14 p O 1 6p 0 1 8p 0 l 0 dfnt ( p 0 0 1 3p 0 l5p 0 1 7p 0 19 p o p 1 p l p 1 2 1 2 2p 0 2 4p 0 2 6p 0 2 0 p 1 2 2; l l 1 2p 0 0 2 3 p 0 2 5p 0 2 9p 1 2 lp 1 ) p (e (a p ); s qx cr O ) t ( t ( d ); s qy c r o ) e a p ( t p 0 ( s+ ( r ( d ) )一 ( r ( 32 ) ); s q 1 11 t x+ 3/ 32 ) ( y+l3★b ) ) ) e i( ( t p O ( s+ ( r ( d ) )一 ( r ( 32 ) ); s q l 2 1 t x一 3/ 32 ) ( Y+l3★b ) ) ) e i ( ( t p O ( s+ ( 3/ 32 ) ( Yl3 ); s q l 3 1 t x一r ( d ) )一 r ) ) e i( ( t p O ( s+ ( r ( d ) )一 r ) ) s q l 4 1t x+ 3/ 32 ) ( Yl3 ); e i( ( t p 0 ( s( x+ 3/ 32 ) ( Y+ r b ) ); s q l 5 1 t+ ( r ( d ) )一 ( l3 3 ) ) e i ( t p O ( s( x一 3/ 32 ) ( Y+ r b ) ); s q l 6 1t+ ( r ( d ) )一 ( l3 3 ) ) e i ( t p O ( s+x一 3/ O ) )一yl ) ) s q l 9 1t e i ( ( r ( d 32 ) ( r ); 3 ( t p l ( s+x+ 3/ 0 ) )一yI ) ) s q l O 1t e i ( ( r ( d 32 ) ( r ); 3 (e l l 1 t+ ( r ( d 32 ) Y ) s qp l ( s x+ 3/ 0 ) ) ); t i ( (e
l 2 1 t+ ( r ( d 32 ) y ) s qp 1 ( s x一 3/ 0 ) ) ); t i ( ( t 2 1 1 t一 ( 1 ( 32 ) ( y+ 3/ 32 ) ); s qp 0 ( s x+ r★b ) )+ ( r ( d ) ) ) e i( 3 (e 2 2 1 t一 ( r ( b ) ) y一 3/ 32 ) ); s qp 0 ( s x+l - 32 ) ( ( r ( d ) ) ) t i ( 3 k
5结束语该程序运用模块化设计思想开发，整个程序结构合理且易于维护。具有较强功能的人机交互对话窗口，用图形提示用户
选择实际参数，易学易用。该程序可作为管路设计、绘图的一个独立的模块，具有参数化绘图的功能，大大提高了绘图质量和效率，缩短了设计周期。本研究也为更复杂的管路参数化绘图系统的开发奠定了基础。
参考文献1学志 . u C D 00定制与 Vsa us李 A t A 20 o i l P开发技术 . u北京：大学清华出版社，00 1 20. 2道洁，守默 . u IP编程技巧及应用开发技术 .四川：都科陈伏 A t LS o成
(e 2 31t一 ( 3 ) y一 3/ 32 )); st p0 (s x+h )( ( r( d ) )) q i( (e 2 41t一 ( 3 )+ ( r( d ) )) s qp0 (s x+h )( y+ 3/ 32 )); t i(( t p 0 ( s一 ( 3 b ) ( y+ 3/ 32 ) ); s q 2 5 1 t x+h 3 )+ ( r ( d ) ) ) e i ( ( t p 0 ( s一 ( 3b ) ( y一 3/ 32 ) ); s q 2 6 1 t x+h 3 )+ ( r ( d ) ) ) e i (
技大学出版社，0 0 20 . 3曾刚，江东 . u I A t LS o P编程技巧与实用程序 .四川： J大学出版社， Il￣ ll9. 9 6
( t p 0 (s一 ( 3 ) y一 3/ O )) ) s q 2 91t x+h ) ( ( r( d 32 ) ); e i( ( t p 1( s一x+ 3 )+y+ 3/ O ) )) s q 20 1t e i ( ( h ) ( ( r( d32 ) ); ( t p 1( sx+ ( r( d32 )); s q 2 11 ( y+ 3/ 0 ) )) e i t ( t 22 1t ( Y一3/ o ) )) s q 1(s x ( r( d32 ) ); e p i ( t s o (sd ); sq sus d) e t a
4郭朝勇 . u A 1二次开发
技术 .京：华大学出版社，9 9 At C DR4 o北清 19 . 5韬 . u C D 00高级应用技巧 .学出版社，00刘 A t A 20 o科 20 .
6郭剑峰，,陈杉王宁 . Vsa LS用 i l IP开发 A t A 00应用程序 . u uo D2 0 C人民邮电出版社，0 0 20 .