|
CATIA V5 Programmierung : Längenauswertung von Linien in einer View
EngineeredByRobberts am 27.04.2010 um 15:35 Uhr (1)
Über Curve2D kann man sich die Endpunkte ausgeben lassen und so die Länge berechnenLanguage="CATSCRIPT"Dim I As IntegerDim lineTmp As Curve2DDim endPoints1(3)Sub CATMain()Dim drawingDocument1 As DocumentSet drawingDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = drawingDocument1.Selectionselection1.Search "CATDrwSearch.2DCurve,all" For I=1 To selection1.Count2 Set lineTmp = selection1.Item2(I).Value lineTmp.GetEndPoints endPoints1 if lineTmp.Period = 0 then laenge1 = Sq ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : gespiegelte Teile
EngineeredByRobberts am 29.04.2010 um 15:30 Uhr (0)
Ich habe ein bisschen damit rumgespielt, bin aber auch nicht viel weiter gekommen.Assembly-Symmetry ist vom Typ AssemblyFeature und Teil von der Collection ‚AssemblyFeatures’Dim assyFeats1 As AssemblyFeaturesDim assemblyFeat1 As AssemblyFeatureSet productDocument1 = CATIA.ActiveDocumentSet Product1 = productDocument1.ProductSet assyFeats1 = Product1.GetTechnologicalObject("AssemblyFeatures")Aber:‘assyFeats1.Item()’ funktioniert nichtDafür funktioniert ‚assyFeats1.Remove()’ , das Feature wird gelöscht (aber ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dokument geöffnet
EngineeredByRobberts am 04.05.2010 um 09:38 Uhr (0)
CATIA.Documents.Count = 0 müsste eigentlich funktionierenedit: Bernd war schneller ------------------- Robert[Diese Nachricht wurde von EngineeredByRobberts am 04. Mai. 2010 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Lizenz ermitteln?
EngineeredByRobberts am 04.05.2010 um 10:55 Uhr (0)
Über CATIA.SystemConfiguration müsste es gehenAus der ‘V5Automation.chm’ :Dim SystemConfiguration1 As SystemConfigurationSet SystemConfiguration1 = CATIA.SystemConfigurationReDim NameArray(SystemConfiguration1.ProductNamesCount)SystemConfiguration1.GetProductNames NameArrayMsgBox "IsProductAuthorized for product " & NameArray(0) & " returns " & SystemConfiguration1.IsProductAuthorized(NameArray(0))------------------- Robert
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Lizenz ermitteln?
EngineeredByRobberts am 04.05.2010 um 11:32 Uhr (0)
Womit mal wieder bewiesen ist das man NIE was direkt aus der V5Automation.chm kopieren sollteDim NameArray()Dim SystemConfiguration1 As SystemConfigurationSet SystemConfiguration1 = CATIA.SystemConfigurationReDim NameArray(SystemConfiguration1.ProductCount-1)SystemConfiguration1.GetProductNames NameArrayMsgBox "IsProductAuthorized for product " & NameArray(0) & " returns " & SystemConfiguration1.IsProductAuthorized(NameArray(0))------------------- Robert
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Lizenz ermitteln?
EngineeredByRobberts am 04.05.2010 um 11:52 Uhr (0)
Als CATScript funktioniert das ganze, mit VB kenn ich mich leider zu wenig ausNeue Version:Option ExplicitLanguage="CATSCRIPT"Sub CATMain()Dim NameArray()Dim SystemConfiguration1 As SystemConfigurationDim I, A As IntegerSet SystemConfiguration1 = CATIA.SystemConfigurationA = SystemConfiguration1.ProductCount-1ReDim NameArray(A)SystemConfiguration1.GetProductNames NameArrayFor I = 0 to A If SystemConfiguration1.IsProductAuthorized(NameArray(I)) And right(NameArray(I),3) "prd" Then MsgBox "aktive Lizenz: ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Vererbung
EngineeredByRobberts am 27.05.2010 um 20:12 Uhr (0)
ProductDocument-Product-Products-Product-PartDocument-Part--------------------CATProduct---------------------- ----CATPart------Wie genau das Part im Product eingefügt wird hängt da von ab ob das Part neu erstellt werden muss oder schon vorhanden ist, ob das Part schon in Catia geladen ist,und ob es schon in einem Product verbaut ist, dazu gibt es unterschiedliche Methoden, siehe Seite 439------------------- Robert[Diese Nachricht wurde von EngineeredByRobberts am 27. Mai. 2010 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Einen beliebigen Punkt in die Mitte des Bildschirms schieben.
EngineeredByRobberts am 22.06.2010 um 17:28 Uhr (0)
Hier mal ein Beispiel, es verschiebt die Bildmitte auf 100,0,0Dim ViewerToWorkIn As ViewerDim DeinViewpoint As Viewpoint3D Dim Zoom1 As doubleDim sight1(2)Set ViewerToWorkIn = CATIA.ActiveWindow.Viewers.Item(1)Set DeinViewpoint = ViewerToWorkIn.Viewpoint3DZoom1 = DeinViewpoint.ZoomDeinViewpoint.GetSightDirection sight1DeinViewpoint.PutOrigin Array(100, 0, 0)DeinViewpoint.PutSightDirection sight1DeinViewpoint.Zoom = Zoom1ViewerToWorkIn.Update------------------- Robert[Diese Nachricht wurde von EngineeredByR ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Parameter über Python auslesen
EngineeredByRobberts am 23.06.2010 um 16:29 Uhr (0)
Längen und Winkel sind einfach:If TypeName(param1) = "Length" ThenIf TypeName(param1) = "Angle" Then------------------- Robert
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Parameter über Python auslesen
EngineeredByRobberts am 29.06.2010 um 12:40 Uhr (0)
So wie unten funktioniert es bei mir einwandfrei, ist aber wie oben schon erwähnt nur bei Längen und Winkel so einfach.Sub CATMain()Dim productDocument1 As DocumentDim selection1 As Selection Dim I As Integer Dim TextFile1 As FileDim fileSys As ObjectDim oStream As TextStreamDim Outputtxt, Tmptxt As String Dim param1 As Parameter Set fileSys = CATIA.FileSystemSet productDocument1 = CATIA.ActiveDocumentOutputtxt = productDocum ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Parameter über Python auslesen
EngineeredByRobberts am 17.06.2010 um 16:59 Uhr (0)
Hier ein kleines Beispiel:Option ExplicitLanguage="CATSCRIPT"Sub CATMain()Dim productDocument1 As DocumentDim selection1 As SelectionDim I As IntegerDim TextFile1 As FileDim fileSys As FileSystemDim oStream As TextStreamDim Outputtxt, Tmptxt As StringDim param1 As ParameterSet fileSys = CATIA.FileSystem Set productDocument1 = CATIA.ActiveDocumentOutputtxt = productDocument1.Path & "DeinTextFile.txt"Set TextFile1 = fileSys.CreateFile(Outputtxt, True)Set oStream = TextFile1.OpenAsTextStream("ForWriting")Set ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Parameter über Python auslesen
EngineeredByRobberts am 29.06.2010 um 12:43 Uhr (0)
ich denke Magnitude ist sprachabhängig und sollte bei dir warscheinlich "länge" anstatt "Length" sein?------------------- Robert[Diese Nachricht wurde von EngineeredByRobberts am 29. Jun. 2010 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Parameter über Python auslesen
EngineeredByRobberts am 29.06.2010 um 12:57 Uhr (0)
Hab gerade noch mal rumprobiert, und Längen sind vom Typ Length und NUR vom Typ Length und NICHT vom Typ DimensionIf TypeName(param1) = "Length" Then funktioniert einwandfrei, das mit Unit.Magnitude kannst du dich bei Längen sparen------------------- Robert
|
| In das Form CATIA V5 Programmierung wechseln |
