clear mark

hello 

*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';}
 

In this program at clear mark I am not able to clear the surface stored in surfaces 1

and also not able to retrive surfaces 2 in *surfacemarkaddnodesfixed command 

so have look

Thank you