zeichnung dürchsuchen - alle line auf vonlayer (Autodesk/AutoCAD VBA)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

PNY wird von NVIDIA zum Händler des Jahres gewählt - zum dritten Mal in Folge, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: zeichnung dürchsuchen - alle line auf vonlayer (625 mal gelesen)

dw
Mitglied
cad

Schreiben Sie einen Gästebucheintrag für dw

Beiträge: 45
Registriert: 29.06.2007

erstellt am: 31. Okt. 2012 17:05

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

wie kann mich da weiter helfen.....
Wie kann ich mit vba die ganze zeichnung dürchsuchen und wenn er dann ein line oder polyline findet der nicht vonlayer ist,sollte das vba programm diese dan automatich auf vonlayer stellen. so sollte das auch mit Linientypefaktor ist ungleich als 1 alle andere line werden dan automatisch auf 1 gestellt.
das habe ich mal probiert aber etwas ist da nicht ok.

Dim tLay As AcadLayer
For Each tLay In ThisDrawing.Layers
' If Not tLay.Lock Then tLay.Lock = True
If Not tLay.Lineweight = acLnWtByLayer Then tLay.Lineweight = acLnWtByLayer
Next

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

Anzeige:	Infos zum Werbeplatz >>
cseTools Leitungsplanung CAD APP für Tiefbau, AEC - Architektur-, Ingenieur- und Bauwesen Die Leitungsplanung ermöglicht den datenbankgestützten Entwurf von Leitungsnetzen der Wasserversorgung bis hin zur Knoten-Detaillierung. Zusätzlich wird die Konstruktion und Verwaltung von Hausanschlüssen ermöglicht.

CADmium
Moderator
Maschinenbaukonstrukteur