;; defun C STARTUP (/) (if (not (= (substr (ver) 1 11) "Visual LISP")) (load "acad2005doc.lsp")) (if (/= (getvar "cmdecho") 1) (setvar "cmdecho" 0)) ;; ) (setvar "OSMODE" 557) (setvar "autosnap" 61) (setvar "psltscale" 0) ;; Scalierung im Papierbereich ;; (setvar "LTSCALE" 1) ;; globale scalierung ;; (setvar "CELTSCALE" 1) ;; scalierung für objekt loka (setvar "DIMASSOC" 2) ;; assoziative Bemaßungen 1 nein (setvar "pdmode" 1) (setvar "pdsize" -2.0) (setvar "filedia" 1) ;; (setvar "PSTYLEPOLICY" 0) (setvar "PEDITACCEPT" 1) (setvar "CMDDIA" 1) (command "_Viewres" "_Y" "1000") (setvar "SPLINESEGS" 100) (setvar "FACETRES" 2) (setvar "ISOLINES" 100) ;; (setvar "LWDEFAULT" 0.15) (if (/= (getvar "attdia") 0) (setvar "attdia" 0)) (if (/= (getvar "attmode") 1) (setvar "attmode" 1)) (if (/= (getvar "attreq") 0) (setvar "attreq" 0)) (if (/= (getvar "measureinit") 1) (setvar "measureinit" 1));; start mit Zeichnungseinheiten auf Britisch oder 1 Metrisch ein (if (/= (getvar "measurement") 1) (setvar "measurement" 1));; Bestimmt die Zeichnungseinheiten für die aktuelle Zeichnung ;; (if (/= (getenv "MaxHatch") "1000000") (setenv "MaxHatch" "1000000")) ;;Punkte in Schraff (if (/= (getenv "MaxHatch") "500000") (setenv "MaxHatch" "500000")) ;;Punkte in Schraff ;; (setvar "MSLTSCALE" 1) ; erst ab 2008 ;; ---------------- ;; Dezimal ; Stellen ; Winkel_dezi ; Winkel_stellen ;; Richtung ; Gegen Uhrz; ;; (command "_.-units" 2 4 1 2 0.0 "_n") ;; oder------------ (if (/= (getvar "aunits") 0) (setvar "aunits" 0)) ;; Bestimmt die Winkeleinheiten. 0 Dezimalgrad (if (/= (getvar "lunits") 2) (setvar "lunits" 2)) ;; Steuert, ob die Einheiten für die Linienstõrke in Zoll oder in 1=MILLImeter (if (/= (getvar "luprec") 4) (setvar "luprec" 4)) ;; Anzahl stellen (if (/= (getvar "lwunits") 1) (setvar "lwunits" 1)) ;; Einheiten für die Linienstõrke in Zoll oder in Millimeter = 1 (if (/= (getvar "Insunits") 4) (setvar "Insunits" 4)) ;; Einheiten von Blockeinfügen 6= Meter 4=MILLIm ;; ----------------------------------------------------------------------------- ;; alle fehlerhaft (command "_insert" "#Schrift.dws" (getfiled "#Schrift" "f:/Vermessung/Vorlagen/" )) ;; (command "-einfüge" "F:/Vermessung/Vorlagen/#SCHRIFT" ) ; fehler ;; (load "f:/Vermessung/Vorlagen/#SCHRIFT") ;; (command _layout _template #SCHRIFT.dwg) ;; (command "_INSERT" "#Schrift.dws" = "f:/Vermessung/Vorlagen/#SCHRIFT") ;; fehler ;; ----------------------------------------------------------------------------- ;;; Bemaßung Standard erstellen oder setzen (command "BEMSTIL" "H" "Standard") ;; Schriftgröße wird wenn aus ;; (command "BEMSTIL" "Si" "Standard") ;; Schriftgröße wird wenn aus (SETVAR "DIMTXT" 0.8) ;; Textgröße auf x.x ;; vom aktuellen Bemaßungsstil übernommen (SETVAR "DIMASZ" 0.2) ;; Pfeilgröße auf 0.2 (SETVAR "DIMSCALE" 1) ;; Bemaßungsskalierung auf 1 ;; (setvar "DIMBLK1" "_dot") ;; Pfeilspitze (SETVAR "DIMGAP" 0.5 ) ;; Textabstand zur Hilfslinie (setvar "DIMTAD" 0 ) ;; Text über Linie = 1; Mitte =0 (SETVAR "DIMCEN" 0.2) ;; größe der Mittelpunktmarkierung (SETVAR "DIMEXO" 0.2) ;; Hilfslinienversatz (SETVAR "DIMEXE" 0.2) ;; Hilfslinienverlängerung (SETVAR "DIMDLI" 0.2) ;; Bem-Linienabstand (SETVAR "DIMEXO" 0.0) ;; Abstand zum Bezugspunkt (SETVAR "DIMTIH" 0 ) ;; Textausrichtung Horizontal oder an Lin (SETVAR "DIMTOH" 0 ) ;; 1 0 ;; (command "_dimstyle" "h" "0.7-2st") ;;; Schrifttypen erstellen oder setzen (setvar "textsize" 0.7) (command "_.-style" "Standard" "simplex.shx" 0.8 0.8 0 "_N" "_N" "_N") (command "_.-style" "0_7_iso" "isocp.shx" 0.7 1.0 0 "_N" "_N") ;;;------------------------------------------------------------------------------ ;;; Layer erstellen (command "_LAYER" "ma" "0" "FArbe"5 "" "Ltyp" Continuous "LStärke" 0.09 "" "Plot" "Kein" "" "") (command "_LAYER" "Ma" "0-Hilfslinien" "FArbe"1 "" "Ltyp" Continuous "LStärke" 0.09 "" "Plot" "Kein" "" "") ;;; ?/Machen/Stzen/Neu/ EIn/ Aus/FArbe/Ltyp/ LStärke/Plot/PStil/FRieren/Tauen/ SPerren/Entsperren/ STatus ;;; weitere Optionen bei Farbe: Truecolor/Farbbuch ;;; weitere Optionen bei Plot: Plot/Kein Plot ;;; weitere Optionen bei Status: ?/Speichern/Wiederherstellen/Bearbeiten/Name/Löschen/Importieren/Exportieren ;;; weitere Optionen bei Speichern und Bearbeiten: Ein/Gefroren/SPerre/Plot/neue AFs frieren/Farbe/linienTyp/Linienstärke/plotSTil ;;; ^C^C_.-layer;se;0-Hilfslinien ;fa 1; ;Lt;Continuous; ;ls;0.0;;P;K; ; ; celtype "Continuous"; (command "CLAYER" "0-Hilfslinien") ;;;------------------------------------------------------------------------------- (if (/= (getvar "cecolor") "BYLAYER") (setvar "cecolor" "BYLAYER")) ;;Farbe (if (/= (getvar "celtype") "BYLAYER") (setvar "celtype" "BYLAYER")) ;;Linientyp (if (/= (getvar "celweight") -1) (setvar "celweight" -1)) ;; -1 = VONLAYER (command "_plotstyle" "_C" "VonLayer") (if (ssget "_X" '((60 . 1)))(alert "Achtung in Zeichnung ausgeblendete Objekte enthalten"))^C #################################################################################################################################### Start Protokoll alter REchner ------------------- Regeneriert Modell. ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + FixCombos + + Copyright ©2000,2001,2002 CADwerx (http://www.cadwerx.net) + ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *** Massstab-laden MS*** Befehl: Befehl: AutoCAD Express Tools Copyright © 2002-2004 Autodesk, Inc. Regeneriert Modell. Regeneriert Modell. _Viewres Wollen Sie Schnellzoom? [Ja/Nein] : _Y Kreiszoomkomponente eingeben (1-20000) <1000>: 1000 BEMSTIL H Standard Unbekannter Bemaßungsstil. _dimstyle h 0.7-2st Unbekannter Bemaßungsstil. _.-style Standard simplex.shx 0.800000000000000 0.800000000000000 0 _N _N _N _.-style 0_7_iso isocp.shx 0.700000000000000 1.000000000000000 0 _N _N _LAYER ma 0 FArbe 5 Ltyp LStärke 0.090000000000000 Plot Kein _LAYER Ma 0-Hilfslinien FArbe 1 Ltyp LStärke 0.090000000000000 Plot Kein CLAYER 0-Hilfslinien _plotstyle _C VonLayer AutoCAD Menü-Dienstprogramme geladen. ------------------> cadditions wird geladen... Lade Voreinstellungen aus C01-UserConfig.lsp... ------------------> cadditions geladen! -- MENÜ-Layblaet -- geladen -- PFEIL -- geladen -- LTS -- geladen Befehl: *Abbruch* Befehl: *Abbruch*