Child Dialog Actions *** solved :)

#1
Struggling with this atm.
Wafer L3.png
Wafer L3.png (51.85 KiB) Viewed 960 times
.
In the image, the child dialog has three options.
I want to be able to select different options for the column Face L3

Here is the current OK Action Tile:

Code: Select all

  (action_tile "accept" "(setq sel fred3)(done_dialog)" )
My options are:

Code: Select all

	(defun L3_ON ()
	 (mode_tile "rb21" 0)
	 (mode_tile "rb22" 0)
	 (mode_tile "rb23" 0)
	)
	(defun L3_CV_ON ()
	 (mode_tile "rb21" 0) 
;	 (mode_tile "rb22" 0);NOT REQUIRED
	 (mode_tile "rb23" 0)
	)
	(defun L3_FCV_ON ()
;	 (mode_tile "rb21" 0);NOT REQUIRED 
	 (mode_tile "rb22" 0) 
	 (mode_tile "rb23" 0)
	)	
.
I've tried

Code: Select all

  (action_tile "accept" "(setq sel fred3)(L3_FCV_ON )(done_dialog)" )
No good :(
Last edited by sln8458 on Mon Nov 20, 2023 10:11 am, edited 1 time in total.
CMS INTELLICAD 12.1.243.153262.PE+.VC16.x64.CMS121

i9-12900k / 64gb-3200 - NVIDIA GeForce TRX 3060 Ti 8Gb Windows 11 Pro
www.stylemarkdesigns.co.uk

Re: Child Dialog Actions - solved

#2
Solved :)

Actually it was simple, I had just forgotten :(
Note: PCV_CV is a new function in the main body of the code

Code: Select all

(defun PCV_CV ()
	(L3_CV_ON)
);end PCV_CV
In the child dialog code is:

Code: Select all

(defun CHECK_SELECTIONS_N3 () ;
	(cond 
		((/= cv_sel NIL)
			(setq sel cv_sel)
			(done_dialog)
		) 		
		(t (alert "OOPS! SELECT CHECK VALVE TYPE - TRY AGAIN!"))  
	);end of cond
) ;end CHECK_SELECTIONS

Code: Select all

  (action_tile "cancel" "(done_dialog)(setq cv_sel nil)" )    		;if cancel selected do this
  (action_tile "accept" "(CHECK_SELECTIONS_N3)")  			;if OK selected do this   
  (start_dialog)   							;start the nested dialogue box
  (unload_dialog dcl_id3) 						;unload the nested dialogue box
  (PCV_CV)
  
CMS INTELLICAD 12.1.243.153262.PE+.VC16.x64.CMS121

i9-12900k / 64gb-3200 - NVIDIA GeForce TRX 3060 Ti 8Gb Windows 11 Pro
www.stylemarkdesigns.co.uk
cron