Help with pickbutton

hello, someone could help me ... I have several buttons "pickbutton" I would customizer there any way? all the buttons "pickbutton" has the same function below.

	on button1 picked obj do
	(
		if obj != undefined do
		(
		button1.text = obj.name
		)
	)
	on button2 picked obj do
	(
		if obj != undefined do
		(
		button2.text = obj.name
		)
	)
---more than 7 buttons

Comments

Comment viewing options

Select your preferred way to display the comments and click "Save settings" to activate your changes.
Garp's picture

autoDisplay ftw!

If you set the autoDisplay to true, all this is done automatically.

From the doc:

autoDisplay:
When set to true, the name of the picked object will be automatically displayed as the text on the button. If false or not specified, the button caption will not be changed.

kimarotta's picture

perfect ... I did not see

perfect ... I did not see this in help ... thanks a million

kimarotta.com.br
3d Artist  

miauu's picture

Something like this?

(
	global rol_
	try(destroyDialog rol_)catch()
	rollout rol_ ""
	(
		pickbutton pbtn_01 "Pick object 01"
		pickbutton pbtn_02 "Pick object 02"
		pickbutton pbtn_03 "Pick object 03"
		pickbutton pbtn_04 "Pick object 04"
		pickbutton pbtn_05 "Pick object 05"
		pickbutton pbtn_06 "Pick object 06"
		pickbutton pbtn_07 "Pick object 07"
		pickbutton pbtn_08 "Pick object 08"
		pickbutton pbtn_09 "Pick object 08"
		pickbutton pbtn_10 "Pick object 10"
 
		function SetObjNameAsBtnText obj pbtn =
		(
			if obj != undefined do
			(
				pbtn.text = obj.name
			)
		)
 
		on pbtn_01 picked obj do SetObjNameAsBtnText obj pbtn_01
		on pbtn_02 picked obj do SetObjNameAsBtnText obj pbtn_02
		on pbtn_03 picked obj do SetObjNameAsBtnText obj pbtn_03
		on pbtn_04 picked obj do SetObjNameAsBtnText obj pbtn_04
		on pbtn_05 picked obj do SetObjNameAsBtnText obj pbtn_05
		on pbtn_06 picked obj do SetObjNameAsBtnText obj pbtn_06
		on pbtn_07 picked obj do SetObjNameAsBtnText obj pbtn_07
		on pbtn_08 picked obj do SetObjNameAsBtnText obj pbtn_08
		on pbtn_09 picked obj do SetObjNameAsBtnText obj pbtn_09
		on pbtn_10 picked obj do SetObjNameAsBtnText obj pbtn_10
	)
	createdialog rol_ 
)
kimarotta's picture

very good, exactly what I

very good, exactly what I needed, optimized several lines.

thanks man

kimarotta.com.br
3d Artist  

Comment viewing options

Select your preferred way to display the comments and click "Save settings" to activate your changes.