;;;*-*TXT acad.lsp is loaded once, acaddoc.lsp is loaded for each
;;;       document, s::startup in any case is called after acaddoc.lsp
;;;       has been loaded
;
;;(if (= nil acad_helpdlg)
;; (progn
;;    (load "acadr15.lsp")
;;    (load (strcat (getvar "menuname") ".mnl"))
;;  )
;;)
(if (= nil genlade)
  (progn
    (princ (load "gen/acadm.lsp" "\nError: acadm.lsp not loaded!"))
    (if acadmappend (setq s::startup (acadmappend s::startup)))
  )
)

;;;;;;;;;;;;;;Pfade;;;;;;;;;;;;;;;;;;;;;Pfade ;;;;;;;;;;;Pfade;;;;;;;;;;;;;;Pfade;;;;;;;;;;;;;;;

; Pfad zu den ZeichnungsRahmen und Schriftfeldern setzen
(gencfgset "gen@Paths@DWGTitle" "C:\\shs-menue") 

(gencfgset "gef@paths@libpath" "P:/Autodesk/LIB/SHS/")
(gencfgset "gen@paths@libpath" "P:/Autodesk/LIB/SHS/")
(gencfgset "gen@library@usr@library@Dir@root@file" "P:/Autodesk/LIB/SHS/genshs.glf")
(amgsetdwgsetting "gef@symbol@weldsize" 0.7) ;verkleinert die neuen Schweißsymbole




;;;;;;;;;LOGO;;;;;LOGO;;;;;LOGO;;;;;LOGO;;;;;LOGO;;;;;LOGO;;;;;LOGO;;;;;LOGO;;;;;

;Tauscht das alte SHS-Logo gegen das neue aus
(command "_-insert" "SHS_Logo_PDM=c:\\SHS-Menue\\logo\\SHS_Logo_PDM_2.dwg" nil)
(command "_-insert" "SHS_Logo=c:\\SHS-Menue\\logo\\SHS_Logo_2.dwg" nil)














;;;;;;;;;;;;;;;;;;;;;Hier sollen alle Programme eingetragen werden die bei jedem Öffnen einer Zeichnung geladen werden;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
(load "c:/shs-menue/lisp-vba/Plot-Seiteneinrichtungen_aktualisieren/loe-plot-se-1.lsp")   ; Seiteneinrichtung löschen und von Plotvorlage.dwg neu importieren


(load "c:/shs-menue/lisp-vba/hatch-del/hatch-del.lsp") ; löscht alle Schraffuren






;;;;;;;;;;; sezten von Sysemvariablen ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



(command "_commandline");2010 öffnen der Befehlszeile




(setvar "textfill" 1)
(setvar "hpname" "ansi31")
(setvar "mbuttonpan" 1)
(setvar "shortcutmenu" 11)   ; short... gut ist 11 

(setvar "filedia" 1)
;(setvar "modemacro" "neue Werkzeugkästen bitte schließen")
(setvar "modemacro" ".")
;(setvar "savetime" 5)
(setvar "sdi" 0)
(setvar "WMFBKGND" 0)
(setvar "pdsize" 0.01)
(setvar "pickadd" 1) , 1 ermöglicht das markieren mehrerer Objekte           1
(setvar "maxsort" 100)
(setvar "dimdec" 1)
(setvar "mirrtext" 0)
(setvar "DIMASSOC" 1)  ;1 schaltet die assotioativität zwischen Maß und Linie aus
(setvar "pickfirst" 1)
(setvar "osnapcoord" 1)
;(command "auflös" "J" "200" );Standard 200
;(setvar "cursorsize" 100)
(setvar "highlight" 1)
(setvar "dragmode" 2) ; anzeigen der Objekte beim Verschieben                2
(setvar "fontalt" "isocp.shx")
(setvar "xfadectl" 40)
(command "amclosht" 0)   ;Überstand der Mittellinien
(setvar "filletrad" 0)  ;Radius auf 0 Stellen
(setvar "UCSFOLLOW" 0)  ;merkt sich die Zommeinstellung beim Wechseln von Layout und Modell
(setvar "PROXYNOTICE" 0); 0 schaltet Meldung für Proxys aus
(setvar "INPUTHISTORYMODE" 6); 6 schaltet die History der Eingaben unter den Pfeiltasten ein
(setvar "ucsfollow" 0)  ; 0 ist richtig, sonst wird nach dem Bemaßen auf Grenzen gezoomt
(setvar "UCSICON" 0) ; schaltet das XY-Symbol in der Zeichnung aus mit 1 2 oder 3 schaltet ein





;;;;;;;;; Layer setzen ;;;;;;; Layer setzen ;;;;;;;  Layer setzen ;;;;;;;  Layer setzen ;;;;;;;  Layer setzen ;;;;;;;   

;(command "_amsymstd" "shs_tb2" "")

(command "-bemstil" "H" "SHS_TB2"); Stellt SHS_TB2 als aktuellen Bemaßungsstil ein



(command "-layer" "A" "AM_9,AM_9N,AM_INV" "" );Layer ausschalten Achtung hat evtl. Einfluss auf Mechanical-Funktionen
(command "-layer" "EI" "AM_VIEWS" "" )	;Layer einschalten
(command "-layer" "T" "AM_VIEWS" "" )	;Layer tauen
;(command "-layer" "A" "AM_0" "j" "" );Layer ausschalten Achtung hat evtl. Einfluss auf Mechanical-Funktionen


(command "-layer" "P" "k" "AM_CL,AM_Views,M_ERR" "" );Layer auf nicht Plotten setzen
(command "-layer" "P" "p" "SHS-title-plot-aus" "" );Layer auf Plotten setzen

 



;;;;;;;Start einer zusätzlichen Lisp-Datei auf dem Server ;;;;;;;;;;
;(load "P:/Autodesk/ACAD_Mech_2010/Start/startdoc.lsp")