Schraffur auflösen (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: Schraffur auflösen (5512 mal gelesen)
bernardo Mitglied Maschinenbautechniker Beiträge: 10 Registriert: 30.07.2003	erstellt am: 04. Nov. 2003 12:49 <-- editieren / zitieren --> Unities abgeben: Hallo, ich versuche nun seit einiger Zeit eine Schraffur aufzulösen und dann die einzelnen Schraffurlinien weiterzuverwenden. Von der Befehlszeile aus würde ich "Ursprung" benutzen, aber wie kann ich das mit VBA erreichen. Vielleicht kann jemand helfen ... Mit freundlichen Gruessen Bernardo Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
RoSiNiNo Mitglied Konstrukteur Beiträge: 1126 Registriert: 09.10.2002 Acad 2011-deutsch, Express Tools 3ds Max 2010 Win 7-Professional HP Workstation Z400, 6GB GeForce GTX 470	erstellt am: 04. Nov. 2003 12:58 <-- editieren / zitieren --> Unities abgeben: Nur für bernardo Schraffur.Explode ------------------ Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
bernardo Mitglied Maschinenbautechniker Beiträge: 10 Registriert: 30.07.2003	erstellt am: 04. Nov. 2003 13:36 <-- editieren / zitieren --> Unities abgeben: Hallo Roland, VBA unterstützt leider nicht die Methode Hatch.Explode. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Mike_mair Mitglied CAD&CAE Administrator Beiträge: 53 Registriert: 09.07.2004 Software aktuell: AutoCAD 2005 PitCup 7.0 SP 2 (ARX Stand: 20.Juni 2005) Plancal Microstation Tricad Software gerade in Umstellung: AutoCAD MEP 2011 Betriebsystem: Windows 7 64bit Hardware: Dell Precision T3500 Intel Xeon 4 GB Ram NVIDIA Quadro FX1800	erstellt am: 09. Mai. 2005 16:36 <-- editieren / zitieren --> Unities abgeben: Nur für bernardo Also ich habe es so gelöst: Dim objExplodeObject As AcadObject strExplodeHandleId = objExplodeObject.Handle ThisDrawing.SendCommand "(Command " & Chr(34) & "_Explode" & Chr(34) & "(handent " & Chr(34) & strExplodeHandleId & Chr(34) & "))" & vbCr Ich lese die Objektnummer aus, und greiere einfach einen Lispausdruck!!! Ist überhaupt nit super, weil der Benutzer die Ausgabe in der Befehlszeile sieht. Aber eine andere Lösung habe ich auch nit gefunden. Das Problem ist nämlich, dass mit VBA objekt.Explode --> nur Blöcke und Polylinien zum sprengen gehen, aber hat auch Tabellen Bemaßungen, usw. ------------------ Michael Mair Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)