Patran二次开发步骤.doc

1. *在Patran下挂下拉菜单*通常我们不修改init.pcl文件，启动init.pcl时而会执行附带的启动文件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) /*菜单各项的响应函数*/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/*初始化对话框，必要的函数*/ FUNCTION init()real x_loc,y_loc/*创建对话框窗体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,)/*创建图标*/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/*创建输入文本框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/*创建“应用”按钮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)/*创建“取消”按钮*/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/*创建“删除”按钮*/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/*窗体显示，必要的函数*/ FUNCTION display()ui_form_display(plateForm) END FUNCTION/*“应用”按钮响应处理函数*/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. 编程格式介绍转行继续符：分号分隔符：同C+：“；”注释多行：/*/注释单行：“”或者“$”计算表达式说明：用“”（数字1键左边的那个键）例如：Angle：360/5,或者用WRITE(10+20)变量和常量Integer（整型），Real（实数），Logical（TRUE和FALSE），String，Widget（控件，有个常量WIDGET_NULL）变量的生命周期Global 全局Local 在函数内，本地Static 静态，patran退出就消失ClassWide 对一组函数可见，patran退出就消失6. 指令文件管理! input file.pcl #编译连接file.pcl,并将函数调入patran!compile file.pcl into xxx.plb #编译file.pcl,并存入plb库中!library xxx.plb