|
CATIA V5 Programmierung : Parameterausgabe im Product
Berges am 27.04.2006 um 18:08 Uhr (0)
HalloHabe mein Script noch mal geändert da ich aus dem Part was den Parameter Auswerferlaenge hat weitere Parameter ausschreiben möchte.Dieses funktioniert auch soweit bis ein Part kommt was diesen Parameter nicht hat.Wie kann ich das Part abfragen ob dieser Parameter vorhanden ist und dann eine If Schleife starten kann.Sub CATMain()Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocumentDim Name As StringDim oParameter As StringDim length1 As StringDim selection1 As SelectionSet selecti ...
|
|
CATIA V5 Programmierung : Parameterausgabe im Product
Berges am 20.04.2006 um 16:00 Uhr (0)
HalloWer kann einen blutigem Anfänger auf die Sprünge halfenMöchte aus einem Geöffneten Product den Wert bestimmter Parameter (Auswerferlaenge und Ausdurch) aus einzelnen Parts ausgeben. Bei meinem Makro funktioniert es zwar aber es wird immer nur die Werte des zu erst gefundenen Parts Angezeigt.Wer ist so nett und kann mir sagen was ich falsch mache..Language="VBSCRIPT"Sub CATMain()Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = produc ...
|
|
CATIA V5 Programmierung : Parameterausgabe im Product
Berges am 21.04.2006 um 09:06 Uhr (0)
Hallo LusilnieDanke für die netten Worte , aber ich habe mir die Code nur aus diesem Forum heruntergeladen und sie für meinen Zweck wieder zusammen gebaut.Leider bleibt das Programm bei der Zeile (oParameter = Cstr(Selection1.Item(I).Value)) mit einer Fehlermeldung hängen.Hast Du eine Ahnung warum.Für deine weitere Hilfe wäre ich dir sehr dankbar.Bis dannBerges------------------KOBUE
|
|
CATIA V5 Programmierung : Parameterausgabe im Product
Berges am 08.05.2006 um 14:57 Uhr (0)
HalloIch war so erfreut das ich mit Eurer Hilfe das Makro zum Laufen gebracht habe.Leider habe ich mit diesem noch ein Problem.Wenn die PartNumber nicht gleich dem Speichernahmen ist steigt mein Makro an dieser Stelle ---Set partDocument1 = documents1.Item(Name & ".CATPart")---- aus.Wie kann ich an Stelle der PartNumber den Speichernamen bekommen?Für Eure HILFE wäre ich dankbar.------------------KOBUE
|
Product1.zip |
CATIA V5 Programmierung : Datei umbenennen und sichern
Berges am 21.08.2012 um 15:32 Uhr (0)
Hallo ZusammenIch habe ein Script geschrieben welches in einem Product nach Schrauben mit der Bezeichnung DIN 912 sucht.Dann wird der Parameter der Schraube gelesen und der Name des Parts umbenannt.Nun soll das Part unter dem Neuen Namen (DIN912_M8x20)abgespeichert werden.Das funktioniert auch soweit nur das ich immer wieder bestätigen muss dass die Datei überschrieben werden soll.Ich habe schon versucht abzufragen ob die Datei existiert aber mit meinen bescheidenen Kenntnissen bekomme ich das nicht hin.De ...
|
|
CATIA V5 Programmierung : Parameter Länge aus zwei Setten nach dem Komma
Berges am 11.12.2012 um 09:51 Uhr (0)
Hallo ZusammenIch Frage einen Paremter des Typs Länge mitSet Laenge1 = partDocument1.Part.Parameters.Item("Laenge")Aus einem Part ab.Habe Versucht mit Laenge1 = round (Laenge1,"mm",2) den Wert aus 2 Stellen nach dem Komma zu runden.Leider geling es mir nicht.Ich muss noch hinzufügen das der Parameter auch einen glatten Wert z.B. 100mm haben kann.Danke schon mal für die Hilfe.GrußRalf------------------KOBUE
|
|
CATIA V5 Programmierung : Parameter Länge aus zwei Setten nach dem Komma
Berges am 11.12.2012 um 11:30 Uhr (0)
Hallo BerndAnbei mein Script.Sub CATMain()Dim productDocument1 As documentSet productDocument1 = CATIA.ActiveDocumentDim Name As StringDim Name01 AS StringDim oParameter As StringDim oParameterArray()Dim length1 As ObjectDim length2 As ObjectDim selection1 As selectionSet selection1 = productDocument1.selectionDIM PAName AS StringDim N As DocumentCATIA.DisplayFileAlerts = FalseSet filesys = CATIA.FileSystemN = 1selection1.Search "CATProductSearch.Part,all"Dim Imax As IntegerImax = selection1.CountReDim oPa ...
|
|
CATIA V5 Programmierung : Bohrungen erzeugen über VB
Berges am 13.03.2013 um 09:55 Uhr (0)
Habe mit dem Recorder die Erzeugung einer Bohrung mit einem Punkt aus einer Skizze aufgezeichnet VB.Dann habe ich die Aufzeichnung verändert so das ich auch andere Skizzen verwenden kann.Die Recorder gibt für die Reference der Koordinate folgendes ausSet reference1 = part1.CreateReferenceFromBRepName("BorderFVertex BEdge Brp Sketch.6;3);None Limits1 );Limits2 );+1);Cf11 ));WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;M FBRepVersion_CXR15)", sketch1)Ich habe dann das Programm für die abfr ...
|
|
CATIA V5 Programmierung : Daten auf verschiebene Tabellen in Excel verteilen
Berges am 03.04.2013 um 13:29 Uhr (0)
Hallo Thomas Danke das ist es gewesen.Deinen Code noch etwas geändert und es läuft.Hier die Änderungen.If PosNr = "000-009,010-099,100-199" ThenTabelle = 1End IfIf PosNr = "199,201-299" ThenTabelle = 2End IfIf PosNr = "299,301-399" ThenTabelle = 3End IfIf PosNr = "399,401-499" Then Tabelle = 4End IfIf PosNr = "499,500-599" Then Tabelle = 5End IfEXCEL.Worksheets.Item(Tabelle).Cells(N, 3).Value = EXCELAbmasseEXCEL.Worksheets.Item(Tabelle).Cells(N, 1).Value = PosNrEXCEL.Worksheets.Item(Tabelle).Cells(N, 2).Va ...
|
|
CATIA V5 Programmierung : Daten auf verschiebene Tabellen in Excel verteilen
Berges am 04.04.2013 um 11:06 Uhr (0)
Hallo ZusammenAnbei für die Allgemeinheit einige Zusätze die ich noch herausgefunden habe.Vielleicht hilft es ja einigen ._______________Texteigenschaften einer Zelle ändern____________________________________________________EXCEL.WorkSheets.Item(1).Cells(1, 2).Font.Bold = True Schrift FettEXCEL.WorkSheets.Item(1).Cells(1, 2).Font.Size = 15 SchrifthöheEXCEL.WorkSheets.Item(1).Cells(1, 2).Font.Name = "Arial" Schriftfont__________________-Text Ausrichtung in der Zelle ändern______________________ ...
|
|
CATIA V5 Programmierung : Suche über Dateinamen im Product
Berges am 28.05.2013 um 16:38 Uhr (0)
Hallo BerndIch bestimme danach die Rohteilmaße.Set MyPart = selection1.Item(1).ValueSet MyBody = MyPart.MainBodyDim PruefenPruefen = MyBody.Sketches.Count + MyBody.Shapes.Count + MyBody.HybridBodies.Countu.s.w.GrußRalf------------------KOBUE
|
|
CATIA V5 Programmierung : Suche über Dateinamen im Product
Berges am 28.05.2013 um 14:41 Uhr (0)
Hallo ZusammenHabe ein Makro welches mir in einem Product ein Part über (selection1.Search Dateisuche )also über seinen Dateinamen sucht.Danach bearbeite ich das Part mitSet MyPart = selection1.Item(1).Value und so weiter.Jetzt kommt es vor das bei einigen Parts mir das Makro an der Stelle (Set MyPart = selection1.Item(1).Value) mit einem Debut abbricht.Lösche ich die Parts und füge die gleichen Parts wieder ein habe ich den Fehler nicht mehr.Ich hoffe dass ich das so verständlich beschrieben habe.Ich möch ...
|
|
CATIA V5 Programmierung : Suche über Dateinamen im Product
Berges am 28.05.2013 um 17:14 Uhr (0)
Hallo BerndMyPart ist deklariert als Part (Dim MyPart As Part)Bei der Abfrage mit (selection1.Item(1).Value.Name) ist auch das richtige Part selektiert.GrußRalf------------------KOBUE
|
