(in-package 'psd-fast-parallel)
(use-package 'oli)
(sd-defdialog 'psd-fast-parallel
  :dialog-title   "FastParallel"
  :variables
  '(
	(FixPartFace
		; :selection *sd-plane-seltype*
		:value-type :face
	)
	(MovePartFace
		; :selection *sd-plane-seltype*
		:value-type :face
		:after-input 
			(sd-call-cmds (POSITION_PA (sd-inq-obj-pathname (sd-inq-parent-obj MovePartFace)) :MATE_ALIGN :PARALLEL_FACES MovePartFace FixPartFace))
	)
  );end¡¡variables
);end dialog