| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
 | NVIDIA GTC Paris und ISC High Performance-Konferenz 2025, eine Pressemitteilung
|
Autor
|
Thema: Ausführen klappt nit (653 mal gelesen)
|
CadNightJo Mitglied Brücken - Konstrukteur

 Beiträge: 38 Registriert: 25.06.2008 WIN 7 SP 1 Civil 3d 2013 mit Vestra
|
erstellt am: 24. Feb. 2009 10:48 <-- editieren / zitieren --> Unities abgeben:         
|
Ex-Mitglied
|
erstellt am: 24. Feb. 2009 10:59 <-- editieren / zitieren -->
Hi, es gäbe da auch noch den Befehl '_flatten' aus den Express-Tools. ...und nachdem ich DVB's mit unbekannter Herkunft nicht öffne , kann ich nur grundsätzliche Vorgehenswesen nennen bzw. Rückfragen stellen. Ein DVB-Makro kann nach dem Laden dadurch gestartet werden, dass Du den Befehl '_vbarun' startest, dann bekommst Du einen Dialog, in welchem alle lauffähigen Sub's aufgelistet werden ==> Dein gewünschtes markieren ==> 'Ausführen' Sollte das nicht funktionieren, dann bitte um Info, wieso nicht, gibt es eine Meldung, zur Unterstützung ist ein Screenshot immer hilfreich. - alfred - ------------------ www.hollaus.at [Diese Nachricht wurde von a.n. am 24. Feb. 2009 editiert.] |
CadNightJo Mitglied Brücken - Konstrukteur

 Beiträge: 38 Registriert: 25.06.2008
|
erstellt am: 24. Feb. 2009 11:15 <-- editieren / zitieren --> Unities abgeben:         
|
CadNightJo Mitglied Brücken - Konstrukteur

 Beiträge: 38 Registriert: 25.06.2008 WIN 7 SP 1 Civil 3d 2013 mit Vestra
|
erstellt am: 24. Feb. 2009 11:19 <-- editieren / zitieren --> Unities abgeben:         
|
Ex-Mitglied
|
erstellt am: 24. Feb. 2009 11:35 <-- editieren / zitieren -->
sorry, lt. Deinen Screenshots hat das Tool keine öffentlichen Routinen, damit hast Du schon recht, dass es nicht startbar ist. Chance wäre jetzt noch, dass Du in den VBA-Editor gehst und dort mal auf den 'Play'-Button klickst (wenn es darin ein Form gibt, dann könnte das Deine Chance sein). Ansonsten Rückfrage in dem Forum stellen, wo Du das DVB downgeloadet hast. - alfred - ------------------ www.hollaus.at |
CadNightJo Mitglied Brücken - Konstrukteur

 Beiträge: 38 Registriert: 25.06.2008
|
erstellt am: 24. Feb. 2009 11:44 <-- editieren / zitieren --> Unities abgeben:         
|
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin

 Beiträge: 2855 Registriert: 02.05.2006 AutoCAD LandDesktop R2 bis 2004 Civil 3D 2005 - 2025 Plateia, Canalis Visual Basic
|
erstellt am: 24. Feb. 2009 12:06 <-- editieren / zitieren --> Unities abgeben:          Nur für CadNightJo
Hallo, War beim Download nicht auch ein Hinweis auf die Ausführung? Ansonsten: wenn Du im VBA-Manager auf den Editor gehst, siehst Du den Quelltext. Dort suchst Du Dir die SUB Prozedur_name() heraus und kannst diese über (command "vbarun" "Prozedur_name") ausführen lassen. Alternativ: Im Editor auf den Ausführenpfeil oder F5-Taste zum Schrittweisen verfolgen: F8 Aber wie Alfred schon erwähnte: Makros die man nicht kennt können auch Schadcode enthalten. Du hast ein Image Deiner Festplatte? Grüße, Klaus PS.: kannst ja mal berichten, was besser als flatten der Exprss-Tools ist. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Stelli1 Moderator Verm.-Ing.
    
 Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2014, Rasterdesign, MapGuide, Autodesk Topobase, VS6, VS.net 2013
|
erstellt am: 24. Feb. 2009 15:09 <-- editieren / zitieren --> Unities abgeben:          Nur für CadNightJo
Hallo, hier hatte ich den Code mal in eine Textdatei gepackt. In der DVB ist dieser nicht in einem Codemodul und vor den Funktion steht kein Public. Also erscheint auch nichts zum Aufrufen eines Makros. Ausserdem fehlt noch die Funktion die die Entitys wählt und and die für das Flatten vorgesehene Funktion übergibt. Also erzeug dir doch eine leere DVB, füge ein Codemodul ein (Modul1) und kopiere deinen Code darein. Dann erzeugst du eine Public Sub die die Entitys an die Funktion übergibt. Die kannst du dann aus dem AutoCAD mit ALT+F8 starten. Die Funktion könnte so aus sehen:
Code: Public Sub AllesPlätten() Dim Ent as acadentity for each ent in Thisdrawing.Modelspace FlattenThis Ent next end sub
Wilfried Stelberg ------------------ Warum lisp'eln wenn's auch anders geht. www.ib-stelberg.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CadNightJo Mitglied Brücken - Konstrukteur

 Beiträge: 38 Registriert: 25.06.2008
|
erstellt am: 24. Feb. 2009 15:23 <-- editieren / zitieren --> Unities abgeben:         
Das heißt die DVB kann so gar nicht funktionieren! Werd mal versuchen nach deiner Anweisung vorzugehen, aber große Hoffnung hab ich da aufgrund mangelnder Grundkenntnisse kaum... Is toll das du dir so ne Mühe machst!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CadNightJo Mitglied Brücken - Konstrukteur

 Beiträge: 38 Registriert: 25.06.2008 WIN 7 SP 1 Civil 3d 2013 mit Vestra
|
erstellt am: 25. Feb. 2009 17:01 <-- editieren / zitieren --> Unities abgeben:         
Hier mal der Original-Hinweise aus dem engl. Forum: The sub to run is called flatten. It is designed to flatted a dwg (Not 3d objects) and this involves changing the normals. If a circle, ellipse, polyline etc has a normal of 0,0,-1 it will change it to 0,0,1. If it is some other normal I don't change it as it may need to be that way. Vielleicht kann damit jemand etwas anfangen!!?? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Ehrenmitglied V.I.P. h.c. Straßen- / Tiefbau

 Beiträge: 8086 Registriert: 09.03.2006 sw: Win7-x64 Office 365 ProPlus C3D (& LT ) ET; DACH; Extensions ------------------- hw: FX3800 i5 CPU 670 8GB RAM
|
erstellt am: 25. Feb. 2009 17:10 <-- editieren / zitieren --> Unities abgeben:          Nur für CadNightJo
Zitat: Die Datei soll alle Höhen 'plattmachen'
warum hängt denn Dein Herz so sehr an dieser dvb? Für's "Plattmachen" gibt es doch schon soviele andere Lösungen... - flatten aus den Express-Tools, - Plaetten von CADwiesel, - button-Makro: ^C^C_move;_all;;0,0,0;0,0,1e99;_move;V;;0,0,0;0,0,-1e99 um die gängisten zu nennen. ------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße... System-Info Excel -Suche RuA-Suche FAQ-ACAD Hilfe zu CAD.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin

 Beiträge: 2855 Registriert: 02.05.2006 AutoCAD LandDesktop R2 bis 2004 Civil 3D 2005 - 2025 Plateia, Canalis Visual Basic
|
erstellt am: 25. Feb. 2009 17:22 <-- editieren / zitieren --> Unities abgeben:          Nur für CadNightJo
Zitat: warum hängt denn Dein Herz so sehr an dieser dvb?
Weil er es selber gefunden hat und uns den Link nicht verraten möchte? Sich vielleicht in die VBA-Programmierung einarbeiten möchte? Oder besonderen Wert auf das nicht ändern von schrägen Flächen legt? Sorry, müssen die Nachwirkungen von Fasching sein [Diese Nachricht wurde von KlaK am 25. Feb. 2009 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CadNightJo Mitglied Brücken - Konstrukteur

 Beiträge: 38 Registriert: 25.06.2008
|
erstellt am: 26. Feb. 2009 07:35 <-- editieren / zitieren --> Unities abgeben:         
Ja, so ähnlich. Kann den Link im Moment nicht senden, da ich an der Arbeit nur eine sehr begrenzte Zugangsmöglichkeit zum Inet habe, werde ihn nachliefern. Als Hinweis es ist das "TheSwamp.org"- Forum gewesen. Bekomme immer Daten aus Fremdprogrammen und muß diese erstmal nacharbeiten. Sind meistens ziemlich hartnäckig, die gebräuchlichen Tools sind nicht ausreichend!! Es bleiben immer Objekte mit Höhen übrig. Bisher hat nur "Superflätten" ein ausreichendes Ergebnis gebracht. Hatte mir von diesem auch ähnlich gute Ergebnisse erhofft, is ja auch mal ganz interessant was anderes als lisp zu sehen. Hab bisher nur mit einem VBA-Tool gearbeitet, das war problemlos zu starten und anzuwenden. Jo Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CadNightJo Mitglied Brücken - Konstrukteur

 Beiträge: 38 Registriert: 25.06.2008 WIN 7 SP 1 Civil 3d 2013 mit Vestra
|
erstellt am: 02. Mrz. 2009 14:22 <-- editieren / zitieren --> Unities abgeben:         
|
Stelli1 Moderator Verm.-Ing.
    
 Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2014, Rasterdesign, MapGuide, Autodesk Topobase, VS6, VS.net 2013
|
erstellt am: 02. Mrz. 2009 16:39 <-- editieren / zitieren --> Unities abgeben:          Nur für CadNightJo
|
CadNightJo Mitglied Brücken - Konstrukteur

 Beiträge: 38 Registriert: 25.06.2008
|
erstellt am: 03. Mrz. 2009 09:28 <-- editieren / zitieren --> Unities abgeben:         
Also das Lisp- Tool "Superflatten" scheint doch gründlicher zu sein, aber das ist immer auch so ein probieren, je nachdem wie die Ausgangsdaten aussehen. Is nicht verkehrt wenn man mehrere Tools zur Verfügung hat. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fuchsi Mitglied Programmierer c#.net Datawarehouse
   
 Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 04. Mrz. 2009 12:21 <-- editieren / zitieren --> Unities abgeben:          Nur für CadNightJo
Ob SUB oder PUBLIC SUB sollte eigentlich egal sein. Allerdings das Codeschnipsel
Code: Property Get Zero() As Variant Dim z2(2) As Double Zero = z2 End Property
deutet eindeutig auf ein Klassenmodul hin, und das hat normalerweise keine startbare Sub in dem Sinne.Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |