Ansys Fluent利用循环设置检测点

; Create points

(cx-gui-do cx-activate-item "Ribbon*Frame1*Frame6(Results)*Table1*Table3(Surface)*PushButton1(Create)")

(cx-gui-do cx-activate-item "MenuBar*PopupMenuCreate*Point...")

(define (SetPointsOneSide n)

  (let loop ((i 1))

    (if (<= i n)

        (begin

          (define xlabelpoint (- (* 0.01 (- i 1)) 0.1))

          ;(+ xlabelpoint 0)

          (cx-gui-do cx-set-text-entry "Point Surface*Table1*TextEntry1(Name)"  (string-append "point" (number->string i)))

          (cx-gui-do cx-set-real-entry-list "Point Surface*Table1*Frame3(Coordinates)*Table1*RealEntry1(x)" (list (- (* 0.01 (- i 1)) 0.1)))

          (cx-gui-do cx-activate-item "Point Surface*Table1*Frame3(Coordinates)*Table1*RealEntry1(x)")

          (cx-gui-do cx-set-real-entry-list "Point Surface*Table1*Frame3(Coordinates)*Table1*RealEntry2(y)" '( 0.0001))

          (cx-gui-do cx-activate-item "Point Surface*Table1*Frame3(Coordinates)*Table1*RealEntry2(y)")

          (cx-gui-do cx-activate-item "Point Surface*PanelButtons*PushButton1(OK)")

          (loop (+ i 1))))))

(SetPointsOneSide 21)

(cx-gui-do cx-activate-item "Point Surface*PanelButtons*PushButton2(Cancel)")

 

 ==========================================================================================================

 

; Define point

(cx-gui-do cx-set-list-tree-selections "NavigationPane*List_Tree1" (list "Solution|Report Definitions"))

(cx-gui-do cx-set-list-tree-selections "NavigationPane*List_Tree1" (list "Solution|Report Definitions"))

(cx-gui-do cx-activate-item "NavigationPane*List_Tree1")

(cx-gui-do cx-set-list-tree-selections "NavigationPane*List_Tree1" (list "Solution|Report Definitions"))

(define (DefinePointsBothSide n)

  (let loop ((i 1))

    (if (<= i n)

        (begin

          (cx-gui-do cx-activate-item "Report Definitions*Table1*ButtonBox3*PushButton1(New)")

          (cx-gui-do cx-activate-item "MenuBar*Surface ReportSubMenu*Vertex Maximum...")

          (cx-gui-do cx-set-text-entry "Surface Report Definition*Table1*Table1*TextEntry1(Name)" (string-append "point" (number->string i)))

          (cx-gui-do cx-activate-item "Surface Report Definition*Table1*Table1*TextEntry1(Name)")

          (cx-gui-do cx-set-list-selections "Surface Report Definition*Table1*Table2*Table6*List1(Surfaces)" (list (+ i 3)))

          (cx-gui-do cx-activate-item "Surface Report Definition*Table1*Table2*Table6*List1(Surfaces)")

          (cx-gui-do cx-activate-item "Surface Report Definition*PanelButtons*PushButton1(OK)")

          (loop (+ i 1))))))

(DefinePointsBothSide 21)

(cx-gui-do cx-activate-item "Report Definitions*PanelButtons*PushButton1(Close)")