cancel_all 
(SET-RECORD-STATUS :SUSPEND)
(SET-RECORD-STATUS :SUSPEND)
cancel 
load_package 
(SET-RECORD-STATUS :SUSPEND)
"Gläserpyramide.pkg" pos_dynamic 
(PROGN
  (DRAGGER-SWITCH-MODIFY :DRAG_INCREMENTAL NIL)
  (DRAGGER-SWITCH-MODIFY :DRAG_DISTANCE_INCREMENT 10.0)
  (DRAGGER-SWITCH-MODIFY :DRAG_ANGLE_INCREMENT 0.174532925199433)
  (DRAGGER-SWITCH-MODIFY :AUTO_PRECISION T)
  (DRAGGER-SWITCH-MODIFY :AUTO_PRECISION_SHIFT 0)
  (DRAGGER-SWITCH-MODIFY :FLY_BY_SNAPPING T)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_CLASH NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_TOUCH NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_FREEDOM NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_EXCLUDE_INCLUDE T)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SOLVE_CURRENT NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_KEEP_RELATIONS NIL)
  (DRAGGER-SWITCH-MODIFY :DYNAMO_SHOW_PHYSICAL_FREEDOM T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-LINE-FIX-LINE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-LINE-FIX-ROT T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-PLANE-FIX-PLANE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-PLANE-FIX-ROT T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-ROTATE-FIX-AXIS T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-ROTATE-FIX-SLIDE T)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-FREE-FIX-ROT NIL)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-FREE-BY-CENTER NIL)
  (DRAGGER-SWITCH-MODIFY :PHYSICAL-DRAG-BEHAVIOUR-OTHER :FIXED)
  (VALUES))
(PROGN (DRAGGER-SWITCH-MODIFY :FLY_BY_SNAPPING T) (VALUES))
:objects-by-selection :objects-to-move :start "/1" "/A1" "/A2" "/A4" "/B4" "/B5" :select_done :dyn-pos-method :on "/1" 
(END-FILE-MANAGER)