(sd-defdialog 'iwg-anno-dim-fine-dialog
:dialog-title "Mass feiner"
:toolbox-button t
:variables
  '(
    (mydim :selection *sd-anno-dimension-seltype*
           :prompt-text "Bemassung zum Verfeinern angeben."
           :title "Mass"
           :multiple-items nil
           :after-input (after-mydim-action)
    )
   )
:local-functions
  '(
    (after-mydim-action ()
     (let (dpunkt comstring)
      (setf dpunkt (sd-get-annotator-position :object mydim))
						(setf comstring (format nil "~a~% ~a~% ~a~a~% ~a~% ~a~% ~a~%  ~a~a~a~% ~a"
							  "INQ_ENV 7"
									"LET Cname ('~'+(INQ 302))"
									"EDIT_PART "  dpunkt 
							  "INQ_ENV 7"
									"LET Pname ('~'+(INQ 302))"
									"INQ_PART Pname" 
									"CHANGE_DIM_PLACES PLUS MAIN_NUM ((" dpunkt ")/(INQ 4))"
									"EDIT_PART Cname"
						))
      (sd-execute-annotator-command :cmd comstring)
      (setf mydim nil)
     );;let
    )
   )
:ok-action
   '()
:help-action '()
)

;;--------------------------------------------------------------------------*
(sd-defdialog 'iwg-anno-dim-coarse-dialog
:dialog-title "Mass grober"
:toolbox-button t
:variables
  '(
    (mydim :selection *sd-anno-dimension-seltype*
           :prompt-text "Bemassung zum Vergroebern angeben."
           :title "Mass"
           :multiple-items nil
           :after-input (after-mydim-action)
    )
   )
:local-functions
  '(
    (after-mydim-action ()
     (let (dpunkt comstring)
      (setf dpunkt (sd-get-annotator-position :object mydim))
						(setf comstring (format nil "~a~% ~a~% ~a~a~% ~a~% ~a~% ~a~%  ~a~a~a~% ~a"
							  "INQ_ENV 7"
									"LET Cname ('~'+(INQ 302))"
									"EDIT_PART "  dpunkt 
							  "INQ_ENV 7"
									"LET Pname ('~'+(INQ 302))"
									"INQ_PART Pname" 
									"CHANGE_DIM_PLACES MINUS MAIN_NUM ((" dpunkt ")/(INQ 4))"
									"EDIT_PART Cname"
						))
      (sd-execute-annotator-command :cmd comstring)
      (setf mydim nil)
     );;let
    )
   )
:ok-action
   '()
:help-action '()
)