(use-package :OLI)

(sd-defdialog 'test22
	:dialog-title "test"
	:toolbox-button t 
	:variables '(
		(sheet 
			:selection *sd-anno-sheet-seltype* 
	        :title  (sd-multi-lang-string "sheet" :schinese "sheet")
		    :initial-value  nil
		) 
    )

 :local-functions
 '(
	    (doit ()
			(let (views)
			
				(setf views	(sd-am-sheet-struct-views (sd-am-inq-sheet sheet)))
				;(setf views t)
				
				(if views
				    AM_SAVE_SHEET_DWG
					(display "*******")))))
 :ok-action
 '(doit)
 
 )