#|
*--------------------------------------------------------------------------*
*  Copyright 2007  Michael Mueller, PTB Braunschweig                       *
*                                                                          *
*--------------------------------------------------------------------------*
*  Dateiname: AEinSchwerpunkt.lsp
*  Version  : 1.1, Name vergeben
*  Datum    : 29.11.2007
*  Author   : MM
*  Programm zum Erstellen einer AE mit Ursprung im Schwerpunkt von wählbaren Teilen
|#

(in-package :my-package)
(use-package :oli)


(sd-defdialog 'ae_in_SP
  :dialog-title "AE in Schwerpunkt"
  :toolbox-button t
  :variables

'(
        (Teile  :value-type :part-assembly
          	:multiple-items t
          	:title "Teile"
          ;	:initial-value nil
          	:prompt-text "Teile angeben"
          ;	:after-input (los-gehts)
          	:modifies nil
	)

     	(Normale
     		:value-type :measure-direction
     		:initial-value nil
     	)
) ;end Variables


:ok-action '(los-gehts)
    :local-functions '(
      (los-gehts ()
;(display Normale)
;(dolist (teil Teile)
;(display (sd-inq-obj-pathname teil))
;)
	(progn
        (sd-call-cmds (create_workplane :new :NAME "AE-Schwerpunkt" :pt_dir :origin (sd-call-cmds(get_vol_prop :for_part :part Teile :select_done :centroid)) :normal (first Normale)))
	(sd-call-cmds (c_line_inf :horizontal 0))
	(sd-call-cmds (c_line_inf :vertical 0)))
	(sd-call-cmds (GEOMETRY_MODE :CONSTRUCTION))

	) ;end los-gehts

     ) ;end local functions

) ;end sd-defdialog