[pianaCFD]

Good morning experts,
I'm trying do deal with the parameterization of a domain in Pointwise writing journal. I'm kind of new on this language, I checked on internet but I was not able to find something appropriate for my case of interest.
Is there anyone so kind so tell me how to solve the following problem?
I want to parameterize a line. I have a connector starting from {-8 -3 -3} and ending in {-8 -3 3} as follow

pw::Application setUndoMaximumLevels 5
pw::Application reset
pw::Application markUndoLevel {Journal Reset}
pw::Application clearModified
set _TMP(mode_1) [pw::Application begin Create]
set _TMP(PW_1) [pw::SegmentSpline create]
$_TMP(PW_1) addPoint {-8 -3 -3}
$_TMP(PW_1) addPoint {-8 -3 3}
set _CN(1) [pw::Connector create]
$_CN(1) addSegment $_TMP(PW_1)
unset _TMP(PW_1)
$_CN(1) calculateDimension
$_TMP(mode_1) end
unset _TMP(mode_1)
pw::Application markUndoLevel {Create 2 Point Connector}

And I want to parameterize have something like

pw::Application setUndoMaximumLevels 5
pw::Application reset
pw::Application markUndoLevel {Journal Reset}
pw::Application clearModified
set R 5.029
set _TMP(mode_1) [pw::Application begin Create]
set _TMP(PW_1) [pw::SegmentSpline create]
$_TMP(PW_1) addPoint {-8 -3 -3}*$R
$_TMP(PW_1) addPoint {-8 -3 3}*$R
set _CN(1) [pw::Connector create]
$_CN(1) addSegment $_TMP(PW_1)
unset _TMP(PW_1)
$_CN(1) calculateDimension
$_TMP(mode_1) end
unset _TMP(mode_1)
pw::Application markUndoLevel {Create 2 Point Connector}

I've also tried with

pw::Application setUndoMaximumLevels 5
pw::Application reset
pw::Application markUndoLevel {Journal Reset}
pw::Application clearModified
set R 5.029
set _TMP(mode_1) [pw::Application begin Create]
set _TMP(PW_1) [pw::SegmentSpline create]
$_TMP(PW_1) addPoint {-8*$R -3*$R -3*$R}
$_TMP(PW_1) addPoint {-8*$R -3*$R 3*$R}
set _CN(1) [pw::Connector create]
$_CN(1) addSegment $_TMP(PW_1)
unset _TMP(PW_1)
$_CN(1) calculateDimension
$_TMP(mode_1) end
unset _TMP(mode_1)
pw::Application markUndoLevel {Create 2 Point Connector}

but still nothing

Is it possible to do it? any advice will be appreciated.
Thank you

[dgarlisch]

You need to use the vector3 utility functions.
https://www.pointwise.com/glyph/file....Vector3.scale

Something like:

set pt [pwu::Vector3 scale {-8 -3 -3} $R]

Glyph uses the Tcl language. Tcl does NOT support calculations as you may be used to in other languages.

In Tcl, {8 3 3} is a list of three values. To scale each item in the list involves some verbose code. One way would be:

set pt [ list [expr {-8 * $R}] [expr {-3 * $R}] [expr {-3 * $R}]]

Please read up on Tcl if you are not already familiar with it.
http://tmml.sourceforge.net/doc/tcl/

To understand Tcl, you REALLY need to understand the difference between [], {}, and "". Good luck.

[pianaCFD]

Thank you really much,
I'm gonna try.