How to create a node in the center by selecting one circular curve?

Open command.tcl file you will see the script

Open command.tcl file you will see the script

Hi tinh,

I know your meaning. When using GUI, the center node can be created by selecting three nodes. How can we create the center node directly by only selecting one circular line not three nodes by using script?

Roy

Hi Roy,

You may already know this panel

<?xml version="1.0" encoding="UTF-8"?>

use it generate nodes on the curve and use generated nodes to create center nodes. do necessary steps then you could find out commands in command.tcl

Hi tinh,

I know your meaning. When using GUI, the center node can be created by selecting three nodes. How can we create the center node directly by only selecting one circular line not three nodes by using script?

 

Roy

F8>create node at 'circle center'

*createmarkpanel lines 1 'Select Line to get center';
*createbestcirclecenternode lines 1 0 1 0;

*clearmark lines 1

#
# to loop trough many crucial lines at one selection :

*createmarkpanel lines 1 'Select all lines to put temp-node at center';
set line_sh [ hm_getmark lines 1 ];
set ile_li [ llength $line_sh ]

if { ! [ Null line_list ] } {
  for {set i 0} {$i <$ile_li} {incr i} {
    set liID [ lindex $line_sh $i ] ;
    eval *createmark lines 1 $liID
    *createbestcirclecenternode lines 1 0 1 0;
    *clearmark lines 1
  }
};
puts "Enter: tcl is harder than you think"