(use-package :OLI)

(sd-defdialog 'testcode
  :dialog-title "testcode"
  :toolbox-button t 
  :variables '(

	 (a_circle
            :selection *sd-circle-3d-seltype*
           	:title "circle"
           	:initial-value nil
           
     )  ;end parts 
    )

 :local-functions
 '(
    (doit ()
		
			(ts-catalog-laden-dialog :neu :on
				"PARAMETER"
				"normteile/schrauben/sechskantschrauben/din_558"
				"0000000000"
				" 'NAME_ORIG' 'DN' 'A' 'C' 'DW' 'K' 'R' 'S' 'L' 'PNR' 'SID' 'DESCRIPTION_ORIG' 'NAME' 'BEZEICHNUNG' 'THREAD' 'THREAD_TYPE' 'DELETE' 'FAVORITE'"
				" 'Schraube_M_5x20_DIN_558' '5' '3.2' '0' '0' '3.5' '0.2' '8' '20' '' 'din558_5_20' 'Sechskantschraube DIN 558-M5x20' 'Screw_DIN_558-M5x20' 'Hexagon head screw DIN 558-M5x20' 'M5' 'metrisch' '' ''"
				" "
				" "
				a_circle
			)
		    (setf aa a_circle)
			
			#|  input code below in command line
			;**********************************************************************************
				ts-catalog-laden-dialog :neu :on
				"PARAMETER"
				"normteile/schrauben/sechskantschrauben/din_558"
				"0000000000"
				" 'NAME_ORIG' 'DN' 'A' 'C' 'DW' 'K' 'R' 'S' 'L' 'PNR' 'SID' 'DESCRIPTION_ORIG' 'NAME' 'BEZEICHNUNG' 'THREAD' 'THREAD_TYPE' 'DELETE' 'FAVORITE'"
				" 'Schraube_M_5x20_DIN_558' '5' '3.2' '0' '0' '3.5' '0.2' '8' '20' '' 'din558_5_20' 'Sechskantschraube DIN 558-M5x20' 'Screw_DIN_558-M5x20' 'Hexagon head screw DIN 558-M5x20' 'M5' 'metrisch' '' ''"
				" "
				" "
				aa
				complete	
			;**********************************************************************************
			|# ;input code above in command line
		
	)	 
   
   )
 :ok-action
 '(doit)
 
 )