(in-package :JAAPS_TOOLS) (use-package :OLI) (sd-defdialog 'Move_Active_By_One_Point :dialog-title "Move Act Part By 1 Pt" :variables '( ;(partje :value-type :part :initial-value (sd-inq-curr-part) :title "Part" :modifies NIL) (partje :selection (*sd-part-seltype* *sd-assembly-seltype*) :initial-value (sd-inq-curr-part) :modifies :nil :title "Part or Assy") (puntje :value-type :point-3d :title "Point" :initial-value nil :after-input (progn (if (equal (sel_item-type partje) *sd-part-seltype*) (progn (setf box (sd-inq-exact-box partje 0,0,1 1,0,0 :source-space :global :dest-space :global)) (setf vec (sd-vec-scale (sd-vec-add (first box) (second box)) 0.5)) ));progn endif (if (equal (sel_item-type partje) *sd-assembly-seltype*) (progn (setf vec (sd-call-cmds(get_vol_prop :for_part :assembly partje :select_done :centroid))) ));progn endif (position_pa :part_assembly partje :translate :two_ptv vec puntje complete) )) ) :help-action '(sd-display-url (concatenate 'string *osd_helpbestand_dir* "/move_act_1pt.htm")) :local-functions '( (doit () (setf box (sd-inq-exact-box partje 0,0,1 1,0,0 :source-space :global :dest-space :global)) (setf vec (sd-vec-scale (sd-vec-add (first box) (second box)) 0.5)) (position_pa :part_assembly partje :translate :two_ptv vec puntje complete) )) ; :ok-action ; '(doit) )