---

Hallo zusammen!

Da ich auf dem Gebiet der Programmierung Neuling bin, bringt es mir nichts die schon erstellten Beiträge zu durchsuchen. Verstehe da oftmals nur Bahnhof. Habt deshalb Verständnis, wenn ich etwas Frage, was schon mal behandelt wurde.

Jetzt die Frage:
Ich suche nach einer Möglichkeit, bestimmte Flächen nach ihrer Benennung (Part-übergreifend in einem Produkt) zu suchen, diese zu vermessen und ihre Werte so auszulesen, dass ich sie zum Beispiel in einer Excel Tabelle o.ä. weiterverarbeiten kann.

Beispiel: Man stelle sich den Grundriss einer Wohnung vor. Die Flächen die zur Öffnung der Türen notwendig sind, sind von den anderen getrennt und mit Türöffnung_Wohn, Türöffnung_Schlaf usw. bezeichnet. Jetzt möchte ich entweder direkt in CATIA oder einem anderen Programm (Excel...)errechnen, wie viel Fläche durch Öffnung der Türen nicht als Stellfläche verwendet werden kann. Dabei können sich die Namen der Parts ändern. Nach meiner Vorstellung suche ich also nach einer Funktion, die das gesamte Produkt nach Türfläche* durchsucht und die Flächen addiert. Gibt es irgendeine Möglichkeit??

Bin für jede Antwort dankbar.

Euer Catialuder.

P.S: Ich interessiere mich nicht wirklich für Wohnungsplanung. Das Beispiel ist rein fiktiv!

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

---

Hallo Catialuder,
es gibt sicher mehrere Wege dein Problem zu lösen.
Hier mein Vorschlag:
alle Elemente zu selectieren, die "Türöffnung*" heißen:

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim mysel As Selection
Set mysel = productDocument1.Selection
mysel.search "name=Türöffnung* & (((CATStFreeStyleSearch.Surface + CATPrtSearch.Surface) + CATGmoSearch.Surface) + CATSpdSearch.Surface)),all"

dann kannst du die selected Elements zählen und in einer Schleife nacheinander messen, einen Text mit der Messung erzeugen, dann den Text in eine Datei schreiben:

Dim fileSys As FileSystem
Set fileSys = CATIA.FileSystem
Dim filename As string
filename = "C:\temp\flaechen_" & productDocument1.Name & ".txt"
if filesys.FileExists(filename) Then
    filesys.DeleteFile(filename)
End If
Dim file As file
Set file = filesys.CreateFile(filename,True)
Dim stream As CATIATextSteam
Set stream = file.OpenAsTextStream("ForWriting")

Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")

Text= "Flächeninhalte" & chr(10)
for i=1 to mysel.count
        Set myref = mysel.Item(i).Value
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(myref)
Flaech = TheMeasurable.Area
Text = Text & CSng(Flaech)& chr(10)
next

stream.write(Text)
stream.close

so und ähnlich mache ich das immer.
Aus dem Textfile eine Excel-Tabelle machen... was du willst
viel Glück
V5_Maxe

[Diese Nachricht wurde von V5-Maxe am 09. Nov. 2005 editiert.]

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

---

Super! Vielen Dank für Deine Bemühung. Ich dachte schon keiner antwortet darauf. Klingt kompliziert, werde ich aber mal ausprobieren. In welcher Sprache hast Du das geschrieben?

Gruß Catialuder

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

---

Hallo Catialuder,
die Sparche nennt sich CatScript oder MS VBScript. Worin der Unterschied in diesem konkreten Fall besteht, kann ich nicht sagen. Nur soviel: CATScript verlangt wohl eine Vereinbarung der Variablen (z.B.: "Dim mysel As selection")

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