|
CATIA V5 Programmierung : Schleife für Dxf-Umwandlung inkl. Farb- und Layer-änderung
imation1999 am 29.11.2013 um 17:00 Uhr (1)
Achso thja, mein Fehler!Versuch mal so...Code:......Dim selection1 As SelectionFor i = 1 To oFolder.Files.Count Set oFile = oFolder.Files.Item(i) If Right(oFile.Name, 10) = "CATDrawing" Then Name = Left(oFile.Name, Len(oFile.Name) - 11) Datei = Pfad + Name + ".CATDrawing" F = F + 1 Set oActiveDoc = CATIA.Documents.Open(Datei) Set Document = CATIA.ActiveDocument Set selection1 = Document.Selectionselection1.Search "Weight=0,2mm,all"Selection1.VisProperties.SetLayer catVisLayerBasic, 1s ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punktselektierung im Punktexportmakro ändern
thehomer81 am 31.03.2009 um 15:50 Uhr (0)
Ich hab ne Lösung für mein Problem gefunden:"Redim aCoord(2) Set Datei = CATIA.FileSystem.CreateFile ("c: mpPunkte.csv", True)Dim ostream as TextStreamSet ostream = Datei.OpenAsTextStream ("ForAppending")ostream.Write (";" &Chr(10)& ";" & "Punkte" & Chr(10)& Chr(10)) ostream.Write ( "Element" & ";" & "X-Koordinate" & ";" & "Y-Koordinate" & ";" & "Z-Koordinate" & Chr(10))set oshapes = CATIA.ActiveDocument.Part.HybridBodies.Item("Geo1").HybridShapesFor i=1 to oshapes.countoshapes.Item(i).getcoordinates aC ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Partnumber durchgehen
RSchulz am 18.11.2009 um 09:26 Uhr (0)
Hallo,das Umwandeln in Großbuchstaben sollte mit UCase gehen.Beispiel:Teilebez = UCase(CATIA.Documents.Item(m).Product.PartNumber)Zum Thema einzelne Buchstaben/Zeichen abrufen:Beispiel:For i = 0 to 30 Teilebez = CATIA.Documents.Item(m).Product.PartNumber msgbox Teilebez For j = 0 to Length(Teilebez) Buchstabe = Mid(Teilebez, j, 1) msgbox Buchstabe nextnextHab es nicht ausprobiert, sollte aber so möglich sein.HTH------------------MFGRick Schulz Nettiquette (CAD.de) - Was i ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Die internen Namen für Elemente auslesen
AndiKrue am 02.02.2009 um 17:08 Uhr (0)
Ich benutz diesen Code, um erst den Anzeigennamen auszugeben und dann den internen Namen. damit funktionierts aber nur bei Geosets, Skizzen und Parametern. ich kann mir denken warum es nicht funktioniert, aber wie kann es funktionieren? Steh da vor einer Wand...Sub bla2() Dim Name as string Dim p As Part Set p = Catia.ActiveDocument.part Dim selection as selection Set selection = Catia.Activedocument.selection MSGBOX(selection.item(1).value.name) set name = selection.item(1).value.getitem("ModelEl ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ParameterSet in Body / Körper
tobiley am 26.04.2010 um 09:28 Uhr (0)
Hallo,ich habe folgende Frage, ist es möglich ohne KWA-Linzenz Parameter in einem Body einzufügen? Ein ParameterSet konnte ich bereits mit hilfe folgendem Code erstellen (Baum im Anhang als Jpeg), allerdings kann ich diesen nicht ansprechen bzw. dort einen Parameter erstellen. Es wird bei einer Überwachung in VBA Editor auch keine Rubrik Parameters angezeigt, somit kann nicht mit "MyBody.Parameters..." gearbeitet werden.Vielen Dank für eure Hilfe!Sub catmain()Set MyPart = CATIA.ActiveDocument.PartSet Mybod ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Element aus Selektion aktivieren (bearbeiten)
picard am 13.12.2004 um 15:25 Uhr (0)
Hallo Leute, ich möchte in einem Makro ein Produkt nach Parts durchsuchen lassen und dann in den Parts Veränderungen vornehmen. Leider hängt es im Moment bei der Aktivierung des Parts. Es sollen alle Elemente des Suchergebnisses nacheinander abgearbeitet werden. Code: Language= VBSCRIPT Sub CATMain() variablendeklaration Dim productDocument1 As Document Dim selection1 As Selection Dim partDocument1 As Document Dim product1 As CATBaseDispatch Dim reference1 As Reference Dim publications1 As Publication ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Name des Werkzeugwechsels aus Selection ermitteln
A. Hofmann am 28.07.2003 um 17:06 Uhr (0)
Hallo Catia Programmierer, mit dem Objekt Selection will ich den Namen eines selektierten Werkzeugwechsels ermitteln mit folgendem Script (Ich befinde mich im PMG, SMG oder AMG): Set MfgDoc1 = CATIA.ActiveDocument Dim mySelection as Selection Set mySelection = MfgDoc1.Selection Dim SelMfgAct As ManufacturingActivity Set SelMfgAct = Nothing Set SelMfgAct = mySelection.Item(1).Value MsgBox SelMfgAct.Name Ich erhalte folgende Fehlermeldung: Das Objekt unterstützt diese Eigenschaft oder Methode nicht: SelMfgA ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bohrtabelle in Zeichnung updaten
Andreas Müller 1977 am 24.10.2010 um 14:09 Uhr (0)
Hallo an alle Forumleserhab mal wieder ein Problem, nur diesmal ist es nicht so einfach.ich möchte auf einen älteren Beitrag anknüpfen. Kurze vorgeschichte: Im Part setzen wir Ebenen und darauf 3D Punkte auf die wir unsere Kühlbohrungen setzen. Bei komplexeren Kühlungen bemaßen wir mit Tabellen. Ich kann mir in der Zeichnung die 3D Punkte Anzeigen lassen und das 3D Achsensystem auswählen-da macht mir Catia eine Tabelle mit Koordinaten - das ist auch toll verschiebe ich eine Bohrung im 3D und mach ein updat ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part in Product editieren
claho am 11.02.2006 um 13:29 Uhr (0)
Hallo liebe Kollegen,es wurde zwar schon immer wieder mal zu dem Thema etwas gepostet, aber scheinbar bin ich zu doof dafür, um es zu kapieren.Ich habe Parts in einem Product und möchte diese in einer Schleife nacheinander nehmen und "irgend etwas" damit machen. Zum Beispiel einen Body kopieren. Hierzu müsste das Part jedoch auf Edit geschalten werden, was aber ja nicht geht?!Hier ein Beispiel (das aber nicht geht :-) ):Sub CATMain() Set productDocument1 = CATIA.ActiveDocument Set product1 = prod ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Code läuft nicht in CommandButton
moppesle am 06.11.2019 um 19:12 Uhr (1)
Hallo Zusammen,der folgende code läuft problemlos in einem Makro.Code:Sub CATMain()Dim InputObjectType(0)Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartDim Selection As SelectionSet Selection = partDocument1.SelectionDim shapeFactory1 As FactoryROT = 175GRUEN = 255BLAU = 175If (Selection.count 1) Then MsgBox " Kein Element selektiert !" + Chr(10) + Chr(10) + " Selektieren Sie jetzt ein Element und starten das Makro nochmals. " Exit SubEnd IfDim MyPropSet As Vi ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Copy von 2D-Komponentenexemplaren zwischen zwei Drawings
Stefan_I am 16.01.2013 um 16:38 Uhr (0)
Hallo Programmierspezialisten,ich möchte gerne 2D-Komponentenexemplare zwischen zwei Drawings kopieren. Ich weiss des es funktioniert, habe es aber mit diesem Code nicht geschafft. Ich sehe, dass das Öffnen und Selektieren funktioniert, aber das Einfügen will nicht. Besten Dank für jeden Hinweis.Language="VBSCRIPT"Sub CATMain()Set documents1 = CATIA.DocumentsSet drawingDocument1 = documents1.Open("2DLIBGDF_A3.CATDrawing")Set selection1 = drawingDocument1.Selectionselection1.Search "CATDrwSearch.DrwDitto, ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Assembly-Design - Sectioning -> Schnitte durch Makro als CATPart abspeicher
scholzro am 12.07.2006 um 08:14 Uhr (0)
hallo tapani!danke für info.habe nun folgenden code:Code:Language="VBSCRIPT"Sub CATMain()Set windows1 = CATIA.Windowsset secs = CATIA.ActiveDocument.Product.GetTechnologicalObject("Sections")Dim NewSection As Section Set NewSection = TheSections.AddEnd Subdanach product mit den zu schneidenden teilen aufgerufen und makro gestartet.habe erwartet, dass er dann das sectioning aufruft und eine (zunächst beliebig positionierte schnittebene erstellt.aber leider:"The scripting engine for MS VBScript has the foll ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dictionary im CATVBS unter UNIX
DanielFr. am 27.07.2012 um 19:29 Uhr (0)
Hi,Zitat:Wenn ihr was wisst, wie ich die Deklarationen behalten kann, das wär super.Dass sie CATVBS/CATScript zur Laufzeit eliminiert ist mir bewusst und egal, ich will nur den Code bei der Portierung nicht so viel anfassen müssen.Ich glaube das geht nicht da VBS ja einen eignen Interpreder mitliefert der das eben nicht unterstützt sondern seine Variablen selbst im Arbeitsspeicher anlegt / verwaltet.Aber du könntest es durch ein kleiner Textberbeitungsscript jagen und alles Deklarieren (split an Leerzeiche ...
|
| In das Form CATIA V5 Programmierung wechseln |
