|
übay : Biete: 3D Maus von 3DConnexion ( 17.09.2007 - 12:00 )
AndreeX00X am 05.09.2007 um 10:31 Uhr (0)
Hallo Timberwolve,ja, für die reine Erzeugung von Positionsnummern.Es ist so, ich schreibe gerade meine Studienarbeit über Rahmenerzeugung, Schriftfeldeinträgen und Stücklistenerstellung mit Makros in CATIA V5 und habe eigentlich auch schon alles so weit fertig. Die einzigste Sache, die jetzt noch nicht so wirklich toll ist, dass in der Stückliste die Producte bzw. Unterbaugruppen nicht nummeriert sind und somit immer freie Felder in der Stückliste bei "Positionsnummer" erscheinen. Das könnte man zwar von ...
|
| In das Form übay wechseln |
|
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 : 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 : 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 : 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 : Attribute Link auf Drawing Text
Plechri am 19.12.2012 um 09:59 Uhr (0)
Hallo,ich möchte folgendes über ein CATScript Makro realisieren: Wenn ich im Drafting Modul einen Zeichnungsrahmen über ein Makro einfüge, sollen Einträge aus einer auszuwählenden 3D Datei (Part oder Product) mit dem im Schriftfeld vorhandenen Text verlinkt werden (Attribute Link). Das Problem ist dabei, dass ich über SelectElement4 ein objekt der Klasse "Part" oder "Product" auswählen möchte (indem ich während der Ausführung des Makros in das 3D Fenster des Part oder Product wechsele und darin den Part od ...
|
| 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 : 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 |
