Jump to content

Tcl script - standard view for local coordinate system

Recommended Posts


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]]





Share this post

Link to post
Share on other sites

  • Create New...