|
CATIA V5 Programmierung : Part im Strukturbaum Aktivieren
Proofin am 21.07.2008 um 15:54 Uhr (0)
Moin Tiberius,mit activate funktioniert es nicht.Du mußt das Part selektieren und dann die Workbench wechseln.ABER Achtung wenn du schon in der Part Workbench bist, macht Catia dir ein neues Part auf.In den meisten Fällen ist aber das Aktivieren des Part gar nicht nötig.GrußProofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bild aus dem DMU Nav in Ppt einfügen
Proofin am 18.09.2007 um 10:39 Uhr (0)
Moin ogard1,ich hab deine Datei- und Pfadangaben mal einbißchen geändert und damit funktioniert es bei mir.---------------------------------------CODE---------------------------------------Sub PptInsertPicture()Dim TempPfadTempPfad = "c: mp"Dim fsoSet fso = CreateObject("Scripting.FileSystemObject")Dim DateinameDateiname = fso.GetTempName()TempPfad = TempPfad + Dateiname + ".bmp"Dim viewer3D1 As ViewerSet viewer3D1 = CATIA.ActiveWindow.ActiveViewerDim viewpoint3D1 As Viewpoint3DSet viewpoint3D1 = viewer3D1 ...
|
| 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 : Kante selektieren-aber wie damit weiterarbeiten
Proofin am 14.09.2006 um 11:31 Uhr (0)
Ich sehe keinen Unterschied zu meinem Code: Dim SpaWB As SPAWorkbench Dim Meas As Measurable Call oSel.Clear sFilter(0) = "Edge" Call oSel.SelectElement2(sFilter, "Test", False) Set oRef = oSel.Item(1).Value Set SpaWB = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench") Set Meas = SpaWB.GetMeasurable(oRef) dLen = Meas.Lengthund bei mir funktioniert soweit alles.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Gruppe erstellen
Proofin am 17.10.2006 um 13:35 Uhr (0)
Hallo AlfaRomeo,ich hab dein Skript mal erweitert:Language="VBSCRIPT"Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet oProduct = partDocument1.Product product vom PartDoc speichernSet part1 = partDocument1.PartSet hybridBodies1 = part1.HybridBodiesSet hybridBody1 = hybridBodies1.Add()part1.UpdateSet TheGroups = oProduct.GetTechnologicalObject("Groups") Groups speichernSet NewGroup = TheGroups.Addpart1.UpdateEnd SubGruß Proofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kante selektieren-aber wie damit weiterarbeiten
Proofin am 14.09.2006 um 13:20 Uhr (0)
Ich habe deinen Code mal bei mir ausprobiert und etwas verändert:was du nicht machen solltes ist 2 Selektion anlegen, immer nur eine und diese immer wieder leeren.Ich persönlich würde in einer Schleife keine Variablen deklarieren, immer vor der Schleife. Sub CATMain() Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim hybridShapeFactory1 As Factory Set hybridShapeFactory1 = part1.HybridShapeFactory Dim HB As HybridBody Set HB = part1. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Maschine in Prozess Dokument einfügen
Proofin am 11.10.2006 um 14:35 Uhr (0)
Hallo alle zusammen,wir haben mehrere (eigene) Maschinen für Catia Processe erstellt. Ich möchte nun die Maschinen überprüfen und ein Paar Sachen auslesen. Dazu möchte per VB ein ProcessDocument erstellen und diesem eine Maschine hinzufügen. Interaktiv geht es ja über: Doppelklick auf Aufspannung dann Klick auf Maschine und anschließend Maschine aus Dateiauswahl.Den Process anzulegen ist nicht das Problem aber wie bekomme ich die Maschine in die Aufspannung??Hat einer von Euch dieses Prozedere schon mal pe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente aus Geometrischen Set in txt-File exportieren
Proofin am 22.11.2006 um 11:11 Uhr (0)
Moin Matthias,das liegt an dem Suchstring: in dieser selektion die achsessysteme selektieren Call sSel.Search("Typ=Achsensystem,sel")Diesen String muß du in der englischen Version anpassen, ich hab es nicht im englischen getestet.müßte dann sowas sein wie: in dieser selektion die achsessysteme selektieren Call sSel.Search("Type=Axis System,sel")aber wie gesagt hab ich nicht getestet. Das kannst du aber auch in Catia ausprobieren, wenn in das Menü "Bearbeiten/Suchen..." gehst. Da siehst du die Suchstrings ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkte suchen und in Array schreiben
Proofin am 12.04.2007 um 10:40 Uhr (0)
Moin Physimathi,Du kannst Elemente am einfachsten über die Search Funktion der Selection suchen. Hierfür kannst du den Suchstring aus der Suchfunktion unter "Bearbeiten/Suchen" verwenden. Aber aufpassen dieser Suchstring ist Sprachabhängig.Also du kannst zum Beispiel in der deutschen Sprachumgebung mit folgendem Code alle Punkte suchen lassen:---------------------------------Code--------------------------------- Dim oSel As Selection Set oSel = CATIA.ActiveDocument.Selection oSel.Search ("Type=Punkt, all ...
|
| 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 : Elemente aus Geometrischen Set in txt-File exportieren
Proofin am 15.11.2006 um 19:24 Uhr (0)
Nein mit dem oMeas kommst du bei 2D nicht weiter!!Funktioniert nur mit 3D.Du kannst aber die Sachen direkt abfragen:Type des GeoElement abfragensType = TypeName(osketchelement) wenn KreisIf InStr(1, sType, sCIRCLE2D) 0 Then Bis hier läufts, nun muß ich aber Eigenschaften wie den Mittelpunkt abfragen dim a2DCoord(2) osketchelement.Radius osketchelement.GetCenter(a2DCoord)end ifFür die Linie kannst du GetEndPoints(aCoords) verwenden mit aCoords(3)aCoords(0) - x erster PunktaCoords(1) - y erster PunktaCoord ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Programmierung mit NC
Proofin am 20.02.2007 um 11:49 Uhr (0)
Moin,ich hab deinen Code fast unverändert bei mir laufen lassen und es funktioniert.Public Process_Doc As ProcessDocumentPublic Manu_Program As ManufacturingProgramPublic Ref_op As ManufacturingOperationPublic InputProzess(0)Public Input_OP(0)Dim Prosel As SelectionSub CATMain() InputProzess(0) = "ManufacturingProgram" Input_OP(0) = "ManufacturingOperation" Dim Setup1 As ManufacturingSetup Set Process_Doc = CATIA.ActiveDocument Set ActivityRef = Process_Doc.GetItem("Process") *** Retrieve current SetUp ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Maschine in Prozess Dokument einfügen
Proofin am 16.10.2006 um 09:38 Uhr (0)
Hallo alle zusammen,nur falls es jemanden interesiert wie man eine MAschine zu einem Process per Skript hinzufügt.Vorraussetzung ist ein offenes ProcessDocument und das Produkt mit der kinematisierten Maschine. Set oPPRDoc = Catia.ActiveDocument.PPRDocument Set oPPRResources = oPPRDoc.Resources Set ActivityRef = oPPRDoc.Processes.Item("Process") *** Manufacturing SetUp suchen *** If (ActivityRef.IsSubTypeOf("PhysicalActivity")) Then Set Childs = ActivityRef.ChildrenActivities nChildCount = Childs.Count ...
|
| In das Form CATIA V5 Programmierung wechseln |
