Patran二次開發(fā)步驟.doc

《Patran二次開發(fā)步驟.doc》由會員分享，可在線閱讀，更多相關《Patran二次開發(fā)步驟.doc（4頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1. *在Patran下掛下拉菜單*通常我們不修改init.pcl文件，啟動init.pcl時而會執(zhí)行附帶的啟動文件p3prolog.pcl和p3epilog.pcl。如果這些文件存在，就會在init.pcl啟動前后裝載p3prolog.pcl（啟動前）和p3epilog.pcl（啟動后），所以這兩個文件是我們插入自定義命令的好地方。!PATH !LIBRARY !INPUT 在Patran安裝目錄下修改p3prolog.pcl，加入如下命令，例如：!input mymenu.pcl#裝載菜單文件ui_exec_function(mymenu,init) #當且僅初始化一次!input plateform.pcl #裝載對話框文件2. * 下拉菜單程序編寫*CLASS exerciseFUNCTION init() /*初始化菜單*/WIDGET menubar,menu,item1,item2,item3/*定義控件變量*/menu = uil_primary.get_menubar_id()/*獲取主菜單ID*/menubar=ui_menu_create(menu,exercise_menu,有限元分析)/*添加菜單*/item1=ui_item_create(menubar,ex_1,計算,FALSE)/*添加子菜單*/item2=ui_item_create(menubar,ex_2,導入文件,FALSE)/*添加子菜單*/item3=ui_item_create(menubar,ex_3,結束,FALSE)/*添加子菜單*/END FUNCTIONFUNCTION exercise_menu(item_name) /*菜單各項的響應函數(shù)*/STRING item_nameSWITCH(item_name) CASE(EX_1)write(Plate with a hole creating function)ui_exec_function(plateform,init)plateform.display() CASE(EX_2)write(cross pipes creating function) CASE(EX_3)write(slot modeling function)END SWITCHEND FUNCTIONEND CLASS3. *彈出對話框程序編寫*#include appforms.pCLASS plateForm/*定義控件變量*/ CLASSWIDE WIDGET form_id,dataBox1,dataBox2,dataBox3, apply_button,cancel_button,delete_button/*初始化對話框，必要的函數(shù)*/ FUNCTION init()real x_loc,y_loc/*創(chuàng)建對話框窗體ui_form_create(callback,x,y,position,width,height,label,unused)*/form_id=ui_form_create(,FORM_X_LOC,FORM_Y_LOC,UL,FORM_WID_SML,FORM_HGT_FULL,PLATE WITH A HOLE,)/*創(chuàng)建圖標*/x_loc=FRAME_WID_SINGLE/2.-200*PIXEL_WID/2.+FORM_L_MARGINy_loc=FRAME_T_MARGIN+INTER_WIDGET_SPACE/* ui_labelicon_create(parent,callback,x,y,label)*/ui_labelicon_create(form_id,x_loc,y_loc,platehole.icon)y_loc+=200.*PIXEL_HGT+DBOX_HGT_NO_LABOVE+INTER_WIDGET_SPACE/*創(chuàng)建輸入文本框ui_databox_create(parent,callback,x,y,label_length,box_length,width,height,label,value,label_above,datatype,num_vars)*/dataBox1=ui_databox_create(form_id,FRAME_L_MARGIN,y_loc,SINGLE_SPACE*5.0,DBOX_WID_SINGLE*0.6,r=,2.,FALSE,REAL,1)y_loc+=DBOX_HGT_NO_LABOVE+INTER_WIDGET_SPACEdataBox2=ui_databox_create(form_id,FRAME_L_MARGIN,y_loc,SINGLE_SPACE*5.0,DBOX_WID_SINGLE*0.6,w=,5.,FALSE,REAL,1)y_loc+=DBOX_HGT_NO_LABOVE+INTER_WIDGET_SPACEdataBox3=ui_databox_create(form_id,FRAME_L_MARGIN,y_loc,SINGLE_SPACE*5.0,DBOX_WID_SINGLE*0.6,h=,5.,FALSE,REAL,1)y_loc+=DBOX_HGT_NO_LABOVE+INTER_WIDGET_SPACE*2/*創(chuàng)建“應用”按鈕ui_button_create(parent, callback, x, y, width, height, label, unused, highlight)*/apply_button=ui_button_create(form_id,apply_cb,BUTTON_HALF_X_LOC1,y_loc,BUTTON_WID_HALF,0,應用,TRUE,TRUE)/*創(chuàng)建“取消”按鈕*/cancel_button=ui_button_create(form_id,cancel_cb,BUTTON_HALF_X_LOC2,y_loc,BUTTON_WID_HALF,0,取消,TRUE,FALSE)y_loc+=DBOX_HGT_NO_LABOVE+INTER_WIDGET_SPACE/*創(chuàng)建“刪除”按鈕*/delete_button=ui_button_create(form_id,delete_cb,BUTTON_HALF_X_LOC1,y_loc,BUTTON_WID_HALF,0,Delete,TRUE,FALSE)y_loc+=BUTTON_DEFAULT_HGT+FORM_B_MARGIN+INTER_WIDGET_SPACEui_wid_set(form_id,HEIGHT,y_loc) END FUNCTION/*窗體顯示，必要的函數(shù)*/ FUNCTION display()ui_form_display(plateForm) END FUNCTION/*“應用”按鈕響應處理函數(shù)*/FUNCTION apply_cb() real r,w,h ui_wid_get(databox1,VALUE,r) ui_wid_get(databox2,VALUE,w) ui_wid_get(databox3,VALUE,h) ui_form_hide(plateform) ui_writec(r =%f,w=%f,h=%f,r,w,h) END FUNCTION FUNCTION cancel_cb()ui_form_hide(plateform) END FUNCTION FUNCTION delete_cb() ui_form_delete(plateform) END FUNCTIONEND CLASS4. C文件編譯處理例如：d:mscpatran2001r2bincpp -id:/msc/patran2001r2/customization c:/uillist.pcl c:/uillist.cpp5. 編程格式介紹轉行繼續(xù)符：分號分隔符：同C+：“；”注釋多行：/*/注釋單行：“”或者“$”計算表達式說明：用“”（數(shù)字1鍵左邊的那個鍵）例如：Angle：360/5,或者用WRITE(10+20)變量和常量Integer（整型），Real（實數(shù)），Logical（TRUE和FALSE），String，Widget（控件，有個常量WIDGET_NULL）變量的生命周期Global 全局Local 在函數(shù)內，本地Static 靜態(tài)，patran退出就消失ClassWide 對一組函數(shù)可見，patran退出就消失6. 指令文件管理! input file.pcl #編譯連接file.pcl,并將函數(shù)調入patran!compile file.pcl into xxx.plb #編譯file.pcl,并存入plb庫中!library xxx.plb #將plb文件調入patran!path Directory #指定打開文件的目錄!Trace option pcl #執(zhí)行確認!Debug option #保存注釋!options option #pcl環(huán)境設置!size code newsize #為編譯代碼區(qū)設置大小!clear global name #刪除全局變量定義!clear function name #刪除函數(shù)定義