(use-package :oli)

(sd-defdialog 'move_part_by_two_pts
  ; comment out the following line to force sequential dialog behavior
  ; :dialog-control :sequential
  :variables '(
     (partassy :selection
               (*sd-object-seltype*)
               :multiple-items t
               :show-select-menu t
               :title "Teil/Bgr"
               :prompt-text "Teil oder Baugruppe angeben"
     )
     (PNT1 :value-type :point-3d)
     (PNT2 :value-type :point-3d)
  )
  :local-functions
  '((doit-action ()
     (let (p_a)
      (dolist (p_a partassy)
       (sd-call-cmds (position_pa :part_assembly p_a :translate :two_ptv pnt1 pnt2))
      );;dolist
     );;let
    )
   )
  :ok-action '(doit-action)
)