Code: Select all

(defun nest1 () 
  (setq dcl_id1 (load_dialog "sln_piping.dcl"))	  		;the DCL file where the dialog is located
  (if (not (new_dialog "nest1" dcl_id1))
      (exit)   								 ;if not loaded exit
  ); end of if

  (action_tile "cancel" "(done_dialog)(setq result1 nil)")  ;if cancel selected do this
  (action_tile "accept" "(done_dialog)(setq result1 T)")    ;if OK selected do this
  (start_dialog)   							;start the nested dialogue box
  (unload_dialog dcl_id1) 					;unload the nested dialogue box

  (princ)
); End of defun

  

Code: Select all

  (action_tile "s1"				 						;toggle Fitting options
		"(L1_ON)(L2_OFF)(L3_OFF)(L4_OFF)(L5_OFF)
		(L1_CLEAR)(L2_CLEAR)(L3_CLEAR)(L4_CLEAR)(L5_CLEAR)
		(RESET_LABELS)(RESET_DIMS)(RESET_LIST)"										 
	); END ACTION TILE

Code: Select all

(action_tile "s1" "(nest1)" )

Code: Select all

	(action_tile "rb1"				 						;toggle LRE90 option
		"(SET_WLRE90_IMAGE)(NEST1)(L5_FITTINGS_ON)"
	); END ACTION TILE

Code: Select all

   (if (tblsearch "block" F:NAME)(INS_FTG)
	(ELB90_SSP)
	); end IF

Code: Select all

;  SRE90	
	((and (= NEWTILE "rb41")(= ftg "sre90_")) ;end and
	(DRAW_ELB90)
	)
	

Code: Select all

;  SRE90	
	((and (= NEWTILE "rb42")(= ftg "sre90_")) ;end and
	(DRAW_ELB90)
	)