|
CATIA V5 Programmierung : Volumenberechnung
Günther Roll am 10.04.2002 um 13:44 Uhr (0)
Hallo, versuchs mal mit: set Product = Catia.ActiveDocument.Product Dim V As Double Dim m As Double Dim A As Double V = Product.Analyze.Volume m = Product.Analyze.Mass A = Product.Analyze.WetArea MsgBox "Volumen: " & Str$(V) MsgBox "Masse: " & Str$(m) MsgBox "Oberfläche: " & Str$(A) ------------------ MfG Günther
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Formeln von Selection ausschließen
joehz am 28.04.2016 um 09:53 Uhr (1)
Hi Uwe,Zitat:Nun möchte ich mehrere ausschließen.Code:For Each aktiRel In oRel If aktiRel.Name "DINNormaFormula" Or "BendRadiusPartRadiusWallOnEdge" Then oSel.Add aktiRel oSel.Delete NextFrage: Was ergibt ... ?("DINNormaFormula" Or "BendRadiusPartRadiusWallOnEdge")Probier mal Code:If (aktiRel.Name "DINNormaFormula") Or (aktiRel.Name "BendRadiusPartRadiusWallOnEdge") ThenTschau,Joe------------------Inoffizielle Catia Hilfeseite
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Problem mit SelectElement
karbruegge am 04.07.2007 um 10:53 Uhr (0)
Vielen Dank für die Hinweise.Ich verwende V5R16 SP4, als Filter-Typ ist es egal, ob ich "Linie" oder "AnyObject" verwende, das Problem ist immer das gleiche:Wenn ich mir überMsgBox CATIA.ActiveDocument.Selection.Item2(1).Value.Parent.Nameden Namen ausgeben lasse, bekomme ich den Namen der Linie, wenn ich bei der Selektion die Linie im Strukturbaum anklicke. Klicke ich auf die Linie selbst, bekomme ich leider nur "CATIAReference0".
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koordinaten von HybridShapePointOnCurve auslesen
koopi01 am 27.05.2008 um 12:32 Uhr (0)
Hallo,wie kann ich die Koordinaten von HybridShapePointOnCurve auslesenHabs so versucht :Code:Dim oPartDoc As PartDocument = CATIA.Documents.Open(sFilename)Dim oPart As Part = oPartDoc.PartDim oHBod As HybridBody = oPart.HybridBodies.Item("Geometrisches Set.1")Dim pcoord() As DoubleDim oPT As HybridShapePointOnCurveoHBod.HybridShapes.Item("testpunkt1").getcoordinates(pcoord)Leider gibts getcoordinates nicht bei HybridShapePointOnCurveDANKE für ne Hilfekoopi01
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Reaction / sichtbar / per Script schalten
WilliGo am 19.06.2009 um 16:41 Uhr (0)
Hallo,wie kann man eine Reaction die als "Hidden objekts" versteckt liegt per script sichtbar schalten ? Ich möchte ein Set löschen ohne das ich den Hinweis von Catia bekomme das sich noch nicht sichtbare Elemente/ Reaction im diesem Set befinden. Mein gedanke ist erst die verstecketen Reaction sichtbar schalten und dann das Set mit sammt den Reaction löschen. ------------------Willi
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Drawing Name
martin2 am 02.02.2011 um 16:28 Uhr (0)
Hallo nochmal,Besten Dank - es funktioniert!!!Anbei noch der Codeausschnitt: For Each aktuellesDokument In alleDokumente Zeichnungen If TypeOf aktuellesDokument Is DrawingDocument Then Dim oWindow As Window Dim strInfo() As String Set oWindow = CATIA.ActiveWindow strInfo = Split(oWindow.Caption, " ", -1, vbTextCompare) Name_neu = txtSpeicherpfad.Text & strInfo(0) MsgBox Name_neu lblaktuelleDatei = Name_neu frmHauptformular.Repaint aktuellesDo ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ausspannung in CAM Process umbenennen
DaiVied am 20.09.2011 um 17:14 Uhr (0)
Zur Übung habe ich mich an folgendem Code, um ein einfaches Item umzubenennen, versucht:Code:dim manufacturingProgram1, processDocument1, manufacturingSetup1Sub CATMain() Set processDocument1 = CATIA.ActiveDocument Set manufacturingProgram1 = processDocument1.GetItem("Herstellungsprogramm.1") Set manufacturingSetup1 = manufacturingProgram1.GetItem("Aufspannung.1") manufacturingSetup1.name = "Standartaufspannung"End SubAls Fehlermeldung bekomm ich immer: "GetItem fehlgeschlagen"Weis vll jemand an was das li ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Warning unterdrücken
stefanandreas am 22.11.2005 um 15:49 Uhr (0)
Hallo,ich möchte eine Konstruktionstabelle per Makro löschen und bekomme ein unhübsches Fenster "Messages fired by knowledge", mit der Warnung, das eine Formel die Konstruktionstabelle als Inputfeature hat.Wie kann ich diese Warnung deaktivieren, bzw. so abfangen, das ich die Meldung in meiner eigenen Userform anzeigen kann.das klassische CATIA.DisplayFileAlerts = False konnte die Warnung leider nicht unterdrücken.Hat jemand eine Idee?GrüßeStefan
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Datei Kopieren und Öffnen
Lusilnie am 21.09.2010 um 23:05 Uhr (0)
Hallo thorstenS,wie schon "zoltan.bekesi" angedeutet hat, musst Du Deine Variablen sauber definieren. Hier mal Dein Code in gesäuberter Form, so dass er auch "durchläuft":Code:Option ExplicitSub CATMain() Dim Shell As Object Dim Ordner As String Dim fso As Object Dim sfol As String Dim dfol As String Dim documents1 As Documents Dim productDocument1 As ProductDocument Set Shell = CreateObject("Shell.Application") Ordner = Shell.BrowseForFolder(0, "Wählen Sie bitte den Speicherort aus", 0).Self. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBScript / Object required error on Selection
tomtom1972 am 07.04.2005 um 06:56 Uhr (0)
Hallo omz, versuch es einmal mit fogendem Code: Dim InputObjectType(2) Dim Status InputObjectType(0) = "Point" InputObjectType(1) = "Line" InputObjectType(2) = "HybridShapeCurveExplicit" Set mySel = CATIA.ActiveDocument.Selection Status = mySel.SelectElement2(InputObjectType, mymessage, false ) If (Status = "Normal") and (mySel.count=1) Then Set myEntity = mySel.Item(1).Value End if Funktioniert in R14Sp3 Gruss TomTom ------------------ tomtom1972
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Text parallel to Screen
cChris am 23.11.2010 um 12:01 Uhr (0)
Hallo Michael,Danke für deine Antwort.Wie in der Systeminfo zu sehen, arbeite ich mit CATIA V5R19.Den Text parallel to Screen möchte ich im Product erzeugen, siehe Anhang.Zu deiner Frage, ja das Textfeld soll parallel zur Bildschrimebene verlaufen. Ob dies in DMU geht kann ich Dir nicht sagen.Edit: Bild eingefügt ------------------Mit freundlichen Grüßen,cChris[Diese Nachricht wurde von cChris am 23. Nov. 2010 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ergebnisse in Textdatei übertragen
HarleKinX am 01.03.2011 um 13:41 Uhr (0)
Ja genau das hat gefehlt, nun meckert er aber das End if an.Habe mal das Öffnen der Datei auf ein Extra Button gelegt:For Each datei In ordner.FilesIf InStr(datei.Name, "Ergebnisse") 0 ThenSet mydatei = CATIA.FileSystem.CreateFile(saveInBox.Text + "Ergebnisse.txt", True)MsgBox mydatei.NameSet t = mydatei.OpenAsTextStream("ForReading")Exit ForEnd IfNextWie muss ich die Zeile mit For Each datei In deklarieren bzw erfassen, damit das Programm den genauen Pfad hat?
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia Pfad eines Parts auslesen
HoBLila am 02.10.2009 um 16:50 Uhr (0)
Kenne solch einen Command nicht, aber du kannst doch über die Namen der Parents eine rekursive Schleife laufen lassen.------------------Mit freundlichen Grüßen,Henry Schneideralias LilaEs gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,die Natur versucht, immer bessere Idioten zu bauenXing
|
| In das Form CATIA V5 Programmierung wechseln |
