|
CATIA V5 Programmierung : VBScript / Object required error on Selection
tomtom1972 am 07.04.2005 um 21:21 Uhr (0)
Hello again, It s also possible to communicate in english. I still don t understand your problem. The InputObjectType is not constant, it s alternating. Because of that you dim it as a array. The selection.item(1).value can be a point, a line OR a curve-object, but not all at once. But when you paste your selection into a loop, the InputObjectType can be different for each of the loops. Or do you want to make a multi-selection of elements with a different ObjectType? In this case you have to use the Select ...
|
|
CATIA V5 Programmierung : Referenz aus einer Selektion
tomtom1972 am 16.12.2005 um 15:25 Uhr (1)
Hallo Proofin,das funktioniert leider nicht für Constraints.Die gehen wie gesagt nur über den .CreateReferenceFromName und nicht über die Objekte (selection.item(1).value) selbst.Gruss TomTom------------------tomtom1972
|
|
CATIA V5 Programmierung : CATIA = Schlaftablette?
tomtom1972 am 17.03.2006 um 14:40 Uhr (0)
Hallo,.item(1) war ein Bsp dafür, wo ein Punkt in der Objectstruktur abgelegt ist. Rekursiv durchsuchen heisst:Du verwendest eine Routine (Sub oder Func) die sich bei einem bestimmten Ereignis wieder selbst aufruft. D.h. meine Routine sucht alle Hybridbodies nach Punkten durch und nach anderen Hybridbodies. Wenn andere HB gefunden werden, ruft das script die Routine nochmal auf und übergibt den gefundenen HB als Eingangselement. Usw....Farbe ist schlecht: Farben kannst du nur auslesen, indem du das Object ...
|
|
CATIA V5 Programmierung : Rekursiv
tomtom1972 am 13.03.2007 um 09:05 Uhr (0)
Hallo,wieso soll CATScript dafür nicht gemacht sein?Und wieso ist ein rekursiv aufgebautes Script speicherintensiver? Das halte ich alles für absoluten Unfug. Endlosschleifen sind das Resultat falscher Programmierung und nicht das Ergebnis rekursiver Vorgänge.Rekursiv heißt ja nicht, das eine Schleife beliebig oft aufgerufen wird.Bsp sei folgende Struktur:Product Product Part Product Part Partund folgendes Script:Sub CATMain() Set oRoot = Catia.ActiveDocument Set oProducts = oRoot.Produc ...
|
|
CATIA V5 Programmierung : Alle Ecken wählen
tomtom1972 am 29.03.2007 um 16:25 Uhr (0)
Hi spikey jr.,so kann das nix werden.Was möchtest du damit Zitat: Set Kante = Kanten_Selektion.Item(i) Set Kante = GeometrieObjekt.Valueerreichen?Was ist GeometrieObjekt und warum weisst du der VariablenKante zweimal unterschiedliche Objekte zu?Worauf bezieht sich die If-Abfrage Zitat: If Richtung1.DirectionSpecification = Richtung2.DirectionSpecification ThenWas ist Richtung2 ? Diese Variable ist immer leer (empty/nothing), da du sie nie zugewiesen hast.Also ist Richtung2 immer ungleich Ric ...
|
|
CATIA V5 Drafting : Exemplare einer 2D-Componete lassen sich nicht mehr aus einer Zeichung löschen
tomtom1972 am 12.02.2009 um 13:17 Uhr (0)
Hallo,genau. Auch wenn wir hier nicht im Programmierforum sind:Einfach in ein CATScript kopieren:Language="VBSCRIPT"Sub CATMain()If Catia.Windows.Count 1 Then MsgBox "Kein Dokument geöffnet. " & vbLf & "Das Script wird abgebrochen.", 48, "Error" Exit SubEnd IfSet oAD = Catia.ActiveDocumentIf LCase(TypeName(oAD)) "drawingdocument" Then MsgBox "Es muss eine .CATDrawing geöffnet sein. " & vbLf & "Das Script wird abgebrochen.", 48, "Error" Exit SubEnd IfSet oSheets = oAD.SheetsFor i = 1 To oSheets.Coun ...
|
|
CATIA V5 Programmierung : In welchem Körper befindet sich Selection
tomtom1972 am 22.03.2005 um 09:57 Uhr (0)
Hallo, in R14 (und mit VB 6.0) klappts mit .SelectElement2 und folgendem Code. (Da die Methode SelectElement2 ebenfalls in R12 existiert, gehe ich davon aus, das es hier auch klappt.) Dim InputObjectType(0) Dim Status Dim oSelection Set oSelection = CATIA.ActiveDocument.Selection InputObjectType(0) = Face ---nur Fläche auswählbar Status = oSelection.SelectElement2(InputObjectType, Select , False) --- UserSel If (Status Normal ) Then -------Auswahl i.O? MsgBox Abort --- nein E ...
|
|
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
|
|
CATIA V5 Programmierung : Länge einer beliebigen Linie
tomtom1972 am 19.07.2005 um 13:38 Uhr (0)
Hallo, das geht wunderbar per script; für alles was irgendwie etwas mit "Messen" zu tun hat, bietet die COM-Schnittstettle das Measurable-Objekt und die dazugehörigen Methoden (GetVolume, GetArea, GetCOG....) und Eigenschaften, z.B. die Length. Mit folgendem Code kannst du alle GSD-Elemente, die eine "Länge" ausgeben können, messen, wobei du dich in einem Part innerhalb einer Product-Struktur (Root ist ein CATProduct) oder nur in einem Part ( = Root) befinden darfst. Script starten und GSD-Element anwählen ...
|
|
CATIA V5 Programmierung : bestimmte Elemente aus GeometricalSet löschen
tomtom1972 am 26.07.2005 um 07:31 Uhr (0)
Hallo Sascha, du musst die erste Selection löschen, dann ist dein Selection.Count nicht immer 0. D.h. irgendeinem Object (oSelectedElement) den Inhalt deiner Selection zuweissen (bzw. den ersten Item). Falls es mehrere sein sollen, muss du ein Array nehmen. Dann die Selection löschen und innerhalb des Objects neu suchen. Siehe Code unten: Falls du noch Fragen hast, kannst du mich unter der Durchwahl -532 erreichen (Torben). Sub CATMain() Set oSelection = Catia.ActiveDocument.Selection Dim InputObjectTyp ...
|
|
CATIA V5 Programmierung : Strukturbaum abbilden
tomtom1972 am 25.07.2005 um 06:58 Uhr (0)
Hallo, das Prinzip hast du ja schon selbst beschrieben: Was dir hier weiterhilft ist eine Rekursive Funktion. Dein Script beschränkt sich auf 5 Schleifen (= Strukturtiefe), weil du eben fünf Absätze (for a = ... bis for e = ) dafür vorgesehen hast. Reduziere es auf einen (eine Struktureben auswerten). Falls Products (oder Components) mit einem Item.Count 0 auftreten, muss sich die Funktion am Ende selbst aufrufen und das betrefende Product als neue Eingangsgröße an die aufgerufene Funktion (also an sich ...
|
|
CATIA V5 Programmierung : Datei vorhanden???
tomtom1972 am 31.10.2005 um 06:53 Uhr (0)
Hallo robert_de,der vorhergehende (o.s.) Code macht folgendes:-öffnet Fenster zur Auswahl eines xls.files-lädt xls.file-überprüft, ob xls.file schreibgeschützDein Probelm ist ja ein anderes. Versuche einmal folgendes:Dim bFileExists as BooleanbFileExists = falseSet oFileSystem = CreateObject("Scripting.FileSystemObject")Set oFolder = oFileSystem.GetFolder(sFolderToCheck) ----sFolderToCheck = absolter Pfadname (String) des Ordners, in den dein File gesichert werden soll, also z.B. c est est2123Set oFiles = ...
|
|
CATIA V5 Programmierung : Import a material library in V5R12
tomtom1972 am 02.11.2005 um 12:59 Uhr (0)
Hi,zu Problem 3.)Nicht über die COM-Schnitstelle zugreifbar, geht also nur (wenn du mit CatiaLanguage: englisch arbeitest) über:Catia.StartCommand "Sort Materials (A-Z)"Catia.StartCommand "Sort Materials (Z-A)"zu Problem 6.)siehe Screenhshots. Bsp-Code, suche anch Familie "Metal", ungefähr so:For i = 1 to Catia.ActiveDocument.Families.Count If Catia.ActiveDocument.Families.Item(i).Name = "Metal" Then msgbox "vorhanden" Else msgbox "nicht vorhanden" End if Exit SubNextProblem Darstellung in einer Re ...
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
