Tcl script - standard view for local coordinate system

Sathish_21542

I need the Tcl- script file for getting standard view for local coordinate system

tinh

Hi,

Not sure why you need it. but please try:

*createmarkpanel systs 1 'Pick a local system:'

if {[hm_marklength systs 1]==1} {

     set SystID [hm_getmark systs 1]

     lassign [hm_getvalue systs id=1 dataname=axis] xx xy xz yx yy yz zx zy zz

     eval  *viewset $xx $yx $zx 0 $xy $yy $zy 0 $xz $yz $zz 0 0 0 0 1 [lrange [hm_winfo viewmatrix end-3 end]]

    *window

}