You must not finish repeating the first coordinate (0,-10,0) and the word 'old'
GiD_Process Mescape Geometry Create Line 0,-10,0 0.5,-10,0 20,-10,0 20,0,0 20,1,0 0.5,1,0 0,1,0 0,0,0
0,-10,0 old Mescape
instead must use
Join and then provide the integer id of the point to be joined, not a 3D coordinate
e.g. if your model was empty you know that the if of the first point is '1'
GiD_Process Mescape Geometry Create Line 0,-10,0 0.5,-10,0 20,-10,0 20,0,0 20,1,0 0.5,1,0 0,1,0 0,0,0
Join 1 escape
or more general
set point_id [expr [GiD_Info Geometry MaxNumPoints]+1]
Code: Select all
GiD_Process Mescape Geometry Create Line 0,-10,0 0.5,-10,0 20,-10,0 20,0,0 20,1,0 0.5,1,0 0,1,0 0,0,0 Join $point_id escape
when creating straight lines do you have also the word 'Close' to create a last line joining with the first point of the current collection of lines
Code: Select all
GiD_Process Mescape Geometry Create Line 0,-10,0 0.5,-10,0 20,-10,0 20,0,0 20,1,0 0.5,1,0 0,1,0 0,0,0 Close Escape
and a final observation of interest for customization (to avoid checks a the posibility of raise the 'old'/'new' point related window)
there is a global GiD variable that you can temporary set to say GiD that all your coordinates must be considered as 'new points', without take into account if there are other close points.
Code: Select all
set old_value [GiD_Set CreateAlwaysNewPoint]
GiD_Set CreateAlwaysNewPoint 1
... create all your points
GiD_Set CreateAlwaysNewPoint $old_value ;#to restore its value