| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| AERZEN konsolidiert weltweite Autodesk Softwarelizenzen mit CIDEON , ein Anwenderbericht
|
Autor
|
Thema: Layer mit einer bestimmten Farbe automatisch eine Strichstärke zuweisen (349 mal gelesen)
|
molo Mitglied Dipl. Ing. Versorgungstechnik
Beiträge: 384 Registriert: 16.07.2002 Windows 7 64 bit, AutoCAD MEP 2012
|
erstellt am: 10. Nov. 2003 15:25 <-- editieren / zitieren --> Unities abgeben:
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 |
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 10. Nov. 2003 15:35 <-- editieren / zitieren --> Unities abgeben: Nur für molo
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 |
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 10. Nov. 2003 15:47 <-- editieren / zitieren --> Unities abgeben: Nur für molo
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 |
molo Mitglied Dipl. Ing. Versorgungstechnik
Beiträge: 384 Registriert: 16.07.2002 Windows 7 64 bit, AutoCAD MEP 2012
|
erstellt am: 10. Nov. 2003 15:49 <-- editieren / zitieren --> Unities abgeben:
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 |
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 10. Nov. 2003 15:59 <-- editieren / zitieren --> Unities abgeben: Nur für molo
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 |
molo Mitglied Dipl. Ing. Versorgungstechnik
Beiträge: 384 Registriert: 16.07.2002 Windows 7 64 bit, AutoCAD MEP 2012
|
erstellt am: 10. Nov. 2003 16:07 <-- editieren / zitieren --> Unities abgeben:
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 |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 10. Nov. 2003 17:01 <-- editieren / zitieren --> Unities abgeben: Nur für molo
|
RoSiNiNo Mitglied Konstrukteur
Beiträge: 1126 Registriert: 09.10.2002 Autodesk Building Design Suite Premium 2021 Windows 10 Pro 64bit HP Workstation Z620, 24GB GeForce GTX 970
|
erstellt am: 11. Nov. 2003 06:57 <-- editieren / zitieren --> Unities abgeben: Nur für molo
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 |
Marco Müller Mitglied Konstrukteur Versorgungstechnik
Beiträge: 241 Registriert: 12.03.2001 Acad2002 (engl.) LiNear 3D-Heizzentrale WinXP SP1 AMD 2,8 GHz 1GB RAM GF FX5700 128MB
|
erstellt am: 11. Nov. 2003 06:59 <-- editieren / zitieren --> Unities abgeben: Nur für molo
|
molo Mitglied Dipl. Ing. Versorgungstechnik
Beiträge: 384 Registriert: 16.07.2002 Windows 7 64 bit, AutoCAD MEP 2012
|
erstellt am: 11. Nov. 2003 09:10 <-- editieren / zitieren --> Unities abgeben:
@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 |
RoSiNiNo Mitglied Konstrukteur
Beiträge: 1126 Registriert: 09.10.2002 Autodesk Building Design Suite Premium 2021 Windows 10 Pro 64bit HP Workstation Z620, 24GB GeForce GTX 970
|
erstellt am: 11. Nov. 2003 09:24 <-- editieren / zitieren --> Unities abgeben: Nur für molo
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 |
molo Mitglied Dipl. Ing. Versorgungstechnik
Beiträge: 384 Registriert: 16.07.2002 Windows 7 64 bit, AutoCAD MEP 2012
|
erstellt am: 11. Nov. 2003 10:01 <-- editieren / zitieren --> Unities abgeben:
@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 |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 11. Nov. 2003 10:10 <-- editieren / zitieren --> Unities abgeben: Nur für molo
|