---

hallo,
ich weiß für die meisten nur ein Kinderspiel. Ich möcht im folgende code den linientyp festlgen. Irgendetwas ist falsch. Kann mir jemand weiterhelfen?
-Danke-

--------------------------------
Public Sub LayerUpdateFarbe()

'---------------------------------------------------------
    'Layerliste = AutoCADlayer
    Dim LayerListe As AcadLayers
   
    Dim LayerObj As AcadLayer
    'Layerfarbe
    Dim LF As Long
    'Strichstärke
    Dim LW As Long
    'Linientyp
    Dim LT As String
'---------------------------------------------------------

    Set LayerListe = ThisDrawing.Layers
    If LayerListe.Count = 0 Then Exit Sub
 
    For Each LayerObj In LayerListe
   
        Select Case LayerObj.Name
            Case "000_ES" To "000_ES"
                LF = 10                'Layerfarbe einstellen
                LW = 140                'strichstärke einstellen
                LT = continuous        'Linientyp einstellen
                LayerObj.Freeze = False 'Layer tauen
                LayerObj.color = LF
                LayerObj.Lineweight = LW
                LayerObj.Linetype = LT
   
            Case Else                  'Sonstige Acadfarben
                LF = 253              'Strichstärke 0.05mm
                LW = 0
                LT = dot
        End Select
     
NEXTLAYER:
    Next LayerObj
 
End Sub

---------------------------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,
naja, Dir fehlt noch ein bißchen was ;-)
a) Du legst Stringwerte fest -> "" um das Continuous drumrum. -> LT = "Continuous"
b) im zweiten Teil fehlt Dir dann natürlich auch der Part "LayerObj.Linetype = LT" usw.

Auf Schönheit hab ich jetzt nicht geguckt, da ist sicher noch Luft nach oben ;-)

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

megapeinlich ....

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nö, Montag 
Wenn Du mit Option Explicit eine Variablendeklaration erzwingst, fallen Dir solche Kleinigkeiten leichter (und selber) auf.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP