|
CATIA V5 Programmierung : Save As auf Produktstruktur kurze frage
Proofin am 15.02.2008 um 13:55 Uhr (0)
Moin Nico,meine Frage wäre was änderts du mit deinem Rename Makro??Die PartNumber?Hab deine Methoden mal etwas angepasst und hoffe das sie jetzt tut was sie soll.Code:Sub CATmain()CATIA.DisplayFileAlerts = FalseDim myproduct As Productdim Doc as documentSet myproduct = CATIA.ActiveDocument.Productset Doc = myproduct.referenceproduct.parent Enter Absolute Savepath hereDim bsppath As Stringbsppath = "G:exchangeTEST-DIE_MACRONeuer Ort"Dim Abssavepath As StringAbssavepath = InputBox("Please enter the Absolute ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : drawing isolate via vba makro
Proofin am 09.03.2007 um 09:43 Uhr (0)
Hi toyo,im not sure but i think this is what you mean:----------------------- Code----------------------- Dim oDoc As Document Set oDoc = CATIA.ActiveDocument Dim oSheet As DrawingSheet Set oSheet = oDoc.Sheets.Item(1) oSheet.Isolate----------------------- Code-----------------------regards Proofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product mit allen Unterprodukten / Unterparts speichern
Proofin am 12.10.2006 um 13:40 Uhr (0)
Hi Conrad,versuch es mal mit:Set myDoc =CATIA.ActiveDocumentSet subProducts=myDoc.Product.ProductsFor i=1 To subProducts.Count Set subProduct=subProducts.Item(i) set subProductDoc = subProduct.ReferenzProduct.Parent call subProductDoc.SaveAs("SpeicherPfad" & subproductDoc.Name)Next iMfgProofin[Diese Nachricht wurde von Proofin am 12. Okt. 2006 editiert.][Diese Nachricht wurde von Proofin am 12. Okt. 2006 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Polylinien Makro
Proofin am 18.01.2008 um 15:02 Uhr (0)
Hi nreim1,Willkommen im Forum.OHNE es getestet zu haben würde ich folgendes machen:Code:Language="VBSCRIPT"Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet hybridShapeFactory1 = part1.HybridShapeFactorySet hybridShapePolyline1 = hybridShapeFactory1.AddNewPolyline()Set hybridBodies1 = part1.HybridBodiesSet hybridBody1 = hybridBodies1.Item("POINTS")Set hybridShapes1 = hybridBody1.HybridShapes PUNKT 1 Wird hinzugefügtDim PUNKTFor PUNKT = 1 To hybridShapes1.Count Set ref = ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameterübergabe in Prozedur wie?
Proofin am 04.04.2007 um 11:20 Uhr (0)
Ok, der String bringt dir aber nichts es sein denn du willst in ausgeben.Ich bin nicht ganz sicher, ob ich richtig verstanden hab was du vor hast.Aber ich würde das Rekrusiv versuchen aus zulesen.In etwas so:---------------------------------------------Code---------------------------------------------Sub main()Call f_Daten_auslesen_2(CATIA.ActiveDocument.Product.Products)End SubSub f_Daten_auslesen_2(ByVal oProducts As Products) Dim ii As Integer zählt alle ausgaben Static zaehler As Integer alle Produk ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Pfad der geöffneten Datei übergeben
Proofin am 26.10.2006 um 13:08 Uhr (0)
Hi Martin,es scheint das Catia bei dfx Dateien keinen Pfad angibt!Also ich habe bis jetzt noch keine Möglichkeit gefunden den Pfad ausfindig zu machen.GrußProofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter erkennen
Proofin am 25.10.2006 um 10:56 Uhr (0)
Hi Timberwolve,was willst du mit dem Parametern machen??Wenn du die Werte der Parameter auslesen willst brauchst du den Typ.Mit Dim sValue as String Set Param1 = Catia.ActiveDocument.Part.Parameters.Item(5) sValue = Param1.ValueAsStringbekommst du den Wert als String.GrußProofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Wert einer Bemassung auslesen
Proofin am 05.09.2006 um 14:16 Uhr (0)
Hi Martin,das liegt daran, dass es keine Value Eigenschaft gibt.Benutze statt dessen ValueAsString2. Zitat:Original erstellt von mkna:... Statt Set MyDimValue =Dimension.DrawingDimValue.Value benutze Set MyDimValue = Dimension.ValueAsString2...Aufruf laut Catia V5Automation: ValueAsString2( long iNbDecimals, boolean iShowTrailingZeros) As CATBSTR Gets the value of the parameter as a string, with a given precision.Parameters: iNbDecimals the maximum number of decimal places to use to generate th ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ParameterSets finden
Proofin am 17.04.2007 um 14:25 Uhr (0)
Moin Legat,ich weiß nicht ob es dir hilft aber unter den Objekt Parameters gibt es die Methode SubList(). Dieser Funktion kannst du ein Objekt übergeben und bekommst denn alle Parameter unter diesem Objekt.z.BDim oParams as Parametersdim SubParams as Parametersset oParams = CATIA.ActiveDocument.Part.Parametersset SubParams = oParams.SubList(irgendeinBody, true)GrußProofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Mit Makro Parameter ändern
Proofin am 08.02.2008 um 11:13 Uhr (0)
Moin Nico,es wäre eventuell einfacher, wenn du die entsprechende Codestelle posten würdest aber versuch es mal wie folgt:on error resume nextfor .... err.clear tut irgendwas if err.number 0 Fehler = Fehler & Partname & Chr(13) & Chr(10) end ifnext ausgabe von FehlerGrußProofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Mit Makro Parameter ändern
Proofin am 08.02.2008 um 13:49 Uhr (0)
Ich würde es so machen:Code:Sub ScanProductStructure(myproduct2 As Product) aus myproduct wird myproduct3Dim currentprod As ProductDim ii As IntegerOn Error Resume Next For ii = 1 To myproduct2.Products.Count Set currentprod = myproduct2.Products.Item(ii) If currentprod.Products.Count = 0 Then Err.Clear currentprod.Parameters.Item("STOCKLISTCHANGE_ID").Value = 0 currentprod.Parameters.Item("STOCKLISTCHANGE_STATUS").Value = "" If Err.Number 0 Then MsgBox "Fehler in: " & currentprod ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Weitere VB Befehle bzw. Objekte zu Catia V5
Proofin am 16.12.2005 um 12:03 Uhr (0)
Hi PSchlebes,es gibt eine Datei im CATIA Installationsverzeichnis die heißt V5Automation.chm dort sind (fast) alle Befehle aufgeführt.MfgProofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Probleme beim Umbennen von untergeordneten Products
Proofin am 25.10.2006 um 15:33 Uhr (0)
Hi BentelerBoy2,mit Warnungen ausschalten CATIA.DisplayFileAlerts = False ... Dein Code ... wichtig Alarm wieder einschalten es werden solange keine Warnungen mehr angezeigt bis diese Eigenschaft wieder auf TRUE gesetzt wird auch nicht nach dem Beenden von CATIA CATIA.DisplayFileAlerts = Truesollten die Meldungen nicht mehr erscheinen.Gruß Proofin
|
| In das Form CATIA V5 Programmierung wechseln |
