|
CATIA V5 Programmierung : View in FT&A selektieren und aktivieren
ua0jr am 15.12.2009 um 11:32 Uhr (0)
Ich glaub ich habs ... (kommt aus einem catvba-Form !!!)da ist sicher viel zu viel für Euch drinnen (einige Attribute/VAriablen aus dem UserForm usw.)aber ich bin zu faul, das jetzt zu löschenGrüße aus WienJRPrivate Sub submit_Click() Dim RC As Integer RC für DOF-Analyse Dim Sel As Object Dim Sel1 As Object Dim SelFeld(1), Sel1Feld(0), Status mtm_refpunkt.Hide RP-Properties im Namen Dim C_DOC As Document Set C_DOC = CATIA.ActiveDocument Set Sel = C_DOC.Selection Set Sel1 = C_DOC.Selection ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makros läuft durch, keine Resultate in CATIA
wrack solutionist am 09.02.2010 um 15:23 Uhr (0)
Hallo,ich möchte aus einer Excel Tabelle, welche xyz koordinaten beinhaltet. Splines erstellen. Da Makros läuft ohne Fehler durch, jedoch ohne Resulate in CATIA.Kann jemand einen schnellen Blick draufwerfen, woran es liegen könnte. Vielen DankCode:Private Sub CommandButton1_Click()Dim CATIA As ObjectOn Error Resume Next Set CATIA = GetObject(, "CATIA.Application") If Err.Number 0 Then Set CATIA = CreateObject("CATIA.Application")End IfIf CATIA Is Nothing Then MsgBox "First open a CATIA application ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektionen eines Parts im Product
Bernod am 23.04.2010 um 16:53 Uhr (0)
Hallo,ich möchte diese Frage mal wieder hochschieben. Es muss doch möglich sein SelectElement4 korrekt anzuwenden?!Ich habe derzeit folgende Situation:- Ich habe ein Product, in diesem befinden sich 2 Parts- Als aktives Dokument ist das Part 2 gesetzt- Ich möchte einen Punkt aus dem Part 1 selektieren- Ich verwende vbaCode:01 Dim Filter(0)02 Filter(0) = "Point"03 Selektion definieren und leeren ----------------------------------04 Dim UserSel As Object05 Set UserSel = CATIA.ActiveDocumen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia Parameter aus Excel heraus steuern
Christian.O am 12.08.2010 um 20:33 Uhr (0)
Servus,ich würde mir diverse Parameter im Part erstellen und danach über "Design Table" die Einstellung "Create a design table with current parameter values" alle erstellen Parameter auswählen. Diese Parameter werden dann im Excelfile mit den dazugehörigen Werten angezeigt. Wenn du jetzt z.B.: in die nächste Zeile weitere Werte schreibst und das File speicherst kannst du dann im Catia drinnen über doppelklick auf "Configuration" kannst du dann die 2. Zeile auswählen. Die Parameterwerte ändern sich dann dan ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Teilereferenzlink bei Erstellung einer Zeichnung umbiegen
ser4 am 30.11.2011 um 15:39 Uhr (0)
Hallo Forum,habe schon Suchfunktion bemüht, bin anscheinend zu dumm um "richtige" Posts zu finden ggf. gefundene richtig interpretieren.Ich habe folgende Frage: es ist ein Verzeichnis mit 3d-Teilen(vorerst CATParts) vorhanden. Ein angedachtes Macro soll Part aufrufen, eine Zeichnung vom Template(NewFrom) erstellen und vom geöffnetem Part ein Zeichnungsansicht erstellen. Danach wird die Zeichnung aktualisiert, und mit SaveAs abgespeichert.Zeichnungstemplate beinhaltet externe Referenzen, die auf ein Parttem ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATPart erstellen Kugeln mit Makro.
ferdo am 07.03.2012 um 19:51 Uhr (0)
Language="VBSCRIPT"Sub CATMain()Msgbox "Select geometrical set containing points to create spheres"Dim Document,Part,Selection,HybridShapeFactory,HybridBodies,HybridBody,OriginElements,Plane,PlaneReference,Status Dim InputObjectType(0),PointIndex,PointReference,HybridShapeSymmetry Set Document = CATIA.ActiveDocument : Set Part = Document.Part : Set Selection = Document.Selection Set HybridShapeFactory = Part.HybridShapeFactory InputObjectType(0)="HybridBody" Status=Selection.SelectElement3(InputObjectTyp ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATPart erstellen Kugeln mit Makro.
ferdo am 07.03.2012 um 19:58 Uhr (0)
Hallo, Language="VBSCRIPT"Sub CATMain()Msgbox "Select geometrical set containing points to create spheres"Dim Document,Part,Selection,HybridShapeFactory,HybridBodies,HybridBody,OriginElements,Plane,PlaneReference,Status Dim InputObjectType(0),PointIndex,PointReference,HybridShapeSymmetry Set Document = CATIA.ActiveDocument : Set Part = Document.Part : Set Selection = Document.Selection Set HybridShapeFactory = Part.HybridShapeFactory InputObjectType(0)="HybridBody" Status=Selection.SelectElement3(InputObj ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : helfen
gerlado3 am 29.10.2012 um 22:29 Uhr (0)
the first thing I want to say is thanks to everyone who has responded. At no time wanted to cause problems, I apologize for not meeting the forum rules.regarding my problem as well have said, this script tells me the number of holes in a piece, but the script does not recognize the number of holes created with a pattern.That is, if I create a hole and apply a rectangular pattern, creating four holes, the value I give this script is a total of two holes, instead of 5, that would be the actual number of the ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Trimmen von Verbinden von Flächen automatisieren
tsolina am 17.01.2013 um 13:10 Uhr (0)
das geht mit join hier ist vba beispiel - a sub to join all elements from geometrical set -Sub Assembly(gSet As HybridBody) Dim i As Integer Dim hybridShapeFactory1 As HybridShapeFactory Dim oAssy As HybridShapeAssemble Set hybridShapeFactory1 = CATIA.ActiveDocument.Part.HybridShapeFactory - create join with first two items from set - Set oAssy = hybridShapeFactory1.AddNewJoin(gSet.HybridShapes.Item(1), gSet.HybridShapes.Item(2)) - if you have more than 2 elements in set - If gSet.HybridSha ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Technologische Ergebnisse erzeugen
C.Samer am 11.12.2017 um 10:35 Uhr (1)
Hier noch ein Beispiel:Code:Sub CATMain() Set oSel = CATIA.ActiveDocument.Selection Set oItem = oSel.Item(1).Value Catia.ActiveDocument.Selection.Clear() Catia.ActiveDocument.Selection.Add(oItem) CATIA.StartCommand "Create Technological Results"End Sub Der Code funktioniert nur, wenn ich das Part blau markiere und den Body orange Liebe Grüße,Christoph
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Technologische Ergebnisse erzeugen
C.Samer am 11.12.2017 um 10:04 Uhr (15)
Edit: Habe eine (leider langsame) Lösung gefunden.Der Befehl Code:CATIA.StartCommand "Create Technological Results" funktioniert nur im PartDesign. Daher: Body selektieren und dann per Code:CATIA.StartWorkbench "PrtCfg" ins PartDesign wechseln bevor ihr Technologische Ergebnisse hinzufügt.Liebe Grüße aus Wien,Christoph :) -------------------------------------------------------------Hallo liebe Community!Ich versuche gerade ein Makro zu schreiben, welches allen Parts eines Produkts "Technologische Ergeb ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Technologische Ergebnisse erzeugen
noir333 am 11.12.2017 um 12:09 Uhr (1)
Hallo Christoph,wie Du schon sagst, Du musst das Part blau machen: mysel.Clear mysel.Add(mypart1) CATIA.StartWorkbench("PrtCfg") Set mysel1=mypart1.Parent.Selection mypart1.InWorkObject = body1 mysel.clear mysel.Add(body1) if catlang="de" then CATIA.StartCommand("Technologische Ergebnisse erzeugen") elseif catlang="en" then CATIA.StartCommand("Create Technological Results") end if-----------------------------
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Create Formula
Sylas am 24.01.2019 um 08:16 Uhr (1)
Hallo ZusammenIch probiere jetzt ein Formula erstellen:Code: Set oPart = oDoc.Part Set oParam1 = oPart.Parameters.Item("gesamtlänge") Set oParam2 = oPart.Parameters.Item("Hinweis") Set oRel = oPart.Relations sFormulaBody = "L=" & oParam1.ValueAsString Set oFormula = oRel.CreateFormula("Formula.99", "", oParam2, sFormulaBody)aber der Code gibts mir uber den Parameter der Mütze ohne Wert (es ist Lehr). Kann mir jemand der Code korriegieren?GrußLucas
|
| In das Form CATIA V5 Programmierung wechseln |
