(use-package :oli)
(sd-defdialog 'aaaaaaaaaaaaaa
  :dialog-title "selection test"
  :toolbox-button t 
  :variables '(
   ("selection test")
	
   
    (part	:value-type :part
            ;:multiple-items t
   			:modifies nil    
   			:modifies :contents
			:prompt-text "Specify parts"
           	:title "parts"
           	:initial-value nil
			:after-input
			(planar_select part)		
    )  ;end parts
    )
 
:local-functions 
   '(     
		(planar_select (pt)
			(sd-call-cmds (get_selection :focus_type *sd-plane-seltype*
									 :select                                 
									 :selected_part pt
									 :all_3d
			              )
			) 									 
		) ;planar face select
    );; local-functions
);;sd-defdialog