|
CATIA V5 Programmierung : CATDrawing neu verlinken
oherczeg am 16.05.2007 um 08:21 Uhr (0)
Hallo,ich das Problem, dass in meiner Zeichnung die Links auf catparts zeigen aber ich will auf Catproduct umhängen, direkt in Catia gehts nicht. Ich habe eure beiträge zu Thema gefunden. Würde es evtl. dass mit makro gehen. Gibts bei euch funktionierende Makro? Könntet ihr zumailen?------------------Gruss Otto
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection in einem Makro in VBA
Filippo am 01.07.2007 um 17:10 Uhr (0)
Hallo krisztian.furedi,so sollte auch in VBA funktionieren.---------------------------------------------------Sub CATMain() Dim SelWas(2) SelWas(0) = "Point" SelWas(1) = "Line" SelWas(2) = "HybridShapeCircleCtrRad" Dim Sel As Selection Set Sel = CATIA.ActiveDocument.Selection Sel.Clear Dim Elem As CATBSTR Do Elem = Sel.SelectElement2(SelWas, "Punkt, Linie oder Kreis (ESC=Abbrechen)", False) If Elem = "Cancel" Then Exit Sub End If MsgBox "Meine auswahl:" & Sel.Item(1).Value ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Länge eines Splines
Proofin am 21.05.2007 um 16:08 Uhr (0)
Moin Mutzi,versuch mal folgenden Code:-----------------------Code----------------------- Set SPAWb = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench") Set oRef = CATIA.ActiveDocument.Part.CreateReferenceFromObject(My2DSpline) Set oMeas = SPAWb.GetMeasurable(oRef) Dim dLen As Double dLen = oMeas.Length-----------------------Code Ende-----------------------Bei mir funktioniert das.GrußProofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection.Search Problem mit R16
Locke101 am 22.05.2007 um 10:53 Uhr (0)
Hi,versuchs mal so:========================Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = productDocument1.Selectionselection1.clearSuchname = InputBox("Suchname eingeben") Suchname = Part1.1selection1.Search "CATAsmSearch.Part.Name=" & Suchname & ",all"============================Müsste funktionieren.Gruß Locke101
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection.Search Problem mit R16
CAMiCADse am 22.05.2007 um 13:30 Uhr (0)
Hallo YellowDevil,Danke, hat geklappt! Verstehen kann ich das aber nicht, weil wenn ich meine Zeile nach deiner zeile ausführe, läuft es ohne Fehler durch... Also:Code:Sub CATMAin()CATIA.ActiveDocument.Selection.Search ("Name=Part1.1 & CATProductSearch.Part,all") deineCATIA.ActiveDocument.Selection.Search "(Name=Part1.1 & CATProductSearch.Part),all" meine bzw. MakrorekorderEnd SubDa scheint irgendwo was verknotet zu sein, was mit deiner Zeile aufgelöst wird...Wie auch immer, solange es mit deiner Syntax ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection.Search Problem mit R16
CAMiCADse am 16.05.2007 um 15:46 Uhr (0)
Hallo zusammen,eine Suche mit Name= läuft mit R16 nicht mehr, nachdem der Benutzer einmal was in die Kommando-Zeile eingegeben hat.Folgendes Szenario:Product mit einem PartProduct1 I I-- Part1(Part1.1)Code:Sub CATMain()CATIA.ActiveDocument.Selection.search "(Name=Part1.1 & CATProductSearch.Part),all"End Sub1. Macro ausführen - OK2. In der Kommandozeile z.B. "c:Fit All In" eingeben3. Macro ausführen - ERROR!!! Meldung: Unknown command:Part1.1...4. Nach einem Neustart von CATIA läuft es wieder.Könnt ih ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Open file Box
toyo83 am 22.05.2007 um 14:21 Uhr (0)
Zitat:Original erstellt von YellowDevil:I hope its working!Sub CATMain()Dim FileFile=CATIA.FileSelectionBox("Filename", "*.catproduct", CATFileSelectionModeSave)CATIA.ActiveDocument.SaveAs FileEnd Subyes !!!but there is a error msg ByRef Argumnet, type mismatch and the compiler show the File as the bad argument
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Open file Box
toyo83 am 22.05.2007 um 14:28 Uhr (0)
Zitat:Original erstellt von toyo83: [QUOTE]Original erstellt von YellowDevil:[i]I hope its working!Sub CATMain()Dim FileFile=CATIA.FileSelectionBox("Filename", "*.catproduct", CATFileSelectionModeSave)CATIA.ActiveDocument.SaveAs FileEnd Subyes !!!but there is a error msg ByRef Argumnet, type mismatch and the compiler show the File as the bad argument[/i][/QUOTE]Ok it works !!You forgot to put File in brackets Thanks and best REGARDS guys !!!!!![Diese Nachricht wurde von toyo83 am 22. Mai. 2007 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Open file Box
Proofin am 22.05.2007 um 13:58 Uhr (0)
Moin Toyo83,Is this what you mean?str = CATIA.FileSelectionBox("Save", "*.txt", CatFileSelectionModeSave)regardsProofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Open file Box
YellowDevil am 22.05.2007 um 13:57 Uhr (0)
I hope its working!Sub CATMain()Dim FileFile=CATIA.FileSelectionBox("Filename", "*.catproduct", CATFileSelectionModeSave)CATIA.ActiveDocument.SaveAs FileEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : link to Reference im Product
jan.f am 22.05.2007 um 15:48 Uhr (0)
Hallo,wie kann ich über VB in einem Product die Eigenschaft "Link to Reference" (Pfad zum Part) auslesen?Dim strPath As String strPath = CATIA.ActiveDocument.Selection.Item(1)...???Danke
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : link to Reference im Product
Lusilnie am 22.05.2007 um 23:23 Uhr (0)
Hallo jan.f,willkommen im Forum!Deine Frage ist etwas schwammig, wenn ich das mal so sagen darf. Ich versuche trotzdem mal zu antworten:Für die erste "Instance" direkt unter dem "Root-Product" würde der Dateinamen samt Pfad so ausgelesen:Code:Dim strPath As StringstrPath = CATIA.ActiveDocument.Products.Item(1).ReferenceProduct.Parent.Fullnamevorausgesetzt, das aktive Dokument ist ein CATProduct und die "erste" "Instance" ist ein CATPart oder CATProduct.Falls das nicht die Antwort ist, die Du suchst, skizzi ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : link to Reference im Product
jan.f am 23.05.2007 um 07:59 Uhr (0)
Hallo Lusilnie,danke erstmal für die Hilfe.Werde mal genauer. Ich habe ein Product geöffnet. In diesem Product selectiere ich einen Part. Jetzt möchte die die Eigenschaft "Link to Referene" von der Eigenschaft des selektierten Parts auslesen. Bekomme bei Deiner Variante leider eine Fehlermeldung (Fehler: 438, Object doesnt support this property or method)Code:Dim strPath As StringstrPath = CATIA.ActiveDocument.Selection.Item(1).ReferenceProduct.Parent.FullNameCATIA V5 R16 SP5
|
| In das Form CATIA V5 Programmierung wechseln |
