Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de
  AutoCAD VBA
  Ausführen klappt nit

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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


Sehen Sie sich das Profil von CadNightJo an!   Senden Sie eine Private Message an CadNightJo  Schreiben Sie einen Gästebucheintrag für CadNightJo

Beiträge: 38
Registriert: 25.06.2008

WIN 7 SP 1
Civil 3d 2013 mit Vestra

erstellt am: 24. Feb. 2009 10:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


Flatten.dvb.txt

 
Ein 'Hallo' an alle,
habe auf nem englischen Forum ne ganz interessante dvb runtergeladen! Das Laden klappt, aber kein 'Ausführen' möglich! Die Datei soll alle Höhen 'plattmachen'

Viele Grüße

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


Ex-Mitglied

erstellt am: 24. Feb. 2009 10:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

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


Sehen Sie sich das Profil von CadNightJo an!   Senden Sie eine Private Message an CadNightJo  Schreiben Sie einen Gästebucheintrag für CadNightJo

Beiträge: 38
Registriert: 25.06.2008

erstellt am: 24. Feb. 2009 11:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


Makro1.jpg


Makro2.jpg

 
Das Tool soll etwas weiter gehen als 'Flatten' aus den Express-Tools. Hab mal zwei Screenshots angehängt. Beim Ausführen erscheint keine Auswahl.

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

CadNightJo
Mitglied
Brücken - Konstrukteur


Sehen Sie sich das Profil von CadNightJo an!   Senden Sie eine Private Message an CadNightJo  Schreiben Sie einen Gästebucheintrag für CadNightJo

Beiträge: 38
Registriert: 25.06.2008

WIN 7 SP 1
Civil 3d 2013 mit Vestra

erstellt am: 24. Feb. 2009 11:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


Makro1.jpg


Makro2.jpg

 
Das Tool soll etwas weiter gehen als 'Flatten' aus den Express-Tools. Hab mal zwei Screenshots angehängt. Beim Ausführen erscheint keine Auswahl.

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


Ex-Mitglied

erstellt am: 24. Feb. 2009 11:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

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


Sehen Sie sich das Profil von CadNightJo an!   Senden Sie eine Private Message an CadNightJo  Schreiben Sie einen Gästebucheintrag für CadNightJo

Beiträge: 38
Registriert: 25.06.2008

erstellt am: 24. Feb. 2009 11:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Alles fehlgeschlagen- schade! Danke für die Mithilfe!!

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



Sehen Sie sich das Profil von KlaK an!   Senden Sie eine Private Message an KlaK  Schreiben Sie einen Gästebucheintrag für KlaK

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für CadNightJo 10 Unities + Antwort hilfreich

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.


Sehen Sie sich das Profil von Stelli1 an!   Senden Sie eine Private Message an Stelli1  Schreiben Sie einen Gästebucheintrag für Stelli1

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für CadNightJo 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von CadNightJo an!   Senden Sie eine Private Message an CadNightJo  Schreiben Sie einen Gästebucheintrag für CadNightJo

Beiträge: 38
Registriert: 25.06.2008

erstellt am: 24. Feb. 2009 15:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von CadNightJo an!   Senden Sie eine Private Message an CadNightJo  Schreiben Sie einen Gästebucheintrag für CadNightJo

Beiträge: 38
Registriert: 25.06.2008

WIN 7 SP 1
Civil 3d 2013 mit Vestra

erstellt am: 25. Feb. 2009 17:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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



Sehen Sie sich das Profil von runkelruebe an!   Senden Sie eine Private Message an runkelruebe  Schreiben Sie einen Gästebucheintrag für runkelruebe

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für CadNightJo 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von KlaK an!   Senden Sie eine Private Message an KlaK  Schreiben Sie einen Gästebucheintrag für KlaK

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für CadNightJo 10 Unities + Antwort hilfreich

 
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


Sehen Sie sich das Profil von CadNightJo an!   Senden Sie eine Private Message an CadNightJo  Schreiben Sie einen Gästebucheintrag für CadNightJo

Beiträge: 38
Registriert: 25.06.2008

erstellt am: 26. Feb. 2009 07:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von CadNightJo an!   Senden Sie eine Private Message an CadNightJo  Schreiben Sie einen Gästebucheintrag für CadNightJo

Beiträge: 38
Registriert: 25.06.2008

WIN 7 SP 1
Civil 3d 2013 mit Vestra

erstellt am: 02. Mrz. 2009 14:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Stelli1,

mit Deinem Code für die Public Sub hat es geklappt!!! Bin nach Deiner Anleitung vorgegangen und siehe da: DVB läßt sich
problemlos ausführen. Vielen Dank für die Hilfe!!

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

Stelli1
Moderator
Verm.-Ing.


Sehen Sie sich das Profil von Stelli1 an!   Senden Sie eine Private Message an Stelli1  Schreiben Sie einen Gästebucheintrag für Stelli1

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für CadNightJo 10 Unities + Antwort hilfreich

Hallo und herzlichen Glückwunsch

Kaum macht man es richtig, geht's.
Erfüllt das Makro denn auch seine Aufgabe ?

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


Sehen Sie sich das Profil von CadNightJo an!   Senden Sie eine Private Message an CadNightJo  Schreiben Sie einen Gästebucheintrag für CadNightJo

Beiträge: 38
Registriert: 25.06.2008

erstellt am: 03. Mrz. 2009 09:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von fuchsi an!   Senden Sie eine Private Message an fuchsi  Schreiben Sie einen Gästebucheintrag für fuchsi

Beiträge: 1201
Registriert: 14.10.2003

AutoCad Version 2012 deu/enu
<P>Windows 7 64bit

erstellt am: 04. Mrz. 2009 12:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für CadNightJo 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2025 CAD.de | Impressum | Datenschutz