;;;Linientypen ändern Sammlung
;;;    Ver. 1.3
;;;  Manuel Faust, 10/2020
;
;Ändern aller Linientypen (direkt zugewiesen + Von Layer), die immer wieder geändert werden müssen, wird immer weiter ergänzt !
;
;
;
;Alle Linientypen mit der Linientypdatei acad.lin laden / 
;
_.EXPERT 5
_.-LINETYPE _Load * acad.lin 
_.EXPERT 0
;
;
;
;Ändert Linientypen direkt zugewiesen / 
;
;Alle folgenden Linientypen werden auf VonLayer gelegt / 
;
(if (ssget "_X" '((-4 . "<or")
(6 . "*VonBlock*")
(-4 . "or>")))
(command "_.CHPROP" "_P" "" "_LTYPE" "VonLayer" ""))
;
;
;
;Alle folgenden Linientypen werden auf Continuous gelegt / 
;
(if (ssget "_X" '((-4 . "<or")
(6 . "AM_DIN_F_W050")
(6 . "AM_DIN_F_W050x2")
(6 . "Böschung")
(6 . "GEN7A")
(6 . "IMPORT")
(6 . "STYLE_17")
(6 . "*Ausgezogen*")
(6 . "*DGN Style 0*")
(6 . "Sketch*")
(-4 . "or>")))
(command "_.CHPROP" "_P" "" "_LTYPE" "Continuous" ""))
;
;
;
;Alle folgenden Linientypen werden auf GETRENNT2 gelegt / 
;
(if (ssget "_X" '((-4 . "<or")
(6 . "*ACAD_ISO05W100*")
(6 . "*ACAD_ISO12W100*")
(6 . "*DGN Style 6*")
(6 . "*GETRENNT2*")
(6 . "GETRENNT*")
(-4 . "or>")))
(command "_.CHPROP" "_P" "" "_LTYPE" "GETRENNT2" ""))
;
;
;
;Alle folgenden Linientypen werden auf MITTE2 gelegt / 
;
(if (ssget "_X" '((-4 . "<or")
(6 . "Linienart-9")
(6 . "Strichpunktlinie Vorentwurf")
(6 . "STYLE_13")
(6 . "*ACAD_ISO08W100*")
(6 . "*CENTER2*")
(6 . "*DCA_Linienmuster_6*")
(6 . "*DGN Style 7*")
(6 . "*MITTE2*")
(6 . "CENTER*")
(6 . "Doppelstrichlinie*")
(6 . "MITTE*")
(-4 . "or>")))
(command "_.CHPROP" "_P" "" "_LTYPE" "MITTE2" ""))
;
;
;
;Alle folgenden Linientypen werden auf PHANTOM2 gelegt / 
;
(if (ssget "_X" '((-4 . "<or")
(6 . "*ACAD_ISO09W100*")
(6 . "*PHANTOM2*")
(6 . "Dreifachstrichlinie*")
(6 . "PHANTOM*")
(-4 . "or>")))
(command "_.CHPROP" "_P" "" "_LTYPE" "PHANTOM2" ""))
;
;
;
;Alle folgenden Linientypen werden auf PUNKT2 gelegt / 
;
(if (ssget "_X" '((-4 . "<or")
(6 . "Blase")
(6 . "Dämmung")
(6 . "ISO-07 Punktiert")
(6 . "LINIE_18")
(6 . "Strichlinie-eng1")
(6 . "Strichlinie-über-Schnitt")
(6 . "STYLE_18")
(6 . "Umgebung")
(6 . "*Abbruch*")
(6 . "*ACAD_ISO07W100*")
(6 . "*ALL_S16*")
(6 . "*ALL_S30*")
(6 . "*DCA_Linienmuster_1*")
(6 . "*DGN Style 1*")
(6 . "Dotted*")
(6 . "PUNKT*")
(-4 . "or>")))
(command "_.CHPROP" "_P" "" "_LTYPE" "PUNKT2" ""))
;
;
;
;Alle folgenden Linientypen werden auf RAND2 gelegt / 
;
(if (ssget "_X" '((-4 . "<or")
(6 . "*ACAD_ISO11W100*")
(6 . "*RAND2*")
(6 . "RAND*")
(-4 . "or>")))
(command "_.CHPROP" "_P" "" "_LTYPE" "RAND2" ""))
;
;
;
;Alle folgenden Linientypen werden auf STRICHLINIE2 gelegt / 
;
(if (ssget "_X" '((-4 . "<or")
(6 . "Grenze der Flur")
(6 . "Linienart-5")
(6 . "STRICHLINIE")
(6 . "STRICHLINIE-1")
(6 . "STRICHLINIEX2")
(6 . "STRICHLINIE_S4")
(6 . "STRICHLINIE-2_PD1")
(6 . "Strichlinie_ lang")
(6 . "Strichlinie _ sehr breit")
(6 . "STYLE_01")
(6 . "*ACAD_ISO02W101*")
(6 . "*ACAD_ISO03W100*")
(6 . "*DCA_Linienmuster_3*")
(6 . "*DGN Style 3*")
(6 . "*STRICHLINIE2*")
(-4 . "or>")))
(command "_.CHPROP" "_P" "" "_LTYPE" "STRICHLINIE2" ""))
;
;
;
;Alle folgenden Linientypen werden auf STRICHPUNKT2 gelegt / 
;
(if (ssget "_X" '((-4 . "<or")
(6 . "Öffnungslinie Tür Fenster")
(6 . "9311")
(6 . "ISO-04 Lang gestrichelt punktiert")
(6 . "_Strichpunkt - Mittel")
(6 . "Strich Punkt")
(6 . "STYLE_07")
(6 . "*ACAD_ISO04W100*")
(6 . "*ACAD_ISO10W100*")
(6 . "*DASHDOT2*")
(6 . "*DCA_Linienmuster_4*")
(6 . "*DGN Style 4*")
(6 . "*STRICHPUNKT2*")
(6 . "*STRICHPUNKTLINIE*")
(6 . "DASHDOT*")
(6 . "Dot & Dashed*")
(6 . "STRICHPUNKT*")
(-4 . "or>")))
(command "_.CHPROP" "_P" "" "_LTYPE" "STRICHPUNKT2" ""))
;
;
;
;Alle folgenden Linientypen werden auf VERDECKT2 gelegt / 
;
(if (ssget "_X" '((-4 . "<or")
(6 . "000 Linie gestrichelt 01 zurückliegende Kanten")
(6 . "050_verdeckte Kanten _whp_")
(6 . "1483")
(6 . "AStair_dashed")
(6 . "DASH")
(6 . "IMPORT-DGN2 _11_")
(6 . "ISO-02 Strichlinie")
(6 . "KR - Strichlinie 2")
(6 . "KURZGESTRICHELT")
(6 . "LINIE_16")
(6 . "Linienart-2")
(6 . "STRICHEL_3")
(6 . "Strich")
(6 . "Strichel kurz")
(6 . "Strichlinie_ eng")
(6 . "Strichlinie _ breit")
(6 . "Strichlinie _ breiter")
(6 . "Strichlinie _ normal")
(6 . "STYLE_02")
(6 . "STYLE_06")
(6 . "STYLE_08")
(6 . "STYLE_19")
(6 . "thk_line_type")
(6 . "VW-01 Strichlinie kurz")
(6 . "VW-02 Strichlinie mittel")
(6 . "*ACAD_ISO02W100*")
(6 . "*ALL_S25*")
(6 . "*ALL_S50*")
(6 . "*DASHED2*")
(6 . "*DCA_Linienmuster_2*")
(6 . "*DCA_Linienmuster_5*")
(6 . "*DGN Style 2*")
(6 . "*DGN Style 5*")
(6 . "*HIDDEN2*")
(6 . "*VERDECKT2*")
(6 . "Achse*")
(6 . "DASHED*")
(6 . "Dense Short Dashed*")
(6 . "HIDDEN*")
(6 . "Klapptür*")
(6 . "Short Dashed*")
(6 . "Shorter Dashed*")
(6 . "VERDECKT*")
(-4 . "or>")))
(command "_.CHPROP" "_P" "" "_LTYPE" "VERDECKT2" ""))
;
;
;
;Lädt die LISP: LLTCHANGE.lsp /  
;
(load "G:/1000SONS/CAD/Faust/LISP/LLTCHANGE.lsp")
;
;
;
;Ändert Linientypen Von Layer / 
;
;Alle folgenden Linientypen werden auf VonLayer gelegt / 
;
(LLTCHANGE '(
("*VonBlock*" "VonLayer")
))
;
;
;
;Alle folgenden Linientypen werden auf Continuous gelegt / 
;
(LLTCHANGE '(
("AM_DIN_F_W050" "Continuous")
("AM_DIN_F_W050x2" "Continuous")
("Böschung" "Continuous")
("GEN7A" "Continuous")
("IMPORT" "Continuous")
("STYLE_17" "Continuous")
("*Ausgezogen*" "Continuous")
("*DGN Style 0*" "Continuous")
("Sketch*" "Continuous")
))
;
;
;
;Alle folgenden Linientypen werden auf GETRENNT2 gelegt / 
;
(LLTCHANGE '(
("*ACAD_ISO05W100*" "GETRENNT2")
("*ACAD_ISO12W100*" "GETRENNT2")
("*DGN Style 6*" "GETRENNT2")
("*GETRENNT2*" "GETRENNT2")
("GETRENNT*" "GETRENNT2")
))
;
;
;
;Alle folgenden Linientypen werden auf MITTE2 gelegt / 
;
(LLTCHANGE '(
("Linienart-9" "MITTE2")
("Strichpunktlinie Vorentwurf" "MITTE2")
("STYLE_13" "MITTE2")
("*ACAD_ISO08W100*" "MITTE2")
("*CENTER2*" "MITTE2")
("*DCA_Linienmuster_6*" "MITTE2")
("*DGN Style 7*" "MITTE2")
("*MITTE2*" "MITTE2")
("CENTER*" "MITTE2")
("Doppelstrichlinie*" "MITTE2")
("MITTE*" "MITTE2")
))
;
;
;
;Alle folgenden Linientypen werden auf PHANTOM2 gelegt / 
;
(LLTCHANGE '(
("*ACAD_ISO09W100*" "PHANTOM2")
("*PHANTOM2*" "PHANTOM2")
("Dreifachstrichlinie*" "PHANTOM2")
("PHANTOM*" "PHANTOM2")
))
;
;
;
;Alle folgenden Linientypen werden auf PUNKT2 gelegt / 
;
(LLTCHANGE '(
("Blase" "PUNKT2")
("Dämmung" "PUNKT2")
("ISO-07 Punktiert" "PUNKT2")
("LINIE_18" "PUNKT2")
("Strichlinie-eng1" "PUNKT2")
("Strichlinie-über-Schnitt" "PUNKT2")
("STYLE_18" "PUNKT2")
("Umgebung" "PUNKT2")
("*Abbruch*" "PUNKT2")
("*ACAD_ISO07W100*" "PUNKT2")
("*ALL_S16*" "PUNKT2")
("*ALL_S30*" "PUNKT2")
("*DCA_Linienmuster_1*" "PUNKT2")
("*DGN Style 1*" "PUNKT2")
("Dotted*" "PUNKT2")
("PUNKT*" "PUNKT2")
))
;
;
;
;Alle folgenden Linientypen werden auf RAND2 gelegt / 
;
(LLTCHANGE '(
("*ACAD_ISO11W100*" "RAND2")
("*RAND2*" "RAND2")
("RAND*" "RAND2")
))
;
;
;
;Alle folgenden Linientypen werden auf STRICHLINIE2 gelegt / 
;
(LLTCHANGE '(
("Linienart-5" "STRICHLINIE2")
("Grenze der Flur" "STRICHLINIE2")
("STRICHLINIE" "STRICHLINIE2")
("STRICHLINIE-1" "STRICHLINIE2")
("STRICHLINIEX2" "STRICHLINIE2")
("STRICHLINIE_S4" "STRICHLINIE2")
("STRICHLINIE-2_PD1" "STRICHLINIE2")
("Strichlinie_ lang" "STRICHLINIE2")
("Strichlinie _ sehr breit" "STRICHLINIE2")
("STYLE_01" "STRICHLINIE2")
("*ACAD_ISO02W101*" "STRICHLINIE2")
("*ACAD_ISO03W100*" "STRICHLINIE2")
("*DCA_Linienmuster_3*" "STRICHLINIE2")
("*DGN Style 3*" "STRICHLINIE2")
("*STRICHLINIE2*" "STRICHLINIE2")
))
;
;
;
;Alle folgenden Linientypen werden auf STRICHPUNKT2 gelegt / 
;
(LLTCHANGE '(
("Öffnungslinie Tür Fenster" "STRICHPUNKT2")
("9311" "STRICHPUNKT2")
("ISO-04 Lang gestrichelt punktiert" "STRICHPUNKT2")
("_Strichpunkt - Mittel" "STRICHPUNKT2")
("Strich Punkt" "STRICHPUNKT2")
("STYLE_07" "STRICHPUNKT2")
("*ACAD_ISO04W100*" "STRICHPUNKT2")
("*ACAD_ISO10W100*" "STRICHPUNKT2")
("*DASHDOT2*" "STRICHPUNKT2")
("*DCA_Linienmuster_4*" "STRICHPUNKT2")
("*DGN Style 4*" "STRICHPUNKT2")
("*STRICHPUNKT2*" "STRICHPUNKT2")
("*STRICHPUNKTLINIE*" "STRICHPUNKT2")
("DASHDOT*" "STRICHPUNKT2")
("Dot & Dashed*" "STRICHPUNKT2")
("STRICHPUNKT*" "STRICHPUNKT2")
))
;
;
;
;Alle folgenden Linientypen werden auf VERDECKT2 gelegt / 
;
(LLTCHANGE '(
("000 Linie gestrichelt 01 zurückliegende Kanten" "VERDECKT2")
("050_verdeckte Kanten _whp_" "VERDECKT2")
("1483" "VERDECKT2")
("AStair_dashed" "VERDECKT2")
("DASH" "VERDECKT2")
("IMPORT-DGN2 _11_" "VERDECKT2")
("ISO-02 Strichlinie" "VERDECKT2")
("KR - Strichlinie 2" "VERDECKT2")
("KURZGESTRICHELT" "VERDECKT2")
("LINIE_16" "VERDECKT2")
("Linienart-2" "VERDECKT2")
("STRICHEL_3" "VERDECKT2")
("Strich" "VERDECKT2")
("Strichel kurz" "VERDECKT2")
("Strichlinie_ eng" "VERDECKT2")
("Strichlinie _ breit" "VERDECKT2")
("Strichlinie _ breiter" "VERDECKT2")
("Strichlinie _ normal" "VERDECKT2")
("STYLE_02" "VERDECKT2")
("STYLE_06" "VERDECKT2")
("STYLE_08" "VERDECKT2")
("STYLE_19" "VERDECKT2")
("thk_line_type" "VERDECKT2")
("VW-01 Strichlinie kurz" "VERDECKT2")
("VW-02 Strichlinie mittel" "VERDECKT2")
("*ACAD_ISO02W100*" "VERDECKT2")
("*ALL_S25*" "VERDECKT2")
("*ALL_S50*" "VERDECKT2")
("*DASHED2*" "VERDECKT2")
("*DCA_Linienmuster_2*" "VERDECKT2")
("*DCA_Linienmuster_5*" "VERDECKT2")
("*DGN Style 2*" "VERDECKT2")
("*DGN Style 5*" "VERDECKT2")
("*HIDDEN2*" "VERDECKT2")
("*VERDECKT2*" "VERDECKT2")
("Achse*" "VERDECKT2")
("DASHED*" "VERDECKT2")
("Dense Short Dashed*" "VERDECKT2")
("HIDDEN*" "VERDECKT2")
("Klapptür*" "VERDECKT2")
("Short Dashed*" "VERDECKT2")
("Shorter Dashed*" "VERDECKT2")
("VERDECKT*" "VERDECKT2")
))
;
;
;
;Lädt die LISP: SSGETLTYPE.lsp /  
;Wählt alle Linientypen VonLayer MITTE2 und ändert auf LTFaktor 10 / 
;Wählt alle Linientypen VonLayer PHANTOM2 und ändert auf LTFaktor 10 / 
;Wählt alle Linientypen VonLayer PUNKT2 und ändert auf LTFaktor 5 / 
;
(load "G:/1000SONS/CAD/Faust/LISP/SSGETLTYPE.lsp")
(SSGETLTYPE "MITTE2")(command "_.CHPROP" "_P" "" "_LTSCALE" "10" "")
(SSGETLTYPE "PHANTOM2")(command "_.CHPROP" "_P" "" "_LTSCALE" "10" "")
(SSGETLTYPE "PUNKT2")(command "_.CHPROP" "_P" "" "_LTSCALE" "5" "")
;
;
;
;Wählt alle Linientypen Continuous und ändert auf LTFaktor 25 / 
;Wählt alle Linientypen GETRENNT2 und ändert auf LTFaktor 25 / 
;Wählt alle Linientypen RAND2 und ändert auf LTFaktor 25 /  
;Wählt alle Linientypen STRICHLINIE2 und ändert auf LTFaktor 25 / 
;Wählt alle Linientypen STRICHPUNKT2 und ändert auf LTFaktor 25 / 
;Wählt alle Linientypen VERDECKT2 und ändert auf LTFaktor 25 / 
;Wählt alle Linientypen MITTE2 und ändert auf LTFaktor 10 / 
;Wählt alle Linientypen PHANTOM2 und ändert auf LTFaktor 10 / 
;Wählt alle Linientypen PUNKT2 und ändert auf LTFaktor 5 / 
;
(if (ssget "_X" (list '(6 . "Continuous,GETRENNT2,RAND2,STRICHLINIE2,STRICHPUNKT2,VERDECKT2")(cons 410 (getvar 'CTAB))))(command "_.CHPROP" "_P" "" "_LTSCALE" "25" ""))
(if (ssget "_X" (list '(6 . "MITTE2,PHANTOM2")(cons 410 (getvar 'CTAB))))(command "_.CHPROP" "_P" "" "_LTSCALE" "10" ""))
(if (ssget "_X" (list '(6 . "PUNKT2")(cons 410 (getvar 'CTAB))))(command "_.CHPROP" "_P" "" "_LTSCALE" "5" ""))
;
;
;
;Alles Regenerieren / 
;
_.regenall