Hi, I do have the following skill code to display the selected layer property in the toolbar. Right now it just shows the selected layer and the purpose, but how can i add a third field to it to show the width of the same layer? procedure(dynamicMetUpdate() let((win choice layer purpose barId) mouseSingleSelectPt() if( car(geGetSelectedSet())~>lpp then choice=car(geGetSelectedSet())~>lpp pathWidth=car(geGetSelectedSet())~>width else choice=list("" "") ) layer=car(choice) purpose=cadr(choice) win=hiGetCurrentWindow() barId=car(setof(menu hiGetWindowToolbars( hiGetSessionWindow(win) ) rexMatchp("^myToolBar" symbolToString(menu~>hiToolBarSym)))) if(barId then hiDeleteToolbarItems(barId list('C_GROUP1 'C_GROUP2)) C_GROUP1=hiCreateToolbarComboBox( ?name 'C_GROUP1 ?prompt "Selected Layer " ?value layer ?editable nil ?enabled nil) C_GROUP2=hiCreateToolbarComboBox( ?name 'C_GROUP2 ?prompt "Selected Purpose " ?value purpose ?editable nil ?enabled nil) ;items hiAddToolbarItems(barId list(C_GROUP1 C_GROUP2)) ) if(!boundp('myToolbar) then myToolbar = hiCreateToolbar( ?name 'myToolBar ?title "My Toolbar For Fixed Menu" ?toolButtonStyle 'textBesideIcon ?toolTip "My Fixed Menu Toolbar" ?invisible t ?items list( hiCreateToolbarComboBox( ?name 'C_GROUP1 ?prompt "Selected Layer " ?value layer ?editable nil ?enabled nil) hiCreateToolbarComboBox( ?name 'C_GROUP2 ?prompt "Selected Purpose " ?value purpose ?editable nil ?enabled nil) ) ;items ) ;hiCreateToolbar );unless unless(win~>cellView win=cadr(reverse(hiGetWindowList()))) hiPlaceToolbar(hiGetSessionWindow(win) myToolbar 'top) hiShowToolbar(myToolbar) ) ) hiSetBindKey("Layout" "None " "dynamicMetUpdate()") procedure(dynamicMetUpdate()let((win choice layer purpose barId)mouseSingleSelectPt()if( car(geGetSelectedSet())~>lpp thenchoice=car(geGetSelectedSet())~>lpppathWidth=car(geGetSelectedSet())~>width else choice=list("" ""))layer=car(choice)purpose=cadr(choice)win=hiGetCurrentWindow()barId=car(setof(menu hiGetWindowToolbars( hiGetSessionWindow(win) ) rexMatchp("^myToolBar" symbolToString(menu~>hiToolBarSym))))if(barId then hiDeleteToolbarItems(barId list('C_GROUP1 'C_GROUP2)) C_GROUP1=hiCreateToolbarComboBox( ?name 'C_GROUP1 ?prompt "Selected Layer " ?value layer ?editable nil ?enabled nil)C_GROUP2=hiCreateToolbarComboBox( ?name 'C_GROUP2 ?prompt "Selected Purpose " ?value purpose ?editable nil ?enabled nil) ;items hiAddToolbarItems(barId list(C_GROUP1 C_GROUP2)) )if(!boundp('myToolbar) thenmyToolbar = hiCreateToolbar( ?name 'myToolBar ?title "My Toolbar For Fixed Menu" ?toolButtonStyle 'textBesideIcon ?toolTip "My Fixed Menu Toolbar" ?invisible t ?items list( hiCreateToolbarComboBox( ?name 'C_GROUP1 ?prompt "Selected Layer " ?value layer ?editable nil ?enabled nil) hiCreateToolbarComboBox( ?name 'C_GROUP2 ?prompt "Selected Purpose " ?value purpose ?editable nil ?enabled nil) ) ;items ) ;hiCreateToolbar );unless unless(win~>cellView win=cadr(reverse(hiGetWindowList()))) hiPlaceToolbar(hiGetSessionWindow(win) myToolbar 'top) hiShowToolbar(myToolbar) )) hiSetBindKey("Layout" "None " "dynamicMetUpdate()")
↧