(sha-define-shop "mc_demoshop" :MATERIALS "sheet_metals" ; must :BEND-PROCESSES "bend_forming" :CUT-PROCESSES "punches" :BEND-RELIEFS ("no_relief" "rect_relief" "rnd_relief" "obl") :CORNER-RELIEFS "no_corner_relief" :MIN-RELIEF-FALLBACK (:KEEP-ATTRIBUTES T :TOOL (:TABNAME "min_perp_v_corner_relief" :ROWKEY (:MIN_WIDTH 1 :MIN_LENGTH 3 :MIN_ANGLE 0.17453292519943295))) :ALLOWANCE_FORMULA sh_bend_allowance_din :ALLOWANCE_TABLE "general_allowances" :UP-FLAG "AUF" :DOWN-FLAG "AB" :BEND-FLAT-TEXT ("R={1}mm W={2}³ Ez={3}mm {4}" :RADIUS :DEG :ANGLE 1 :ALLOWANCE :UPDOWN) :HEM-FLAT-TEXT ("180Grad Abst={1}mm Ez={2}mm {3}" :HEM_DIST 1 :ALLOWANCE :UPDOWN) :LOCALIZED-KEYWORDS (:UP "AUF" :DOWN "AB" :PREF "VORZUG" :NONPREF "NICHTVORZUG") :DISABLE-SORT T :CONTACT "MC" :PHONE "???" :BROWSER-ICON "icon_shop" ) ;################################################################################### ;Daten des MC-Demoshops ;################################################################################### (sha-define-shop-table "sheet_metals" :TABLE-TITLE "Bleche" :COLUMNS (:MAT_ID :MATERIAL :THICK :TENSILE_STRENGTH :MIN_BEND_RAD ) :COLUMN-NAMES ("Mat_ID" "Material" "Dick" "Zugfestigkeit" "MinBiegeradius") :UNITS (nil nil :MM :N/MM^2 :MM ) :CONTENTS ( ("1.4301_2" "1.4301" 2.00 1 2 ) ("1.4301_2.5" "1.4301" 2.50 1 2 ) ) :KEY (:MATERIAL :THICK) ; The material key MUST not be changed ; A FLAT-TEXT info is not used :HELP "sha_sheet_metals" :BROWSER-ICON "icon_shmetals" ) (sha-define-shop-table "bend_forming" :TABLE-TITLE "bend_forming" :COLUMNS (:RADIUS :WZG_ANGLE :PREFERENCE :MAX_THICK :ADVICE) :COLUMN-NAMES ( "Rad" "Win" "Vorzug" "MaxDick" "Fertigungsgerecht") :UNITS ( :MM :DEG nil :MM nil) :CONTENTS ( (2.00 2 :PREF 100 "-") ) :ALLOWANCE_FORMULA sh_bend_allowance_din :ALLOWANCE_TABLE "bend_form_allow" :DISPLAY (:RADIUS :PREFERENCE :ADVICE) :KEY (:RADIUS ) :FLAT-TEXT ("") ;Text an Biegelinie. :HELP "sha_bend_form" :BROWSER-ICON "icon_bend_form" ) (sha-define-shop-table "hems" :TABLE-TITLE "180Grad-Biegungen" :COLUMNS ( :HEM_DIST :PREFERENCE :ALLOWANCE_TABLE :MAX_THICK :MIN_LIP_LENGTH :ADVICE) :COLUMN-NAMES ("Abst" "Vorzug" "EinzugswTab" "MaxDick" "MinLaschLÌng" "Fertigungsgerecht") :UNITS ( :mm nil nil :mm :mm nil) :CONTENTS ( (0.01 :PREF "hem_allow" 2 5 "-") ) :DISPLAY (:HEM_DIST :PREFERENCE :ADVICE) :FLAT-TEXT ("") :HELP "sha_hems" :BROWSER-ICON "icon_hems" ) (sha-define-shop-table "no_relief" :TABLE-TITLE "Keine Freisparung" :COLUMNS ( :TYPE :ADVICE) :COLUMN-NAMES ("Art" "Fertigungsgerecht") :UNITS ( nil nil) :CONTENTS ( ("None via cut" "-") ) :KEY (:TYPE) :DISPLAY (:TYPE :ADVICE) :HELP "sha_no_relief" :MENU-ENTRY "Angepasst" :USABLE-AS-RELIEF ( :LENGTH_X_ANGLE 0 ; rot angle when bend is in X_POS :LENGTH t ; dynamic adapted tool length => no size check ) :IMPRINT_FNC sha-relief-cut-1 ; internal function ; NOT for public change :BROWSER-ICON "icon_no_rel" :PROF_FNC nil ) (sha-define-shop-table "rnd_relief" :TABLE-TITLE "Runde Freisparung" :COLUMNS (:HORIZ :VERT :TOOL_ID :DESCR :MIN_THICK :MAX_THICK :PREFERENCE :ADVICE) :COLUMN-NAMES ("Horiz" "Breite" "WrkzgID" "Beschr" "MinDick" "MaxDick" "Vorzug" "Fertigungsgerecht") :UNITS (:mm :mm nil nil :mm :mm nil nil) :CONTENTS ( (12.70 1.60 "08012" "6662" 0 100 :NONPREF "-") (17.50 2.00 "08314" "7278" 0 100 :PREF "-") ( 6.40 2.40 "08022" "0899" 0 100 :PREF "-") (12.70 3.20 "08048" "GB" 0 100 :PREF "-") ) :KEY (:VERT) :DISPLAY (:VERT :PREFERENCE :ADVICE) :FLAT-TEXT ("") :FLAT-INFO (":TOOL_ID {1}" :TOOL_ID) :REPLACEMENT-INFO ("sha_remove_relief {1}" :VERT) :HELP "sha_obl" :USABLE-AS-ROUND-RELIEF :VERT :BROWSER-ICON "icon_round_rel" :USABLE-AS-RELIEF (:WIDTH :VERT ; width column for relief :DEPTH :HORIZ ; depth column for relief :LENGTH_X_ANGLE (:DEG 90) ; rot angle when bend is in X_POS ) :PROF_FNC sha-obl-profile ) (sha-define-shop-table "rect_relief" :TABLE-TITLE "Eckige Freisparung" :COLUMNS ( :HORIZ :VERT :TOOL_ID :DESCR :MIN_THICK :MAX_THICK :PREFERENCE :ADVICE) :COLUMN-NAMES ( "Horiz" "Breite" "WrkzgID" "Beschr" "MinDick" "MaxDick" "Vorzug" "Fertigungsgerecht") :UNITS ( :mm :mm nil nil :mm :mm nil nil) :CONTENTS ( (10.00 0.01 "00000" "00" 0 100 :NONPREF "-") (8.20 1.00 "07010" "4787" 0 100 :PREF "-") (13.70 1.60 "07018" "1048" 0 100 :PREF "-") (9.50 2.00 "07012" "3703" 0 100 :NONPREF "-") (25.40 3.20 "07024" "PZ" 0 100 :PREF "-") (32.00 10.00 "07044" "JB" 0 100 :NONPREF "-") (45.00 22.20 "04488" "7251" 0 100 :NONPREF "-") ) :KEY (:VERT) :DISPLAY (:VERT :PREFERENCE :ADVICE) :FLAT-TEXT ("") :HELP "sha_rect_sharp" :USABLE-AS-RECTANGULAR-RELIEF :VERT :USABLE-AS-RELIEF (:WIDTH :VERT ; width column for relief :DEPTH :HORIZ ; depth column for relief :LENGTH_X_ANGLE (:DEG 90) ; rot angle when bend is in X_POS ) :DEFAULT-FUNCTION sha-default-relief-tool :BROWSER-ICON "icon_rect_rel" :PROF_FNC sha-rect-sharp-profile ) (sha-define-shop-table "no_corner_relief" :TABLE-TITLE "Keine 2D-Eckenfreisparung" :COLUMNS (:LENGTH :TOOL_ID :DESCR :MIN_THICK :MAX_THICK :PREFERENCE :ADVICE) :COLUMN-NAMES ("Breite" "WrkzgID" "Beschr" "MinDick" "MaxDick" "Vorzug" "Fertigungsgerecht") :UNITS ( :mm nil nil :mm :mm nil nil) :CONTENTS ( (2.50 "03009" "7253" 0 100 :NONPREF "-") (4.00 "03010" "CQ" 0 100 :PREF "-") (5.50 "03016" "FP" 0 100 :PREF "-") (6.40 "03020" "DA" 0 100 :PREF "-") (10.00 "03035" "" 0 100 :NONPREF "-") ) :KEY (:LENGTH) :DISPLAY (:LENGTH :PREFERENCE :ADVICE) :FLAT-TEXT (:TOOL_ID) :REPLACEMENT-INFO ("sha_remove_corner_relief") :HELP "sha_sqr_sharp" :USABLE-AS-CORNER-RELIEF :LENGTH :USABLE-AS-RELIEF (:WIDTH :LENGTH ; width column for relief :DEPTH :HORIZ ; depth column for relief :LENGTH_X_ANGLE (:DEG 90) ; rot angle when bend is in X_POS ) :BROWSER-ICON "icon_sqr_co" :PROF_FNC sha-sqr-corner-sharp-profile ) (sha-define-shop-table "hem_allow" :TABLE-TITLE "180-Grad-Einzugswerte" :COLUMNS (:MATERIAL :THICK :HEM_DIST :ALLOWANCE) :UNITS (nil :mm :mm :mm) :CONTENTS ( ("1.4301" 2.00 0.01 -0.00) ) :KEY (:MATERIAL :THICK :HEM_DIST) ) (sha-define-shop-table "bend_form_allow" :TABLE-TITLE "bendforming-Biegeeinzugswerte" :COLUMNS (:MATERIAL :THICK :ANGLE :RADIUS :ALLOWANCE) :UNITS (nil :mm :deg :mm :mm) :CONTENTS ( ("1.4301" 2.00 0.0 2.0 -0.00) ("1.4301" 2.00 180.0 2.0 -0.00) ;----------------------------------------------------------------------------------- ("1.4301" 2.50 0.0 2.7 -0.00) ("1.4301" 2.50 180.0 2.7 -0.00) ) :KEY (:MATERIAL :THICK :ANGLE :RADIUS) ) (sha-define-shop-table "check_distances" :TABLE-TITLE "AbstÌnde prÏfen" :COLUMNS (:PROCESS :FACT1 :FACT2 :FACT3 :FACT4 :MIND1 :MIND2 :MIND3 :MIND4 ) :COLUMN-NAMES ("ProzeÞ" "Anonym" "Stanz" "PrÌg" "FreiBieg" "Anonym" "Stanz" "PrÌg" "FreiBieg") :UNITS ( nil nil nil nil nil :mm :mm :mm :mm ) :CONTENTS ( ("anonymous" 0 2.5 5.0 0 0 3.2 6.4 0 ) ("punches" 2.5 2.5 5.0 5.0 3.2 3.2 6.4 6.4 ) ("stamps" 5.0 5.0 5.0 5.0 6.4 6.4 6.4 6.4 ) ("air_bending" 0 5.0 5.0 0 0 6.4 6.4 0 ) ) :DIST-FORMULA check-dist :BROWSER-ICON "icon_checkdist" ) ; Default settings for this shop (sha-define-default-settings "seewer_shop" (UNITS 1.0 :mm) ; Set units for following default data. ; Save and reset of current units will be done ; automatically at begin respectively end of ; sha-define-default-settings. ; values in tool keys are ALWAYS in internal units [mm/rad/g] (sha_set_default_material "1.4301") ;Standardmaterial, welches vom SheetMetal eingetragen wird (sha_set_default_material_thickness 2) ;Standarddicke, welche vom SheetMetal eingetragen wird (sha_set_default_bend_process "bend_forming") ; Following three alternatives for default bend radius definition may be used. ; The system seeks for a default radius definition in following sequence: ; 1. seek for a process specific definition, (see example :DEFAULT-FUNCTION ; entry at air_bending) ; if not found ; 2. seek for a shopwide default function definition (see below) ; if not found ; 3 take the fixed value given by sha_set_default_bend_radius (see below) (sha_set_default_bend_radius 2.0) ;Standardradius, welcher vom SheetMetal eingetragen wird (sha-set-default-bend-radius-function 'sha-default-bend-radius) (sha_set_default_hem_process "hems") (sha_set_default_hem_dist 0.01) ;Standardabstand bei 180³-Biegungen (sha_set_default_relief_type "rnd_relief") ;Standard-Biegefreisparungsart (sha_set_default_relief_tool '(:VERT 1.6)) ;Standard-BiegefreisparungswerkzeuggrÎsse (sha_set_default_relief_depth 1.0) ;Standard-Biegefreisparungstiefe ;(sha_set_default_corner_relief_type "sqr_corner_relief") ;(sha_set_default_corner_relief_tool '(:LENGTH 2.5)) ;(sha_set_default_corner_relief_type "min_perp_v_corner_relief") ;(sha_set_default_corner_relief_tool (list :MIN_WIDTH 1 :MIN_LENGTH 3 ; :MIN_ANGLE (sd-deg-to-rad 10))) (sha_set_default_corner_relief_type "rnd") ;Standard-Eckenfreisparungsart (sha_set_default_corner_relief_tool '(:DIA 8.00)) ;Standard-EckenfreisparungswerkzeuggrÎsse (sha_set_default_bodycheck_flag :ON) ; The following settings are required for the flat generation (sha_set_sharp_bend_radius 2.0) (sha_set_flat_default_color (rgb-color 1.0 1.0 1.0)) ; set to white ;normale KÎrperkanten in der Abwicklung (sha_set_flat_fold_up_color (rgb-color 0.0 1.0 1.0)) ; set to cyan ;Biegelinienfarbe aufwÌrts (sha_set_flat_fold_down_color (rgb-color 0.0 1.0 1.0)) ; set to cyan ;Biegelinienfarbe abwÌrts (sha_set_flat_tool_color (rgb-color 1.0 1.0 1.0)) ; set to white ;z.B. die Eckenfreisparung (sha_set_flat_error_color (rgb-color 1.0 0.0 0.0)) ; set to red ;Fehlerfarbe rot (sha_set_flat_fold_up_linetype 5) ; set to solid ;Biegelinienart aufwÌrts (sha_set_flat_fold_down_linetype 5) ; set to dashed ;Biegelinienart abwÌrts (sha_set_flat_text_size 3.5) ; std text size ;TextgrÎsse (sha_set_flat_default_linewidth 0.0) ; no line width (sha_set_flat_tool_linewidth 0.0) ; no line width (sha_set_flat_error_linewidth 0.0) ; no line width (sha_set_flat_fold_up_linewidth 0.0) ; no line width (sha_set_flat_fold_down_linewidth 0.0) ; no line width (sha_set_flat_show_labels t) ; all labels (sha_set_flat_show_reference_point t) ; feature ref.pt. ;Anzeigen der Positionierpunkte (sha_set_flat_workplane_offset 0) ; flat WP pos. (sha_set_flat_part_name "sha-flat") ; ME10 part name (sha_set_flat_trim_bend_lines t) ; cut bend lines ; at geometry (sha_set_flat_single_bend_text nil) ; one bend text if ; bend is split (sha_set_show_mergeable_lines nil) ; bend bordrs off (sha_set_flat_show_no_relief_info nil) ; do not show no ; relief geometry (sha-enable-replacements) ; Enable replace- (sha-disable-relief-replacement) ; ments of relief ;Sichtbarmachen der Biegefreisparungen, vorher:(sha-enable-relief-replacement) (sha-enable-corner-relief-replacement) ; feat. in flat (sha-set-costmodel-function 'sha-cost-model) ; set costmodel ) ;;; For above linetype setting: ;;; Valid linetypes are: ;;; ;;; 0 = SOLID 1 = DASH 2 = DOT ;;; 3 = DASH_DOT 4 = DASH_DOT_DOT 5 = LONG_DASH ;;; 6 = CENTER_DASH 7 = CENTER_DASH_DASH 8 = PHANTOM ;;; ;;; For further infos refer to ;;; CoCreate ME10 Interfacing documentation ; Out-comment the following line if you don't want this shop becoming the ; default shop when loading this file (sha_set_current_shop "mc_demoshop") (sha-default-settings "mc_demoshop")