;;; 3D-Werte setzen
;(SET_SHOW "1" :3DGEO_PART_TRANSPARENCY :OFF)

(uic_set_show_mode :3dgeo :on (oli::sd-inq-current-vp))  ;; 3D-Geo
(uic_set_show_mode :3dgeo_edged :on (oli::sd-inq-current-vp)) ;; specifies 3D edges
(uic_set_show_mode :3dgeo_face_color :on (oli::sd-inq-current-vp)) ;;specifies 3D faces will be drawn with face color
(uic_set_show_mode :3dgeo_face_reflectance :off (oli::sd-inq-current-vp)) ;; specified 3D faces will be drawn with face reflectance properties 
(uic_set_show_mode :3dgeo_face_transparency :off (oli::sd-inq-current-vp)) ;;specifies 3D faces will be drawn with face transparency 
(uic_set_show_mode :3dgeo_edge_color :off (oli::sd-inq-current-vp)) ;; specifies 3D edges will be drawn with edge color 
(uic_set_show_mode :3dgeo_hidden :on (oli::sd-inq-current-vp)) ;; specifies 3D hidden edges 
(uic_set_show_mode :3dgeo_hidden_dimmed :off (oli::sd-inq-current-vp)) ;; specifies 3D hidden edges will be drawn with dimmed edge color 
(uic_set_show_mode :3dgeo_label :on (oli::sd-inq-current-vp)) ;; specifies 3D labeling 
(uic_set_show_mode :3dgeo_mixed :off (oli::sd-inq-current-vp)) ;; specifies 3D that mixed settings attached are used to control the appearance of 3D geometry 
(uic_set_show_mode :3dgeo_part_reflectance :off (oli::sd-inq-current-vp)) ;; specifies 3D faces will be drawn with part reflectance properties 
(uic_set_show_mode :3dgeo_part_transparency :on (oli::sd-inq-current-vp)) ;;specifies 3D faces will be drawn with part transparency 
(uic_set_show_mode :3dgeo_shaded :on (oli::sd-inq-current-vp)) ;; specifies 3D shaded geometry 
(uic_set_show_mode :3dgeo_vertices :off (oli::sd-inq-current-vp)) ;; specifies 3D vertices 
(uic_set_show_mode :3dgeo_wire :off (oli::sd-inq-current-vp)) ;; specifies 3D wire edges 
(uic_set_show_mode :clip_planes :on (oli::sd-inq-current-vp)) ;; specifies model clip plane feedback 
(uic_set_show_mode :coord_system :on (oli::sd-inq-current-vp)) ;; specifies coordinate systems 
(uic_set_show_mode :docu_planes :on (oli::sd-inq-current-vp)) ;; specifies docu planes 
(uic_set_show_mode :feature_pts :on (oli::sd-inq-current-vp)) ;; specifies feature points 
(uic_set_show_mode :workplane_sets_match_lines :on (oli::sd-inq-current-vp)) ;; specifies workplane set match lines 
(uic_set_show_mode :workplanes :on (oli::sd-inq-current-vp)) ;; specifies workplanes 
(uic_set_show_mode :workplanes_border :on (oli::sd-inq-current-vp)) ;; specifies workplane borders 
(uic_set_show_mode :workplanes_hidden :on (oli::sd-inq-current-vp)) ;; specifies hidden workplanes 
(uic_set_show_mode :workplanes_label :on (oli::sd-inq-current-vp)) ;; specifies workplane labeling 
(uic_set_show_mode :workplanes_local_axis :off (oli::sd-inq-current-vp)) ;; specifies workplanes local axis 
(uic_set_show_mode :workplanes_2dgeo :on (oli::sd-inq-current-vp)) ;; specifies a workplane's 2D geometry 
(uic_set_show_mode :workplanes_2dconstruction :on (oli::sd-inq-current-vp)) ;; specifies a workplane's 2D construction 
(uic_set_show_mode :workplanes_2dgeo_label :on (oli::sd-inq-current-vp)) ;; specifies a workplane's 2D labeling 
(uic_set_show_mode :workplanes_2dgeo_vertices :off (oli::sd-inq-current-vp)) ;; specifies a workplane's 2D vertices 
(uic_set_show_mode :layouts :on (oli::sd-inq-current-vp)) ;; specifies layouts 
(uic_set_show_mode :layout_view_border :on (oli::sd-inq-current-vp)) ;; specifies layout borders 
(uic_set_show_mode :layout_view_label :on (oli::sd-inq-current-vp)) ;; specifies layout view labels
(uic_set_show_mode :CLIP_LINES :on (oli::sd-inq-current-vp)) ;; Schnittlinie 
(uic_set_show_mode :WORKPLANES_DIM_INACTIVE :off (oli::sd-inq-current-vp)) ;;
(uic_set_show_mode :WORKPLANES_2DGEO_LINE_TYPE :on (oli::sd-inq-current-vp)) ;;
(uic_set_show_mode :WORKPLANES_2DGEO_COLOR :on (oli::sd-inq-current-vp)) ;;
(uic_set_show_mode :CLIP_HATCHES :on (oli::sd-inq-current-vp)) ;;


(setf Ansicht (oli::make-sd-vp-camera-struct :from-pt 3535.9590224483145,-5577.6211193499767,3545.2219418248696 :to-pt 356.32921523652607,-70.340744097683825,-96.6814891018238
 :up-dir -0.24848292734480548,0.43038505496691565,0.86777009586599663 :back-clip 1393.1099303067292
 :front-clip -1681.0809313264472 :projection 1.0 :view-field 9.3729971890043338))	
 
(oli::sd-set-vp-camera (oli::sd-inq-current-vp) Ansicht :smooth t)