|
CATIA V5 Programmierung : Suche höchste Nummer +1
Esterbauer am 29.12.2017 um 08:55 Uhr (1)
Hallo Danke nochmals für deine HilfeHabe jetzt das Script zusammengeschrumpft.Hätte jetzt noch was.Habe Inputbox eingefügt, jetzt soll der Wert aus der nputbox in einen vordefinierten Parameter im Part übertragen werden, wie könnte das funktionieren.DankeSub CATMain() Dim PListe As Products Set PListe = CATIA.ActiveDocument.Product.Products Dim oPartDoc As Document Set oPartDoc = CATIA.Documents.NewFrom("H: 5_Catia V5Auswerfer\_auswerfer_rund_.CATPart") Antwort = InputBox("Pos Nr.:","Auswerfer Positi ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Speicherpfad auslesen
Esterbauer am 02.01.2018 um 15:31 Uhr (1)
Soweit hab ich das hinbekommen.Jetzt soll er noch einen Ordner tiefer und dann (Normteileauswerfer.catpart ) hinzufügen.Wie könnte das sein ? Language="VBSCRIPT"Sub CATMain()Dim targetfoldertargetfolder = CATIA.ActiveDocument.Path (?)MsgBox targetfolderEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Speicherpfad auslesen
Esterbauer am 02.01.2018 um 16:00 Uhr (1)
Hallo,Danke nochmals und sorry für meine Fragen.Da Ergebnis aus Strfolder = CATIA.ActiveDocument.Path = C:PartProduktDa Ergebnis aus StrTargetPath = C:PartProduktNormteileauswerfer.CATPartDa Ergebnis sollte aber eine Ordnerebene tiefer sein = C:PartNormteileauswerfer.CATPartwie kann ich so was machen hab nicht gefunden.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Körper hinzufügen
Esterbauer am 03.01.2018 um 11:23 Uhr (1)
Das suchen Funktioniert schon mal, aber das Hinzufügen der gefunden Körper bekomme ich einfach nicht hin.Hab unten ein Scriptteil gefunden weis aber nicht was ich da falsch mache. Hat wer einen Tipp für mich !Sub CATMain() Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument Dim selection1 As Selection Set selection1 = partDocument1.Selection selection1.Search "Name=*Abzugskörper,all"End Sub Dim j As Integer For j = 1 To UBound(aSelectedElements) Set oZPBodies = oZP.ReferenceProd ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Speicherpfad auslesen
Esterbauer am 03.01.2018 um 11:25 Uhr (1)
Danke jetzt funktioniert es. Datei Neu aus im Produkthier mein CodeSub CATMain() Strfolder = CATIA.ActiveDocument.Path StrPath = Left(Strfolder, InStrRev(Strfolder, "")) StrTargetPath = StrPath & "Startup\_.catpart" MsgBox StrTargetPath Dim PListe As Products Set PListe = CATIA.ActiveDocument.Product.Products Dim oPartDoc As Document Set oPartDoc = CATIA.Documents.NewFrom(StrTargetPath) Antwort_Pos = InputBox("Beispiel: 100 ", " Positionsummer", "") Zahl = Antwort_Pos If Antwort_Pos = "" The ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : parameters2.Item (Pfad?)
Esterbauer am 05.01.2018 um 10:52 Uhr (1)
Hallo,Wie kann ich eine Variabel in parameters2.Item Einbauen ?Der Pfad sollte ich aus den Namen des Aktiven Dokumentes und EigenschaftenBauteil Bezeichnung zusammensetzen.Set strParam2 = parameters2.Item(Name, "EigenschaftenBauteil Bezeichnung")was mache ich falsch ?Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet relations1 = part1.RelationsSet parameters1 = part1.ParametersFullName = CATIA.ActiveDocument.NameName = Left(FullName, InStrRev(FullName, "")-8)MsgBox Name ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schleife beim ersten Durchlauf überspringen
Esterbauer am 27.01.2021 um 10:45 Uhr (1)
Hallo,Wie kann ich eine Komponente im Produkt suchen, finden?For Each document In CATIA.?GrußPeter
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Radius von 3D Volumen ermitteln
Esterbauer am 11.10.2021 um 16:49 Uhr (1)
HalloDas war schon mal ein sehr guter Tipp, jetzt habe ich aber noch das Problem das die Fläche nicht gemessen wir.Ich bekomme immer bei ( Set RefDokument = PartDocument.CreateReferenceFromObject(oLine)) eine FehlermeldungWas mache ich hier falsch?----------------------------------------------------------Sub CATMain()Set sel = CATIA.ActiveDocument.Selectionsel.Search "Topology.CGMFace,all"For N = 1 To sel.Count Set oLine = sel.Item(N).Value Set PartDocument = oLine.Parent.Parent.Parent.ParentIf TypeName ...
|
| In das Form CATIA V5 Programmierung wechseln |
