*createmarkpanel surfaces 1 'Select surface for mark node'
*createlistpanel nodes 1 'select nodes'
*surfacemarksplitwithnodes 1 1
*clearmark surfaces 1
*clearlist nodess 1
*createmarkpanel nodes 1 'select nodes'
*duplicatemark nodes 1 0
*createlistpanel surfaces 1 'Select surface'
set targetsurf [hm_getlist surfaces 1]
set targetsurfid1 [hm_getentityvalue surfaces [lindex $targetsurf 0] 'id' 0];
*markprojectnormallytosurface nodes 1 $targetsurfid1
*clearmark all 1
*clearlist surfaces 1
*createmarkpanel surfaces 2 'Select surface for mark node'
*createmarkpanel nodes 2 'select nodes'
if { [ catch {*surfacemarkaddnodesfixed 2 2 0.00026801845 0 } ] } {
# Handle error
}
*nodecleartempmark
*clearmark nodes 2
*clearmark surfaces 2