---

Moin, moin,

bei einer vorhandenen Zeichnung werden die Strichstärken anhand der Farben über eine CTB bestimmt.

Ich will aber allen Layern, die die ersten 10 Farben benutzen eine bestimmte Linienstärke (und die Farbe 253 [das ist aber nicht so wichtig]) zuweisen.

Dazu benutze ich CADconv von Karzmeizak. Aber das Programm dauert Ewigkeiten, obwohl es sich dabei ja eigentlich um eine recht einfache Umwandlung handelt.

Hat jemand für sowas ähnliches ein kleines Lispprogramm?

------------------
Schöne Grüsse aus dem Norden

Molo

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

---

Moin Molo,

manchmal erachte ich den Ruf nach einer Lisp als zu verfrüht. Im Layermanager kann man (so ist es jedenfalls in 2004) die Layer nach der Layerfarbe sortieren-> alle betreffenden Layer aktivieren-> Linienstärke ändern...

Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

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

---

Zitat:

---

Original erstellt von Kramer24:
Moin Molo,

manchmal erachte ich den Ruf nach einer Lisp als zu verfrüht. Im Layermanager kann man (so ist es jedenfalls in 2004) die Layer nach der Layerfarbe sortieren-> alle betreffenden Layer aktivieren-> Linienstärke ändern...

Lothar

---

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

Hallo,
und natürlich nicht vergessen die .ctb zu ändern

[Diese Nachricht wurde von AsSchu am 10. November 2003 editiert.]

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

---

Ja, der Weg von Hand ist mir auch klar.

Allerdings handelt es sich bei den Zeichnungen um Architekturzeichnungen für ein grosses Projekt, welche wir weiterbenutzen.

Wir schalten bei den Architekturzeichnung sämtliche Layer auf die Farbe 253 um unsere Haustechnik darin noch gut erkennen zu können. Allerdings werden diese dann eben alle in einer Strichstärke ausgedruckt, also muss ich vorher die Strichstärke definieren.

Da das bei uns recht häufig vorkommt, ist der Weg per Hand nicht gerade das gelbe vom Ei.

Aber trotzdem Danke.

------------------
Schöne Grüsse aus dem Norden

Molo

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

---

Zitat:

---

Original erstellt von molo:
Da das bei uns recht häufig vorkommt, ist der Weg per Hand nicht gerade das gelbe vom Ei.

---

...das kann ich verstehen,

wie wäre es mit einer *.dwt, in die Du immer die A-zeichnungen importierst?

Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

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

---

Gute Idee, werde ich morgen gleich mal ausprobieren.

Dabei muss ich allerdings immer davon ausgehen, dass der Architekt nicht immer neue Layer erfindet.

------------------
Schöne Grüsse aus dem Norden

Molo

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

---

kill the Architekt

cw

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

---

Ich hab so etwas für mich schon programmiert, ich werde es für dich ein wenig umschreiben und stell es dann hier herein. Außer es kommt mir einer zuvor, dann mach ich nichts mehr 
Soll eigentlich die Farbe gleich auf 253 gelegt werden?

------------------
Roland

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

---

@ cw,

endlich mal jemand der kein Blatt vor den Mund nimmt 

Marco

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

---

@RoSiNo

ja, ansich soll die Farbe gleich auf 253 gelegt werden, aber dass ist nicht ganz so wichtig. Dass beherscht sogar der konverter recht schnell 

@cw

ansich richtig, aber diesmal muss es heissen kill the Bauherr, der verlangt es nämlich so

------------------
Schöne Grüsse aus dem Norden

Molo

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

---

Hier ist der Code, du musst ihn natürlich auf deine Bedürfnisse anpassen

Code:

---

Public Sub LayerUpdateStrichstaerke()
    Dim LayerListe As AcadLayers
    Dim LayerObj As AcadLayer
    Dim LS As Long      'Linienstärke
   
    Set LayerListe = ThisDrawing.Layers
    If LayerListe.Count = 0 Then Exit Sub
   
    For Each LayerObj In LayerListe
        'Hier sind deine Farben und Strichstärken
        Select Case LayerObj.Color
            Case 1          'Acadfarbe
                LS = 13    'Strichstärke
            Case 2
                LS = 18
            Case 3
                LS = 25
            Case 4
                LS = 35
            Case 5
                LS = 50
            Case 6
                LS = 70
            Case 7
                LS = 100
            Case 8
                LS = 140
            Case 9
                LS = 200
            Case 10
                LS = 9
            Case Else      'Sonstige Acadfarben
                LS = 5      'Strichstärke 0.05mm
        End Select
        LayerObj.Lineweight = LS
        LayerObj.Color = 253
NEXTLAYER:
    Next LayerObj
   
End Sub

---

------------------
Roland

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

---

@RoSiNo

danke nochmal, genau so etwas in der Art habe ich gesucht.

Jetzt muss ich dass ganze Ding nur noch zum laufen brigen und alles wird gut     

------------------
Schöne Grüsse aus dem Norden

Molo

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

---

@marco + molo

dann einfach beide ;-)

cw

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