(use-package :OLI)

(sd-defdialog 'testcode
  :dialog-title (sd-multi-lang-string "testcode"    :schinese "testcode")
  :toolbox-button t 
  :variables '(
      

    )

 :local-functions
 '(
    (doit ()
		
			
		(setf parts_before (jb-inq-obj-tree-list (sd-pathname-to-obj "/"))) 
			(setf parts_before
			(remove-if
			 #'(lambda (obj)
				   (not (equal (sel_item-type obj) *sd-part-seltype*))) 
			 parts_before))	
		
			(sd-put-buffer
				"
				ts-catalog-laden-dialog :neu :on
				\"PARAMETER\"
				\"normteile/scheiben/din_125a\"
				\"0000000000\"
				\" 'NAME_ORIG' 'DN' 'H' 'DI' 'DA' 'PNR' 'SID' 'DESCRIPTION_ORIG' 'NAME' 'BEZEICHNUNG' 'DELETE' 'FAVORITE'\"
				\" 'Scheibe_A_10_5_DIN_125' '10' '2' '10.5' '20' '' 'din125a_10_2_10.5_20' 'Scheibe DIN 125 - A10.5' 'Washer_DIN_125-A10.5' 'Washer DIN 125 - A10.5' '' ''\"
				\" \"
				\" \"
				(gpntwc 0 0 0 \"vport1\")
				complete
				"
			)
		
		
			(setf parts_after (jb-inq-obj-tree-list (sd-pathname-to-obj "/")))  
			(setf parts_after 	(remove-if #'(lambda (obj)
				   (not (equal (sel_item-type obj) *sd-part-seltype*))) parts_after)
			)
			 
			;(display parts_after)
			 
			 (dolist (part parts_after)
				(display (sd-inq-obj-pathname part))
			 )
			 (display "------------")
			
			
		
		
	)
	
	
    (jb-inq-obj-tree-list (obj)
		(cons obj
			(apply #'nconc (mapcar #'jb-inq-obj-tree-list (sd-inq-obj-children obj)))
		)
	)
   
   )
 :ok-action
 '(doit)
 
 )