---

Hallo

Ich bin Neuling und sollte ein Makro schreiben, das mein Wissen leider deutlich übersteigt. 

Ich habe ein Product in dem mehrere Parts mit Bedingungen verknüpft sind.
Über eine Winkelbedingung "Winkel" kann ich die Baugruppe bewegen. Nach dem Aktualisieren des Products ändert sich das Volumen eines Parts "Volumen". Dieses "Volumen" wird im Part gemessen "Messung".

Ich benötige nun ein Makro, mit dem ich
- den "Winkel" um einen gewissen Wert "Winkelstep" erhöhe,
- das Product, das Part und die Messung aktualisiere
- den "Winkel" und die dazugehörige "Messung" ausgebe (Excel, Textfile, ...)
- bis ein Endwert "Winkelende" erreicht ist.

Bisher habe ich alles hinbekommen bis auf die Ausgabe der "Messung" (Ich habe kein Excel auf dem Rechner mit CATIA)

Mein Versuch bisher mit CATScript:

-----------------------------------------------------------------------------------------------------
Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim constraints1 As Collection
Set constraints1 = product1.Connections("CATIAConstraints")

Dim constraint1 As Constraint
Set constraint1 = constraints1.Item("Winkel")

Dim angle1 As Dimension
Dim Winkelstep As Double
Dim Winkelende As Double

Winkelstep = 1
Winkelende = 45

Set angle1 = constraint1.Dimension

For i = 0 To Winkelende Step Winkelstep

  angle1.Value = i

  product1.Update

Next

End Sub
-----------------------------------------------------------------------------------------------------

Ist das bisherige okay?
Wie bekomme ich Ausgabe hin?

Danke schon mal im Voraus. 

------------------
MfG
Daniel 

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

---

Hallo

Kann mir niemand verraten wie ich den Wert einer Bedingung und den einer Messung ins Excel oder als Textfile ausgeben kann?? 

Bitte dringend um Hilfe.

------------------
MfG
Daniel 

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

---

Hallo Daniel,

anbei ein kurzes Beispiel, was in eine Datei schreibt (aus
toollist.catscript aus V5automation.chm zusammengebastelt)

Code:

---

'vor der Schleife'
Dim theLogFile As File
Dim theLogStream As TextStream
dim theLogName as String
Dim aFileSyst As FileSystem

Set aFileSyst = CATIA.FileSystem
theLogName = HtmlFilesPath & "ToolList.log"
Set theLogFile = aFileSyst.CreateFile(theLogName,True)
Set theLogStream = theLogFile.OpenAsTextStream("ForWriting")

'in die Schleife'
dim aLine as string
aLine = "Das will ich in die Datei schreiben"
theLogStream.Write aLine & vbCrLf

'nach der Schleife'
theLogStream.Close
Set theLogFile = Nothing
Set theLogStream = Nothing

---

Gruß,
Zoltan

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

---

Hallo Zoltan,

danke vielmals für deine Hilfe!! 

Das Schreiben von Texten habe ich hinbekommen. 

Leider fehlt mir jetzt noch ein wichtiger Schritt:

Ich kann jetzt zwar einen belibigen Text selber eingeben aber ich möchte ja, dass der Wert des gemessenen Volumen ausgegeben wird.
Ich muss also den Wert des gewünschten Volumen (ich weiß nicht was am einfachsten ist: Part oder Body oder Feature oder was anderes) selektieren und als Text ausgeben lassen.

Kann mir dabei auch noch jemand helfen?

P.S.:

Eventuell kann man ja mit der Funktion was machen. Die habe ich beim durchforsten von V5automation.chm gefunden. Weiß aber noch nicht wie die funktioniert.

o Property Volume( ) As double (Read Only)

Returns the volume.
Example:
This example retrieves the volume of NewMeasurable measure.
   
    Dim AVolume As double
    AVolume = NewMeasurable.Volume

------------------
MfG
Daniel 

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

---

Hallo Daniel,

du bist schon auf dem richtigen Weg.
Folgender Beitrag enthält Code für die Messung von Volumen: http://ww3.cad.de/foren/ubb/Forum137/HTML/003169.shtml#000000
Den Volumen in String zu konvertieren ist einfach, es gibt mehrere Methoden:

Code:

---

aLine = cstr(MeasureVolume(Body, Part)) 'einfach, aber ohne Formatierung
aLine = Format(MeasureVolume(Body, Part),"0.00") 'mit Foramtierung

---

evtl. musst du die Einheiten umrechnen (siehe o.g. Beitrag).

Gruß,
Zoltan

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

---

Suuuuuper

Danke für deine große Hilfe!!!!

Ich glaub ich habs hinbekommen.   

Vielen Dank nochmal!!  

------------------
MfG
Daniel 

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