Ein-/ Auslesen von Step Datei in VBA

Hallo,
Ich würde gern wissen, ob es ein VBA-Code zum einlesen von STEP-File existiert?
(STEP basiert auf EXPRESS-P Norm: ISO 10303-21)
(STEP sind für CAD-Anwendungen notwendig)
Am beigefügten Link, könnt Ihr die .zip-Datei downloaden und die zwei Beispiel-Stepdateien ansehen.
Man muss die Step-Datei mit z.B. dem Editor öffnen und ggf. diese als .txt-Datei abspeichern. Da man mit ihr, für den VBA-Code, weiter arbeiten kann.
Warum das ganze?
Es geht darum, das ich z.B. die Ursprungskoordinaten des Zylinders auslese. (Siehe Anhang "Quader_mit Zylinder.step", Entity-Nr. 105 106 107) und das dann wiedergeben. Das Entity 107 sind die Koordinanten 105 und 106 lediglich nur die Richtung welches das Koordinatensystem zeigt. Entity-Nr sind mit Hashtags gekenntzeichnet.
Meine Projektaufgabe ist nun, anhand aus einer anderen Step-Datei (siehe Zip, "Deckel.step" ), die 6 Schrauben zu identifizieren und den Abstand zwischen 2 Schrauben zu berechnen und diese wiederzugebenen.
(663, 638, 637, 642, 641, 640 [leider gottes mit einer Vielzahl an Verknüpfungen, welches ich selbst noch genauer suchen muss ^^] )
Abstand: z.B. 663 und 638
Das soll ich jetzt programmieren und auch ausgeben(als Pop-Up Fenster z.B.)Am besten wäre hier die Sprache VBA, da, im nächsten Schritt, dies irgendwann in einer Excel-Tabelle eingefügt werden soll.
Da ich jedoch leider keine Erfahrung mit VBA habe, wäre es schön, wenn man mir hier eine kleine Hilfestellung geben könnte. Ich habe aber mich natürlich schon informiert und herausgefunden, dass eine .step Datei ein ASCII Format ist und so sollte es eigentlich kein Problem darstellen mit VBA.
Keine Sorge, ich bin jetzt kein totaler Novice was meine Programmierkentnisse angeht ^^
C++ usw. habe ich während des Studium gelernt aber leider nicht VBA....
Weiterhin findet Ihr wie ein möglicher Programmablauf aussehen könnte. Meiner Meinung nach. Wie man erkennen kann sind eine menge Schleifen notwendig. Diese müssen dann ggf. strings vergleichen, sodass ich die richtige Nummer habe.
Danke im Voraus
Viele Grüße
CE
https://www.herber.de/bbs/user/89640.zip

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub TEst() ChDir "D:\" Workbooks.OpenText Filename:="D:\Deckel.STEP", Origin _ :=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _ Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _ TrailingMinusNumbers:=True Cells.Find(What:="= shape_representation (", After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False).Activate A = ActiveCell Do A = ActiveCell If InStr(A, "Cylinder_head_screw") > 0 Then For I = Len(A) To 1 Step -1 P = Mid(A, I, 1) If P = "#" Then End If Next I MsgBox A GoTo I End If Cells.FindNext(After:=ActiveCell).Activate Loop End Sub

Beliebteste Forumthreads (12 Monate)

Ein-/ Auslesen von Step Datei in VBA

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ein-/ Auslesen von Step Datei in VBA

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread