基于GRIP語言的UG二次開發(fā)

1、模具設計及UG二次開發(fā)課程作業(yè)之二次開發(fā)基于GRIP語言的UG二次開發(fā)一、總述UG/OpenGRIP是UG軟件包中的一個重要模塊，是EDS公司提供的用于UG二次開發(fā)的軟件工具。GRIP語言具備完整的語法規(guī)則、程序結(jié)構(gòu)、內(nèi)部函數(shù)、GRIP程序必須經(jīng)過編譯、連接、生成可執(zhí)行文件之后才能運行。利用GRIP程序能夠?qū)崿F(xiàn)與Unigraphicsde各種交互操作，例如幾何體的創(chuàng)建、文件的管理、系統(tǒng)參數(shù)的控制、UG數(shù)據(jù)庫的存取等。與其他二次開發(fā)語言相比，GRIP具備簡單易學、交互性能強的優(yōu)點。GRIP語言是面向工程師的語言，它不需要具備專業(yè)的編程知識，但必須具備一定程度的三維建?；A。通過GRIP編程，用戶

2、將專業(yè)知識與Unigraphics系統(tǒng)融合，就能更好地發(fā)揮Unigraphics軟件的功能。在本次的開發(fā)設計中將運用GRIP語言編程實現(xiàn)UG中的實體復制。在三維造型過程中，有時需要將某個實體從一個坐標系復制到另一個坐標系，實體在兩個坐標系中的相對位置相同。利用UG命令執(zhí)行此操作的步驟十分繁瑣，因此若能將這一過程實現(xiàn)程序化，則將大大提供三維造型的效率。但GRIP語言只提供實體平移、實體沿某個坐標軸旋轉(zhuǎn)的函數(shù)，因此此程序的難點在于如何確定實體在坐標系中的旋轉(zhuǎn)角度和旋轉(zhuǎn)方向才能實現(xiàn)其在此坐標系中的相對位置與原始坐標系的相對位置保持一致。二、程序的編程步驟（1）首先選擇需要復制的實體pickent;（

3、2）然后選擇新坐標系的原點和坐標軸的確定方式；（3）將實體pickent和原始坐標系precsys平移到新坐標系fincsys的原點cenpt,生成過渡實體ent1和過渡坐標系movecsys;（4）計算過渡坐標系movecsys的X軸和坐標系fincsys的X軸之間的角度ang1;（5）過渡坐標系movecsys的X軸和坐標系fincsys的X軸生成過渡坐標系chancsys，并在此坐標系下沿Z軸將過渡實體entl和過渡坐標系movecsys分別旋轉(zhuǎn)ang1角度，生成過渡實體ent2和過渡坐標系workcsys;（6）計算過渡坐標系movecsys的Z軸和坐標系workcsys的Z軸之間的角

4、度ang2;（7）過渡坐標系workcsys的Z軸和坐標系fincsys的Z軸生成另一過渡坐標系chancsys，并在此坐標系下沿Z軸將過渡實體ent2旋轉(zhuǎn)ang2角度，最終生成實體copyent。三、具體操作步驟(1)在C盤下新建名為grip的文件夾Windows7_OS(C:J包含到庫中-共享rgrip(2)在Windows環(huán)境下，依次單擊【開始】【程序】UnigraphicsNX6.0UnigraphicsToolsUGOpenGRIP來調(diào)用GRIP開發(fā)環(huán)境。(3)進入GRIP開發(fā)環(huán)境界面SIEMENS浄盍中iMllffiffibi-UXW牯戎ETMIE柱她URli號歸U師臼S5口回卻M

5、Ho咖亠曲士號曲士十亠*!LlOAnsinvIuqitmclnEhnunnIDliLHDitebA刊Access=7J30W574WLlLIHIIC.Il18Js：ghllEbianehArwtgjETUSHA.LO/SjGl-翔越丨凰丨1丨丨翦|四、程序源代碼$模具設計及UG二次開發(fā)課程作業(yè)之二次開發(fā)$主程序，調(diào)用的子程序：set-wcs,anglf。$實體變量和數(shù)組變量聲明。entity/pickent,cenpt,precsys,fincsys,copyent,pt(3)entity/ent1,ent2,movecsys,chancsys,chancsys,workcsysentity/

6、ln1,ln2,ln3,ln4,ln5,ln6,ln7entity/stpt1,endpt1,stpt2,endpt2number/a(3),mat1(12),b(3),c(7)$確定原始坐標系實體precsysl10:pt(1)=point/0,0,0blank/pt(1)pt(2)=point/1,0,0blank/pt(2)pt(3)=point/0,1,0blank/pt(3)precsys=csys/pt(1),pt(2),pt(3)delete/pt(1.3)$選擇需要復制的實體pickentl20:ident/selecttheentitytocopy,pickent,respj

7、ump/l20:,trm:,resp$確定新坐標系的原點。l30:gpos/pickoriginpointofthenewcoordinate,x,y,z,respjump/l30:trm:,resp$調(diào)用子程序fincsys確定新坐標系實體fincsys。l40:cenpt=point/x,y,zblank/cenptcall/set-wcs,rc,fincsysif/rc=-1,jump/l40:fincsys=csys/fincsys,origin,cenpt$將實體pickent和原始坐標系precsys平移到新坐標系fincsys的原點cenpt,生成過渡實體$ent1和過渡坐標系m

8、ovecsys。l50:&wcs=precsysa(1.3)=&point(cenpt)mat1=matrix/transl,a(1.3)ent1=transf/mat1,pickentmovecsys=transf/mat1,precsys$調(diào)用子程序anglf計算過渡坐標系movecsys的X軸和坐標系fincsys的X軸之間的角度$angl。l60:&wcs=movecsysln1=line/0,0,0,2,0,0blank/ln1ln2=line/0,0,0,0,4,0blank/ln2ln3=line/0,0,0,0,0,6blank/ln3ln4=line/0,0,0,8,0,0b

9、lank/ln4ln5=line/0,0,0,0,10,0blank/ln5ln6=line/0,0,0,0,0,12blank/ln6call/anglf,ln1,ln4,ang1$過渡坐標系movecsys的X軸和坐標系fincsys的X軸生成過渡坐標系chancsys,并在此$坐標系下沿Z軸將過渡實體ent1和過渡坐標系movecsys分別旋轉(zhuǎn)ang1角度，生成過渡$實體ent2和過渡坐標系workcsys。l70:chancsys=csys/ln1,ln4&wcs=chancsysmat1=matrix/xyrot,ang1ent2=transf/mat1,ent1workcsys=t

10、ransf/mat1,movecsys$調(diào)用子程序anglf計算坐標系fincsys的Z軸和過渡坐標系workcsys的Z軸之間的角度$ang2。l80:&wcs=workcsysln7=line/0,0,0,0,0,14blank/ln7call/anglf,ln6,ln7,ang2$過渡坐標系workcsys的Z軸和坐標系fincsys的Z軸生成另一過渡坐標系chancsys,并在$此坐標系下沿Z軸將過渡實體ent2旋轉(zhuǎn)ang2角度,最終生成實體copyent。l90:chancsys=csys/ln7,ln6&wcs=chancysmat1=matrix/xyrot,ang2l100:d

11、elete/ln1,ln2,ln3,ln4,ln5,ln6,ln7delete/ent1,ent2&wcs=fincsysubnum=&blank(copyent)if/ubnum=1,unblnk/copyent$程序結(jié)束trm:halt$子程序anglf,用于計算兩條擁有共同端點的直線之間的夾角。$輸入?yún)?shù)：lnl,ln2。$輸出參數(shù)：ang。$輸入文件：無$輸出文件：無$proc/lnl,ln2,angentity/lnl,ln2,ptl,pt2,pt3number/a(3),b(3),c(3)ll0:ptl=point/intof,lnl,ln2a(l.3)=&point(ptl)l2

12、0:b(l.3)=&spoint(lnl)c(l.3)=&epoint(lnl)ifthen/a(l)=c(l)anda(2)=c(2)anda(3)=c(3)pt2=point/b(l.3)elseif/a(l)=b(l)anda(2)=b(2)anda(3)=b(3)pt2=point/c(l.3)elsejump/trm:endifl40:disl=distf(ptl,pt2)dis2=distf(ptl,pt3)dis3=distf(pt3,pt2)l50:arg=(disl*disl+dis2*dis2-dis3*dis3)/(2*disl*dis2)ang=acosf(arg)de

13、lete/ptl,pt2,pt3trm:return$子程序set-wcs，用于確定坐標系。調(diào)用的子程序orient-line。$輸入?yún)?shù)：無。$輸出參數(shù)：rc,workcsys。$輸入文件：無。$輸出文件：無。$實體變量和數(shù)組變量聲明。pro/rc,workcsysentity/pnt1,pnt2,pnt3entity/ln1,ln2entity/cir1entity/entcsysentity/workcsysnumber/pt1(3),pt2(3),pt3(3),cp(3),resp,rcrc=-1$選擇坐標系確定方式：三個點、兩條直線、圓或圓弧、坐標系平面rjt010:choose/選

14、擇確定工作坐標系的方法，三個點，兩條直線，$圓或圓弧，坐標系平面，respjump/rjt010:term:,two020:,arc030:,csy050:,resp$三個點確定坐標系rjt020:gpos/提取第一個點,ptl,respjump/rjt020:,term:,resprjt030:gpos/提取第二個點，pt2,respjump/rjt020:,term:,resprjt040:gpos/提取第三個點，pt3,respjump/rjt030:,term:,resprjt050:pntl=point/ptlpnt2=point/pt2pnt3=point/pt3workcsys=

15、csys/pntl,pnt2,pnt3&wcs=workcsysdelete/pntl,pnt2,pnt3rc=1jump/term:$兩條直線確定坐標系two020:mask/3ident/選擇第一條直線,lnl,cursor,cp,member,off,respcall/orient-line,ln1,cpjump/two020:,term:,resptwo030:ident/選擇第二條直線，ln2,cursor,cp,member,off,respcall/orient-line,ln2,cpjump/two020:,term:,respworkcsys=csys/lnl,ln2&wcs

16、=workcsysrc=ljump/term:$圓或圓弧生成坐標系。arc030:mask/5,6ident/選擇圓或圓弧,cir1,respjump/arc030:,term:,respworkcsys=csys/cir1&wcs=worksrc=1jump/term:$選擇存在的坐標系csy050:mask/45ident/選擇存在的坐標系,entcsys,respjump/csy050:,term:,respcsy060:if/&type(entcsys)45,jump/csy050:workcsys=csys/entcsys&wcs=workcsysrc=1jump/term:$程序返回。term:mask/allreturn$子程序orient-line,用于確定直線的方向。$輸入?yún)?/p>