FLUENT-UDF高级应用技术培训-实例.docx

FLUENT-UDF高级应用技术培训－实例

2005年6月9日～10日飞昂软件技术（上海）有限公司

例一

;;

;;FLUENTUserDefinedSchemeProgram;;

;;DefineUserSchemeVariables;;

;;FluentInc.

(define(set-new-varsvt)

(if(not(rp-var-objects))

(rp-var-definesvt#f)

)

)

(for-each

(lambda(var)(applyset-new-varvar))

(

(my/int1integer);userinteger(my/real0.5real);userreal(my/textabcstring);usertext

)

)

;;

;;Createapanelfortheudf;;

(definegui-my-input-panel

(let((panel#f)

;declarevariables-assignvalueslater

(mybox)

(my-int-entry)(my-real-entry)(my-text-entry)

)

;

;Functionwhichiscalledwhenpanelisopened

;setspanelvariablestovaluesinset-new-varsection

;

(define(update-cb.args)

(cx-set-integer-entrymy-int-entry(rpgetvarmy/int))

(cx-set-real-entrymy-real-entry(rpgetvarmy/real))

(cx-set-text-entrymy-text-entry(rpgetvarmy/text))

)

;;;

;;;FunctionwhichiscalledwhenOKbuttonishit.

;;;assignsvariablevaluesthatweresetinpanelafterclickingok;;;

(define(apply-cb.args)

(rpsetvarmy/int(cx-show-integer-entrymy-int-entry))

(rpsetvarmy/real(cx-show-real-entrymy-real-entry))

(rpsetvarmy/text(cx-show-text-entrymy-text-entry))

)

(lambdaargs

;;;ifpaneldoesnotexist,makepanel

(if(notpanel)

;;createpanel

(let((table))

(set!panel(cx-create-panelMyInputPanelapply-cbupdate-cb))

;;createtablew/otitleinpaneltoenablerowbycolumnformat

(set!table(cx-create-tablepanelborder#fbelow0right-of0))

;;;CreateCustomVariableinput.

(set!mybox(cx-create-tabletableMyInputsborder#trow0))

(set!my-int-entry(cx-create-integer-entrymyboxmyintegerrow0col0))

(set!my-real-entry(cx-create-real-entrymyboxmyrealrow1col0))(set!my-text-entry(cx-create-text-entrymyboxmytextrow2col0)))

)

;;tellsolvertodisplaythepanel

(cx-show-panelpanel))

)

)

;;

;;AddnewpaneltoendofUser-Definedmenu.

;;noneedtomodifyhereexceptpanelnameandmenulocation;;

(cx-add-item

De