*createmarkpanel nodes 1 'select nodes'
*duplicatemark nodes 1 0
*createlistpanel surfaces 1 'Select surface'
set targetsurf [hm_getlist surfaces 1]
set targetsurfid1 [hm_getentityvalue nodes [lindex $targetsurf 0] 'id' 0];
*markprojectnormallytosurface nodes 1 $surfaceid1
*clearmark all 1
*createlistpanel 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 1
*clearmark surfaces 1
hm_setpanelproc {hm_callpanel 'automesh';}