亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

        大型橢圓形封頭放樣圖參數化繪圖的Lisp實現(xiàn)

        2013-06-07 05:51:12胡志剛胡煒
        關鍵詞:公稱橢圓形封頭

        胡志剛,胡煒

        (1.河南科技學院,河南新鄉(xiāng)453003;2.貴州電子信息職業(yè)技術學院,貴州凱里556000)

        大型橢圓形封頭放樣圖參數化繪圖的Lisp實現(xiàn)

        胡志剛1,胡煒2

        (1.河南科技學院,河南新鄉(xiāng)453003;2.貴州電子信息職業(yè)技術學院,貴州凱里556000)

        研究了大尺寸標準橢圓形EHA封頭分瓣放樣圖參數化繪圖的尺寸計算、繪圖原理和方法.根據公稱直徑、頂圓直徑、分瓣數等初始尺寸參數,給出繪制分瓣放樣圖所需要的展開半徑等關鍵計算公式,自動計算展開圖圓弧半徑、各個圓弧的起訖點、圓弧法向距離等其他尺寸和參數;完成了基于AutoLisp及DCL語言的封頭放樣圖的對話框參數輸入界面的設計、封頭展開圖參數化繪圖二次開發(fā)的程序設計方法,并進行實例驗證.

        橢圓形封頭;放樣圖;分瓣;Lisp程序

        封頭是壓力容器上的端蓋,也是主要承壓部件.標準橢圓形封頭的使用極其廣泛,目前許多封頭生產都分布在一些小型企業(yè)當中.在封頭生產過程中需要繪制放樣圖和展開圖,由于橢圓形封頭是標準件,其主要尺寸有公稱直徑DN(EHA型為內徑Di,EHB型為Do),封頭總高度(EHB)或總深度(EHA)H,直邊高度h和名義厚度δn,因此開發(fā)一個基于AutoCAD的封頭放樣圖的自動參數化繪圖命令,對小企業(yè)的封頭設計生產具有實際意義.

        在封頭制造過程中,一般采用整體沖壓旋壓成型,但是對于直徑超過4 000 mm的封頭往往要進行分瓣制造,然后焊接成型.在封頭設計和制造過程中,不同尺寸的大型封頭的分瓣下料放樣圖的繪制是一項繁復的工作,依據一定的分瓣計算方法,利用AutoCAD的二次開發(fā)方法,實現(xiàn)大尺寸封頭分瓣下料圖的參數化設計,將大大提高設計與制圖效率,節(jié)省設計時間和成本.本文就標準橢圓形封頭的分瓣放樣圖的繪圖,介紹一種采用Lisp語言開發(fā)的參數化設計與繪圖命令的實現(xiàn)方法,它對于其他不同類型大型封頭分瓣下料圖的參數化繪制也具有普遍的意義.

        1 封頭瓜瓣展開圖的尺寸參數計算

        要實現(xiàn)封頭放樣圖的自動繪圖,必須給出一些必要的尺寸和參數,下面是標準橢圓形封頭的初始尺寸和參數:公稱直徑DN,頂圓直徑d,分瓣數n,封頭鋼板厚度δ,直邊高度h,加工余量e等,如圖1所示.

        圖1 標準橢圓形封頭的初始尺寸Fig.1 Initial dimensions of standard elliptical head

        基于上述給定的參數,要繪制放樣圖,還要計算出以下一些必要的尺寸參數,它們是封頭橢圓回轉面上分段緯線圓高度Hi,如圖1所示,瓣片展開圖展開半徑Ri,封頭橢圓回轉面上相鄰緯線圓的法向弧長距離Li和各展開圓弧的弧長Ai等,如圖2所示.

        圖2 計算出的尺寸Fig.2 Calculated dimensions

        1.1 瓣片展開圖展開半徑Ri

        在橢圓形封頭曲面上,在對應公稱直徑DN的大圓和頂圓之間按一定的弧長間距劃定k-1個圓,把曲面劃分為k個曲面段,這k-1個圓的大圓直徑為Di,各個大圓所對應的高度為Hi,底圓(公稱直徑為DN)高度為H0,頂圓高度為Hk,對每個分段大圓按切于該大圓法向圓弧的圓錐面進行展開,其展開半徑用Ri表示(見圖1和圖2),經計算得:

        1.2 兩點間弧長間距Li

        設橢圓上任一點到象限點的弧長為li,如圖3所示.

        圖3 橢圓弧長LiFig.3 Elliptical arc length Li

        根據勒讓德積分計算公式

        展開圖中相鄰兩圓弧中點間距為Li,如圖2所示,其計算公式為

        1.3 展開圖中的弧長Ai

        弧長如圖2所示,其計算公式為

        式(3)中:Di為直徑,δ為厚度,e為余量,i=1,2,…,k.

        2 Lisp程序設計

        建立一個基于對話框的基本尺寸參數輸入界面,輸入基本尺寸參數后,程序執(zhí)行標準橢圓形封頭瓣片展開圖的繪制,自動計算出所需尺寸和參數,并以更新或追加方式保存在一個Exel數據文件中.本程序包括定義尺寸參數輸入對話框的DCL語言代碼和lisp程序段.Lisp程序包括尺寸參數計算、對話框初始化和繪圖三部分,其程序框圖如圖4所示.

        圖4 放樣圖的lisp程序Fig4 Lisp programme diagram of mould lofting

        計算展開半徑的lisp程序段為:

        ;;;work out Radius

        (setqi 0 n 0.0 n_n 0.0 R_list'())

        (repeat 12

        (setq n_n(nth i D_list)

        n(nth i H_list)

        (setq Ri(/n_n 2.0(sin(atan(/(-(*4.0(expt n_n 2))(expt(-l_dia(*4.0 n))2))(*4.0 n_n(-l_dia(*4.0 n)))))))

        (set_tile(strcat"rd"(itoa i))(rtos Ri 2 2));為12個圓弧顯示其值

        (setq R_list(cons Ri R_list)i(1+i))

        (setq R_list(reverse R_list))

        (terpri)

        (print R_list)

        繪制各展開半徑的lisp程序段為:

        (setq Ri(car R_list))

        (command"-layer""set"0"color"7"""")

        (command"-color""bylayer")

        (setq Hi(/(*297.0(*4.0(last pnt_list)))420.0))

        (command"limits"'(0 0)(list(*4.0(last pnt_list))Hi))

        (command"grid"(fix(/(*4.0(last pnt_list))40.0))"")

        (setq dmscale(/(*2.0 Ri)420.0)bscale(/(*4.0(last pnt_list))420.0));尺寸標注比例

        (command"erase""all""")

        (command"zoom""all""")

        (setq pt0(list(*1.5(last pnt_list))(*0.75 Hi)))

        (command"osnap""off""")

        (setq agl(*0.5(/(car L_list)Ri)))

        (command"arc"pt0"C"(list(car pt0)(-(cadr pt0)(car R_list)))"angle"(RtoD agl)"")

        (setq pt1(list(car pt0)(+(cadr pt0)straight_edge)))

        (command"arc"pt1"C"(list(car pt1)(-(cadr pt1)(car R_list)))"angle"(RtoD agl)"")

        (setq pt1(polar(list(car pt0)(-(cadr pt0)(car R_list)))(+(/pi 2.0)agl)Ri));第2圓弧左端點

        (setq pt03(osnap pt1"mid"))

        (setq pt00(list(car pt1)(+straight_edge(cadr pt1))));第1圓弧左端點

        (setq pt01(polar(list(car pt0)(-(cadr pt0)(car R_list)))(-(/pi 2.0)agl)Ri))

        (setq pt01(list(car pt01)(+(cadr pt01)straight_edge)))

        (setq ptt_list'())

        (setq ptt_list(cons pt00 ptt_list))

        (setq ptt_list(cons pt1 ptt_list));形成端點表

        (setq i 0)

        (repeat 11

        (setq pti(list(car pt0)(-(cadr pt0)(nth i pnt_list))))

        (setq agl(*0.5(/(nth(1+i)L_list)(nth(1+i)R_list))))

        (command"arc"pti"C"(list(car pti)(-(cadr pti)(nth(1+i)R_list)))"angle"(RtoD agl)"")

        (setq pt1i(polar(list(car pti)(-(cadr pti)(nth(1+i)R_list)))(+(/pi 2.0)agl)(nth(1+i)R_list)))

        (setq ptt_list(cons pt1i Ptt_list))

        (setq i(+i 1)))

        (setq pt1i(osnap pti"mid"))

        (command"spline")

        (foreach pt2 ptt_list(command pt2))

        (command"""""")

        (command"mirror""all"""pt0 pti"no""")

        (command"line"pt0 pti"")

        3 實例驗證

        以下是繪制公稱直徑為7 300 mm,頂圓直徑5 500 mm,分瓣數是12,厚度71 mm,加工余量50 mm的標準橢圓形封頭瓣片的展開圖,在AutoCAD繪圖界面中執(zhí)行“封頭展開圖”菜單項或者在命令行中輸入“head”命令,顯示出參數輸入對話框,如圖5所示,輸入上述尺寸和參數后,自動繪制出帶有圖框標題欄的展開圖,展開圖如圖6所示.

        圖5 初始尺寸參數輸入對話框Fig.5 Dialog box of initial dimensions and parameters’entry

        圖6 公稱直徑為7 300的封頭瓣片F(xiàn)ig.6 Head section development for nominal diameter 7 300

        分瓣放樣圖程序經過某封頭生產企業(yè)在大型標準橢圓形封頭設計過程中應用,得到的數據穩(wěn)定可靠,自動生成的圖樣與設計人員按設計要求繪制的原始圖樣進行比較,尺寸和形狀相同,滿足參數化設計與繪圖的需要.

        4 小結

        利用該參數化繪圖應用程序進行大型標準橢圓封頭的瓣片設計和繪圖,滿足標準橢圓形封頭不同尺寸的分瓣圖的設計繪圖要求,并實現(xiàn)了將設計數據以更新或追加方式自動寫入Excel數據文件的功能.除此之外,該應用程序的開發(fā)方法和步驟,對其他類型封頭的參數化設計與繪圖軟件的二次開發(fā)也具有普遍意義.據此,可以以AutoCAD作為平臺,開發(fā)出橢圓形、蝶形、球形等諸多類型封頭設計與繪圖的分系統(tǒng),從而大大提高封頭設計及繪圖效率,節(jié)省生產時間和成本.

        [1]胡志剛.基于AutoCAD的橢圓形封頭圖樣參數化繪圖命令的二次開發(fā)[J].河南科技學院學報:自然科學版,2012,40(2):59-62.

        [2]孫新銘.設計與工藝實用數學講座第三講橢圓封頭[J].機械工藝師,1996(9):31-33.

        [3]張淑蓮.標準橢圓封頭瓣片的計算[J].石油化工設備,1995,24(3):42-44.

        [4]朱軍,王金環(huán),劉宏莉,等.特大型橢圓封頭的分瓣計算[J].化工設備與管道,2001,38(5):19-20.

        [5]陸博福,陸平.非標準橢圓及標準橢圓型封頭沖壓展開下料尺寸的計算[J].壓力容器,2008,25(6):56-58.

        [6]張盧偉,顧守巖,陳瑩.橢圓封頭展開計算方法論述和對比分析[J].遼寧化工,2009,38(11):809-810.

        [7]國家經濟貿易委員會.JB/T4746-2002鋼制壓力容器用封頭[S].北京:中國標準出版社,2002.

        (責任編輯:盧奇)

        Lisp programming of parametric drawing of large standard elliptical heads'mould lofting

        Hu Zhigang1,Hu Wei2
        (1.Henan Institute of Science and Technology,Xinxiang 453003,China;2.Guizhou Vocational Technical Collage of Electronic Information,Kaili 556000,China)

        Dimension calculation,drawing principle and method of parametric drawing of large sized standard elliptical EDA heads'mould lofting are delivered.Arc radii formula needed for sectional heads'development drawing are derived of nominal and top circle diameters,petal number and other initial parameters.In drawing the arc radii of head development,arc start points&end points,arc normal distances and other parameters are calculated automatically.On the basis of Autolisp and DCL a dialogue box of basic parameters&dimensions input is designed, programming method of head development drawing is given along with two key programme lists attached,and a verification for this command application running is made.

        elliptical head;mould lofting;head petal;lisp programme

        TP391.7

        A

        1008-7516(2013)05-0053-05

        10.3969/j.issn.1008-7516.2013.05.013

        2013-07-25

        胡志剛(1962-),男,江西進賢人,副教授.主要從事機械設計、CAD及工程圖學研究.

        猜你喜歡
        公稱橢圓形封頭
        ◆鋼筋混凝土排水管
        鋼筋混凝土排水管
        ◆ 鋼筋混凝土排水管
        建筑與預算(2022年5期)2022-06-09 00:55:30
        閱讀理解專練(四)
        橢圓弧加圓弧型封頭最小有效厚度計算公式論證
        蜜蜂
        封頭開裂失效分析
        大型鑄鍛件(2015年5期)2015-12-16 11:43:22
        為什么有的人天生是卷發(fā)?
        一對百葉封頭注塑模具設計
        中國塑料(2014年5期)2014-10-17 03:02:16
        u 鋼筋混凝土排水管
        免费无码中文字幕a级毛片| 国产一级自拍av播放| 日韩av在线不卡一区二区| 99在线精品免费视频| 国产成人综合亚洲精品| 97福利视频| 日本加勒比一道本东京热| 中文字幕一区二区三区视频| 亚洲第一页综合图片自拍| 91福利国产在线观看一区二区| 亚洲午夜久久久精品国产| 一区二区三区中文字幕在线播放| 亚洲欧美日韩另类精品一区| 久久中文精品无码中文字幕| 欧美亚洲尤物久久综合精品| 中文字幕高清视频婷婷| 久久精品国产99久久无毒不卡| 国产成人综合亚洲精品| 国产成年无码久久久免费| 美国黄色av一区二区| 一本色道久久88加勒比—综合| 亚洲欧美日本| 深夜福利国产| 国产白色视频在线观看| 国产精品爽爽v在线观看无码| 色老头一区二区三区| 超短裙老师在线观看一区二区| 中文字幕在线乱码一区| 午夜成人鲁丝片午夜精品| 国产系列丝袜熟女精品视频| 日韩精品人妻一区二区三区蜜桃臀| 久久久亚洲欧洲日产国码二区 | 久久午夜伦鲁片免费无码| 一区二区三区国产美女在线播放| 丰满老熟女性生活视频| 亚洲av综合a色av中文| 国产成人精品精品欧美| 久久精品日韩免费视频| 国产熟妇疯狂4p交在线播放| 99re久久精品国产| 中文乱码字幕在线中文乱码|