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

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

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

4、度ang2;（7）過渡坐標系workcsys的Z軸和坐標系fincsys的Z軸生成另一過渡坐標系chancsys，并在此坐標系下沿Z軸將過渡實體ent2旋轉ang2角度，最終生成實體copyent。三、具體操作步驟(1)在C盤下新建名為grip的文件夾Windows7_OS(C:J包含到庫中-共享rgrip(2)在Windows環(huán)境下，依次單擊【開始】【程序】UnigraphicsNX6.0UnigraphicsToolsUGOpenGRIP來調用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ā)$主程序，調用的子程序：set-wcs,anglf。$實體變量和數組變量聲明。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$調用子程序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$調用子程序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分別旋轉ang1角度，生成過渡$實體ent2和過渡坐標系workcsys。l70:chancsys=csys/ln1,ln4&wcs=chancsysmat1=matrix/xyrot,ang1ent2=transf/mat1,ent1workcsys=t

10、ransf/mat1,movecsys$調用子程序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旋轉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$程序結束trm:halt$子程序anglf,用于計算兩條擁有共同端點的直線之間的夾角。$輸入參數：lnl,ln2。$輸出參數：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，用于確定坐標系。調用的子程序orient-line。$輸入參數：無。$輸出參數：rc,workcsys。$輸入文件：無。$輸出文件：無。$實體變量和數組變量聲明。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,用于確定直線的方向。$輸入參