Layerfarbe nach MAPimport zuweisen (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Layerfarbe nach MAPimport zuweisen (782 mal gelesen)
HansGageler Mitglied Beiträge: 5 Registriert: 25.08.2005	erstellt am: 22. Mai. 2012 13:48 <-- editieren / zitieren --> Unities abgeben: Hallo Ich nutzte noch den "alten" MAPIMPORT - Befehl, um ESRI shapefiles in ACAD MAP 3D zu importieren. Wenn ich mehrere Layer anhand der Werte in der dbf Datei beim Import erzeuge, werden diese Layer alle automatisch in einer Frarbe (Schwarz) eingestellt in der dwg. Es kann vorkommen, dass danach 100 Objektgruppen und somit 100 layer in "Schwarz" in der Zeichnung stehen. Das ist dann sehr unübersichtlich (Bohrpunkte) Ich arbeite mit MAP 3D 2011. Hat jemand einen Tip oder ein (LISP) Routine wie man automtisch Farben per (Zufall oder so) zu vergibt? Die Farbe selbst ist egal, es geht nur um die übersichtlichkeit der verschiedenen Objekte. Über Tips freut sich der Hans Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 22. Mai. 2012 13:57 <-- editieren / zitieren --> Unities abgeben: Nur für HansGageler Bitte : (defun C:LCOLOR(/ I L) (vl-load-com) (setq I 0) (vlax-for L(vla-get-layers(vla-get-activedocument(vlax-get-acad-object))) (vla-put-color L (setq I (1+ I))) ) ) ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
HansGageler Mitglied Beiträge: 5 Registriert: 25.08.2005	erstellt am: 22. Mai. 2012 15:13 <-- editieren / zitieren --> Unities abgeben: Hallo Thomas, Danke fuer die schnelle Reaktion!!! Leider bin ich als Anwender und nicht so routiniert mit dieser Art Funktionen...und eren Verwendung in MAP Wie kann ich das denn in ACAD einbauen? Als script hab ich es probiert (mit der Funktion als SCR Datei. Das hat bei mir nicht geklappt. Wie gehts besser? Gruss Hans Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
spider_dd Mitglied Beiträge: 1111 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018	erstellt am: 22. Mai. 2012 15:46 <-- editieren / zitieren --> Unities abgeben: Nur für HansGageler Hallo Hans, lies mal was der User FAQ dazu sagt. Gruß Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
HansGageler Mitglied Beiträge: 5 Registriert: 25.08.2005	erstellt am: 22. Mai. 2012 17:36 <-- editieren / zitieren --> Unities abgeben: Ach ja, APPLOAD, jetzt war mir alle wieder klar. Es funktioniert - zwar mit einen kleiene Meldung : Lcolor {ENTER] dann kommt diese Meldung: ; error: Automation Error. Invalid argument Color in IAcadLayer: ut_Color ...aber das Resultat ist OK Danke!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 22. Mai. 2012 18:30 <-- editieren / zitieren --> Unities abgeben: Nur für HansGageler naja .. vielleicht mehr als 255 Layer .. da sind dann die ACI-Farben zu Ende ... da müßte in die vlax-for-schleife noch (if (> I 254) (setq I 0)) mit rein ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)