|
CATIA V5 Programmierung : Update aller Inertia
shoutz000 am 27.05.2015 um 07:54 Uhr (1)
Servus ob man die Measure unterscheiden kann weiß ich nicht,aber die Measure lassen sich so selektieren und updaten:Code:Sub CATMain() Set oSel = CATIA.ActiveDocument.Selection oSel.Search "CATDMUSearchInformation.DMUMeasureType,all" Catia.StartCommand "MeasureForceUpdate"End Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection mit Relation
shoutz000 am 10.07.2014 um 07:20 Uhr (1)
Danke für die schnelle Antwort.Aber irgendwie produzier ich nur Blödsinn...Ich habe das "GetNameToUseInRelation" in zig verschiedenen Varianten versucht aber entweder kommen Fehlermeldungen oder das Makro läuft durch ohne den Parameter mit dem selektierten Maß zu verknüpfen oO Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim sStatus As String Dim Selection As Object Set Selection = partDocument1.Selection Selection.Clear R ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Per Makro als PDF speichern
shoutz000 am 30.09.2014 um 07:23 Uhr (1)
Servus ich habe auch gerade so ein speicher Problem.Ich habe das unten stehende Makro welches die Zeichnungsblätter prüftob es ein Detailsheet ist oder nicht. Wenn es keins ist soll dieses in einem bestimmten Format gespeichert werden (alle Blätter einzeln).Merkwürdig ist bloß (und ich komm nicht drauf warum?!):Speicher ich in einem Bildformat (z.B. tif) so arbeitet das Makro exakt so wie ich das will. Alle Blätter welche kein Detailsheet sind werden gespeichert und sobald die Zeichnung abgearbeitet ist be ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dimension texts im Drafting
shoutz000 am 27.06.2015 um 18:28 Uhr (1)
Hi,also ich versuch per Makro ein "conical taper" vor die Dimension zusetzen. Allerdings weiß ich nicht wie man dieses Symbol aufruft.Ich versteh aber auch nicht ganz wie das mit dem Unicode funktionierensoll... zumindest kann mein Catia damit nichts anfangen. ChrW(8960) sollja das Durchmesserzeichen sein, aber egal welchen Code ich eingebe,Catia setzt immer ein "_" vor die Dimension...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Stückliste Makro
shoutz000 am 30.08.2013 um 08:38 Uhr (1)
So läuft wieder alles im Geschäft.Also das mit der Recursiven suche ist ja schön und gut aber wie gesagt ich kenn mich damit null aus. Kann HTML von früher noch ja, ich versteh auch einzelne Passagen oder kann erahnen wofür sie gut sind. Aber ich bin schon stolz das ich überhaupt das obige Makro hingebastelt bekommen habe. Dh. erst BOM aufrufen und dann die restlichen Parameter einlesen lassen klingt gut... aber wie?!?! Momentan bastel ich Schnipselchen zusammen und freu mich jedesmal wenn eine Zeile durc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Stückliste Makro
shoutz000 am 26.08.2013 um 10:33 Uhr (1)
Ok vielen Dank an euch alle.Ich kann leider zur Zeit kein Feedback geben da bei mir im Geschäft seid letzter Woche Mittwoch der Server ständig abkackt und net funzt. Heute hieß es er tut wieder... ok die Laufwerke werden alle angezeigt aber Catia geht nicht auf und fast alle Projektdaten fehlen. Ich werde mal alles ausprobieren wenn wieder alles läuft und melde mich dann zurück.Gruß Frank
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Aktive Excel speichern
shoutz000 am 10.07.2014 um 11:40 Uhr (1)
Heyalso der Pfad stimmtSchreibrechte habe ich auchund Word habe ich die 2010er VersionAlso so passiert weiterhin nichts:(Wenn ich bei fName direkt einen Pfad und Dateinamen angebe kommt eine Fehlermeldung das er eineAnweisung erwartet hat.)Sub SaveExceldim NewBook As ObjectSet NewBook = objXL.ActiveWorkbookDim Name As StringName = currentprod.PartNumberDim strPath As StringstrPath = CATIA.ActiveDocument.Pathdim fName as StringfName = strPath & "" & NameNewBook.SaveAs FileName = fName & ".xlsx"End Sub[Diese ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 06.05.2015 um 19:39 Uhr (1)
Megaaaaa. Vielen Dank.Also ich ändere die untergeordneten Parameter jetzt so:------------------------------------------Set oDraw = CATIA.ActiveDocumentSet oPara = oDraw.Parameters....Set TextPara = oPara.Item("DrawingDetailsFertigungsauftrag")TextPara.Value = "Production Order" da das Set in der Vorlage fix ist, ist der feste Pfad für michin diesem Fall kein Problem------------------------------------------Ok gleich noch eine Frage xD. Damit habe ich mich noch nicht befasst,da ich noch nicht so weit bin, a ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 11:45 Uhr (1)
ich stell mich zu blöd an oOich suche so nach den Textfeldern und nichts passiert?!Sub CATMain()Set oDraw = CATIA.ActiveDocumentCATIA.HSOSynchronized=FalseSet oSel = oDraw.SelectionFor i = 1 To oSel.CountoDrawText = oSel.Item(i)If oDrawText.Name = Kanten ThenoDrawText.Text = ("Edges Broken")End IfNextCATIA.HSOSynchronized=TrueEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 14:12 Uhr (1)
Soooo jetzt funzt es xDSub CATMain()Set oDraw = CATIA.ActiveDocumentSet oSel = oDraw.SelectionCATIA.HSOSynchronized=FalseoSel.Search "CATDrwSearch.DrwText.Name=Kanten, all"For n = 1 to oSel.CountSet oText = oSel.Item(n).ValueoText.Text = "Edges Broken"NextoSel.ClearCATIA.HSOSynchronized=TrueEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 17:02 Uhr (1)
Jetzt versuche ich die Blattendung anzupassen, falls sich aufdem Sheet im Backround das entsprechende Deteil befindet.Das Makro erwartet aber einen weiteren Befehl und kein End Sub?!Sub CATMain()Set oDraw = CATIA.ActiveDocumentSet oPara = oDraw.ParametersSet oSheets = oDraw.SheetsqSheets = oSheets.CountFor i = 1 To qSheetsIsDetail = qSheets.Item(i).IsDetailIf IsDetail = False Then For s = 1 to oSheets.Count Set active_sheet = oSheets.Item(s) active_sheet.Activate oSel.Search "CATDrwSearch.DrwDetail.N ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 22:35 Uhr (1)
Hi habe ich bei mir auch immer nur hier muss man es immer manuellnochmal machen. Also ich find den Fehler einfach nicht...Vielleicht habe ich auch wieder was vermischt oder so oOSub CATMain() Set oDraw = CATIA.ActiveDocument Set oSheets = oDraw.Sheets Set oSel = oDraw.Selection For i = 1 To oSel.Count IsDetail = oSel.Item(i).IsDetail If IsDetail = False Then For s = 1 to oSheets.Count Set active_sheet = oSheets.Item(s) active_sheet.Activate oSel.Search "CATDrwSearch. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 09.05.2015 um 10:35 Uhr (1)
Oh ja des is eindeutig n schnitzer gewesen xDAlso ich rate mich grad nur durch ka. Habe es jetzt umgestellt und jetztkommt ständig eine Fehlermeldung bei If oSel 0 Then oOIst der Suchbefehl vllt falsch?!Code:Sub CATMain() Set oDraw = CATIA.ActiveDocument Set oSheets = oDraw.Sheets Set oSel = oDraw.Selection For s = 1 to oSheets.Count IsDetail = oSheets.Item(s).IsDetail If IsDetail = False Then Set active_sheet = oSheets.Item(s) ac ...
|
| In das Form CATIA V5 Programmierung wechseln |
