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

(sd-defdialog 'move_part_by_two_pts 
  ; comment out the following line to force sequential dialog behavior
  ; :dialog-control :sequential
  :variables '(
     (PART :value-type :part-assembly)
     (PNT1 :value-type :point-3d)
     (PNT2 :value-type :point-3d)
  )
  :ok-action '(sd-call-cmds (position_pa :part_assembly part :translate :two_ptv pnt1 pnt2)
  )
)