ug opengrip 簡明教程 含编程语言

1、UG Open/Grip 簡明教程$ 注釋$ Grip啟動和編譯：先找到UG的安裝路徑，如C:Program FilesEDSUnigraphics NX。$ 進入該路徑下的UGOPEN目錄，找到grade.bat檔，打開它，將環境變數base_dir$ 設置成set base_dir=C:Program FilesEDSUnigraphics NX，保存並運行。$ Grip程式的編寫和編譯：在Grip的運行程式中，鍵入4，將你編寫的Grip程式所在的目$ 錄寫入並回車。在Grip的運行程式中，鍵入1，寫入新建Grip程式的檔案名並回車,此時$ Grip會打開寫字板，你可以在其中寫入你的程式。在Grip的運行程式中，鍵入2，寫入$ 所編譯的檔案名，編譯無錯後，鍵入3，寫入所鏈結的檔案名，鏈結無錯後完成。$ 你所編寫的Grip程式保存成*.grs檔，編譯後Grip會生成*.gri檔，鏈結後Grip會$ 生成*.grx檔，此檔為Grip的運行檔。$ Grip程式的運行：打開UG，點擊File-Execute-Grip，選擇*.grx檔，就可運行它。$ 編譯時應先編譯子函數檔，生成*.gri

2、，子函數檔不需要鏈結，此時再編譯主函數$ 檔，生成*.gri，最後鏈結成*.grx。$ Grip主函數檔必須以HALT結束，Grip子函數檔必須以RETURN結束。$ 定義的變數不能超過6個字元，Grip會認為Point_1和Point_2是同一個變數。$ 一行不能超過80個字元，若超過，可用$符號來換行。$ Grip不區分大小寫，也就是Grip會認為POINT和point都是畫點函數，但是我建議Grip$ 的函數名和關鍵字用大寫，用戶定義的變數用小寫。但是用戶定義的變數不能和Grip的$ 函數名和關鍵字重名。$ Grip的幫助檔在C:EDSUnigraphics NXUGDOChtml_filesmainlibrary.chm$ OpenGRIP Reference Guide下。一個簡便的Grip函數查找方法：打開.Word &$ Symbol ListsMajor Word List，根據首字母來查函數。HALT $結束語$ 注釋ENTITY/p,l,c $ 實體變數定義NUMBER/i,f(5) $ 數值變數定義STRING/str(10) $ 字串變數定義p=POINT/0,

3、0,0 $ 畫點l=LINE/0,0,0,1,1,1 $ 畫線c=CIRCLE/CENTER,p,RADIUS,1 $ 畫圓HALT $結束語注釋ENTITY/p(3)NUMBER/a(3),b(3,3)DATA/b,1,2,3,4,5,6,7,8,9 $ 給b向量賦值a(1.3)=b(1,1.3) $ 讓a向量等於b向量中的第一個值p(1)=POINT/a(1.3)p(2)=POINT/b(2,1.3)p(3)=POINT/b(3,1.3)HALT $結束語$ 注釋STRING/str1(100) $ 定義字串str1=Hello World $ 為字串賦值MESSG/str1 $ 顯示字串HALT $結束語$ 注釋$ +, -, *, /, *, = $ 運算函數$ SQRTF,LOGF,ABSF,INTF,MODF,MINF,MAXF,SINF,COSF,ASINF,ACOSF,ATANF $ 數學函數$ $ 換行符NUMBER/aa=SINF(30)MESSG/FSTR(a)HALT $結束語$ 注釋NOTE/0,0,LABEL1 $ 往UG顯示區列印文字PRINT/LABEL

4、2 $ 往INFOMATION列印文字MESSG/LABEL3 $ 往資訊框列印文字HALT $結束語$ 注釋STRING/str1(100),str2(100)NUMBER/strlenstr1=abcdefghijklmnstr2=SUBSTR(str1,2,5) $ 取字元strlen=LENF(str1) $ 取字串長度PRINT/FSTR(3.14) $ 浮點型轉換為字串PRINT/ISTR(strlen) $ 整型轉換為字串PRINT/str2HALT $結束語$ 注釋NUMBER/a(3),b(3),c,d(3),e,f(3),g(3)DATA/a,1,2,3DATA/b,4,5,6c=DOTF(a,b) $ 向量點乘d=CROSSF(a,b) $ 向量叉乘e=VLENF(a) $ 取向量模f=SCALVF(10,a) $ 向量數乘g=UNITF(a) $ 向量歸一化PRINT/FSTR(c)PRINT/FSTR(d(1)+,+FSTR(d(2)+,+FSTR(d(3)PRINT/FSTR(e)PRINT/FSTR(f(1)+,+FSTR(f(2)+,+FSTR(f(3)

5、PRINT/FSTR(g(1)+,+FSTR(g(2)+,+FSTR(g(3)HALT $結束語$ 注釋ENTITY/c1,c2,l1ENTITY/p1,p2,p3,p4,p5,p6,p7,p8c1=CIRCLE/CENTER,(POINT/1,0,0),RADIUS,1c2=CIRCLE/CENTER,(POINT/2,0,0),RADIUS,1l1=LINE/0,0,0,-1,0,0p1=POINT/CENTER,c1 $ 取圓心p2=POINT/YLARGE,INTOF,c1,c2 $ 取沿y方向最大的交點p3=POINT/YSMALL,INTOF,c1,c2 $ 取沿y方向最小的交點p4=POINT/(POINT/0,-1,0),INTOF,c1,c2 $ 取離(POINT/0,-1,0)點最近的點p5=POINT/p1,VECT,(LINE/p2,p3),YLARGE,2 $ 使p1點沿著p2p3向量往y最大方向偏移2p6=POINT/c1,ATANGL,45 $ 取圓45度角點p7=POINT/p1,DELTA,-2,-2,0 $ 使p1點偏置(-2,-2,0)p8=POI

6、NT/ENDOF,XSMALL,l1 $ 取l1線的端點HALT $結束語$ 注釋ENTITY/cENTITY/ln1,ln2,ln3,ln4,ln5,ln6,ln7c=CIRCLE/CENTER,(POINT/0,0,0),RADIUS,1ln1=LINE/0,0,0,1,0,0ln2=LINE/PARLEL,ln1,YLARGE,1 $ 沿y最大方向平行於ln1線偏置1ln3=LINE/PARLEL,ln1,YSMALL,TANTO,c $ 沿y最小方向平行於ln1和c圓相切ln4=LINE/(POINT/0,0,0),ATANGL,45 $ 過(0,0,0)畫45度線ln5=LINE/(POINT/2,0,0),RIGHT,TANTO,c $ 過(2,0,0)切c圓(右手邊)ln6=LINE/(POINT/0,0,0),PARLEL,ln5 $ 過(0,0,0)平行ln5線ln7=LINE/(POINT/0,0,0),PERPTO,ln5 $ 過(0,0,0)垂直ln5線HALT $結束語$ 注釋ENTITY/c1,c2,c3,c4,c5,c6c1=CIRCLE/CENTER,(

7、POINT/0,0,0),RADIUS,1 $ 過圓心和半徑畫圓c2=CIRCLE/CENTER,(POINT/0,0,0),TANTO,(LINE/2,0,0,2,2,0),START,0,END,90 $ 過圓心與線相切起始角終止角c3=CIRCLE/CENTER,(POINT/0,0,0),(POINT/3,0,0) $ 過圓心和點c4=CIRCLE/(POINT/4,0,0),(POINT/0,4,0),(POINT/-4,0,0) $ 過三點畫圓HALT $結束語$ 注釋NUMBER/p(5,3)ENTITY/spDATA/p,0,0,0,1,1,0,2,4,0,3,9,0,4,16,0sp=SPLINE/(POINT/p(1,1.3),(POINT/p(2,1.3),(POINT/p(3,1.3),$ (POINT/p(4,1.3),(POINT/p(5,1.3) $ 過點畫多樣條曲線(不封閉)sp=SPLINE/CLOSED,(POINT/p(1,1.3),(POINT/p(2,1.3),$ (POINT/p(3,1.3),(POINT/p(4,1.3),(POINT/p

8、(5,1.3)$ 過點畫多樣條曲線(封閉)HALT $結束語$ 注釋ENTITY/ln(4)ENTITY/sph1,sph2,block1,cone1,cone2,cyl1,solid1,solid2sph1=SPHERE/CENTER,(POINT/0,0,0),RADIUS,1 $ 畫球sph2=SPHERE/(CIRCLE/CENTER,(POINT/0,0,0),RADIUS,2) $ 畫球block1=SOLBLK/ORIGIN,2,2,2,SIZE,1,1,1 $ 畫方塊cone1=SOLCON/ORIGIN,3,3,3,HEIGHT,1,DIAMTR,1,0 $ 畫圓錐cone2=SOLCON/ORIGIN,4,4,4,HEIGHT,1,DIAMTR,1,0.5,AXIS,1,0,0 $ 畫圓臺 cyl1=SOLCYL/ORIGIN,5,5,5,HEIGHT,1,DIAMTR,1 $ 畫圓柱ln(1)=LINE/0,0,0,1,0,0ln(2)=LINE/1,0,0,1,1,0ln(3)=LINE/1,1,0,0,1,0ln(4)=LINE/0,1,0,0,0,0solid1=SOLEXT/ln(1.4),HEIGHT,10,AXIS,0,0,1 $ 拉伸實體solid2=SOLREV/ln(1.4),ORIGIN,0,0,0,ATANGL,360,AXIS,1,0,0 $ 旋轉實體HALT $結束語$ 注釋ENTITY/ln1,ln2ENTITY/flt1,pl1,torus1NUMBER/p_coords(3)&FONT=&DASHED $ 使線型變成虛線ln1=LINE/0,0,0,1,0,0&FONT=&SOLID $ 使線型變成實線ln2=LINE/0,0,0,0,1,0flt1=FILLET/ln2,ln1,CENTER,(POINT/1,1,0),RADIUS,0.2,NOTRIM

《ug opengrip 簡明教程 含编程语言》由会员小**分享，可在线阅读，更多相关《ug opengrip 簡明教程 含编程语言》请在金锄头文库上搜索。