---

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

---

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.]

---

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

---

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

---

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

---

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

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

---

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

---

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

---

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

---

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

---

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

---

 

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

---

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

---

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

---

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

---

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

---

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