|
CATIA V5 Programmierung : Vermessung Abmessungen Produkt
picard am 08.02.2006 um 06:30 Uhr (0)
Hallo Leute,ich möchte ebenfalls die Abmessungen eines Produktes erfassen. Leider stellt sich das ganze nicht so einfach dar.Ich finde es wirklich toll, wie einfach man auf komplexe Berechnungen im CAD-System zugreifen kann (z.B. Volume, WetArea, PrincipalMoments). Die Hauptabmessungen hingegen, welche jeder Depp ohne weiteres in der Werkstatt mit nem Zollstock (Gliedermaßstab ) erfassen kann, die stellen ein Problem dar?!Ich begreife es nicht...Die einzige Lösungsmöglichkeit die ich derzeit sehe ist über ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Detail Sheets löschen
zoltan.bekesi am 12.12.2007 um 19:14 Uhr (0)
oder einfach:Code:For i = 1 To oDRWDoc.Sheets.Count Set oSheet = oDRWDoc.Sheets.Item(i) If oSheet.IsDetail then Set SelSheet = CATIA.ActiveDocument.Selection Set oSheet = CATIA.ActiveDocument.Sheets.Item(i) SelSheet.Add(oSheet) SelSheet.Delete Da stand vorhin eine 2...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Code läuft nicht in CommandButton
joerneman am 07.11.2019 um 06:35 Uhr (1)
Hallo Uwe,ich habe so ein ähnliches Makro.Mein Hauptteil sieht so aus:Code:Sub CATMain()Dim USel As SelectionSet USel = CATIA.ActiveDocument.Selection If USel.Count 1 Then Fehleranzeige.Show Else Farbgebung.Show End IfEnd SubDas Private Sub für z.B Gewinde so:Code:Private Sub Gewinde_Click()Set USel = CATIA.ActiveDocument.SelectionUSel.VisProperties.SetRealColor 255, 255, 0, 1USel.VisProperties.SetRealOpacity 255, 1Unload FarbgebungEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Umbenennen über Selection
ChiefJosef am 13.02.2014 um 08:07 Uhr (1)
Das soll auch keine Ausrede sein, aber nach einer 10std Schicht bleibt Zuhause der PC aus, mein Privatleben ist mir schon heilig und in einer halben Std Pause pro Tag das Forum zu durchforsten ist schwerlich möglich. Das was ich hier vorhabe existiert bisher nur in meinem Kopf, ob es realisierbar ist weiß ich nicht weil ich mich in der Makroprogrammierung nicht auskenne.Das Script soll das erkennen in dem es mich auffordert, die Linie die umbenannt werden soll zu selektieren.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : 2D Ansichten über 3D sperren und entsperren
BigCheese am 28.05.2008 um 16:00 Uhr (0)
Hallo Willi,leider konnte ich mir Dein Problem nicht früher anschauen. Du hast nun zwar in Deinem anderen Beitrag eine Antwort bekommen, dennoch möchte ich Dir noch dieses Teil und die zugehörige Zeichnung zur Verfügung stellen - sie wurden mit der R16 SP5 erstellt.Die Steuerung läuft komplett übers Part. Eine Rule aktiviert/deaktiviert abhängig vom Bearbeitungsparameter die Features. Die Reaction führt ein Partupdate durch und ruft ein separates Script auf. Das Script selbst schließlich entsperrt/sperrt d ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : nomenclature to Instance Name
Suchtiii94 am 18.10.2018 um 16:42 Uhr (1)
Hallo,ich möchte mit einem Makro die Nomenclature in das Feld Instance Name und in das Feld PartNumber kopieren. Und das für die Gesamte Baugruppe bei allen Teilen (.Product & .Part).Was ich schon geschafft habe, ist das Kopieren der Partnumber zu Instance Name mit der (hoffentlich) richtigen Nummerierung.Das ganze sieht so aus:Code:Set Documents = CATIA.DocumentsFor Each Item In DocumentsIf Right(Item.Name, 10) = "CATProduct" ThenSet CurrentProduct = Item.Product.ProductsFor i = 1 To CurrentProduct.CountC ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Exel 3D-Punkte nach Catia V5 einlesen
AndyMF am 11.03.2010 um 14:25 Uhr (0)
Hallo Manniauf die schnelle mal dein scriptCode:Sub CATMain()Set CATIA = GetObject("", "CATIA.Application") wird nur benötigt, weil ich Excel als Entwicklungssumgebung benutze Dim Excel As Application Dim WB As Workbook Dim WS As Worksheetdim mytabelle as String myTabelle = CATIA.FileSelectionBox("FileOpen", "*.xlsx;*.xls", CatFileSelectionModeOpen)If myTabelle "" Then Set Excel = CreateObject("Excel.Application") Excel starten Excel.Visible = True Set WB = Excel.Workbooks.Open(mytabelle) Arbe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PowerCopy aus einem Catalog per VB6 starten
tomtom1972 am 11.02.2008 um 06:42 Uhr (1)
Moin,"InstanceFactory" benötigt eine KT1 Lizenzs, ab der R17 steht das sogar in der Online-Doku.Einen wirklich vernünftigen Weg über CATIA.StartCommand gibts nicht.Folgendes geht aber:- PowerCopy öffnen - das PowerCopy-Object in der PowerCopy seletieren- CATIA.StartCommand "Instantiate From Selection"- ein Sleep (1 Sekunde Pause)das Abfragemenü erscheint ...Hoffe das hilft weiterGruß TomTom------------------tomtom1972[Diese Nachricht wurde von tomtom1972 am 11. Feb. 2008 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro verliert die Selektion nach laden des Parts
HoBLila am 01.07.2013 um 12:01 Uhr (0)
Fast, Bernd, die Collection hat, wie das Dictionary immer 2 Werte, also Key und Objekt.Ansonsten hat bernd aber alles geschrieben. :-)Je nach Release vielleicht Count2() der Selection benutzen.------------------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 |
|
CATIA V5 Programmierung : Achsensysteme automatisch in Punkte setzen
CADtoCAM am 22.10.2015 um 14:13 Uhr (1)
Einen guten Tag zusammen!Ich würde gerne folgendes Part erstellen welches als Skelett dienen soll. Können sollte dieses Skelett folgendes:Im ersten Schritt erzeugt man sich Punkte.Am liebsten wäre mir das über ein Rechteckmuster in dem ich einfach durch anklicken Punkte an bzw. abwählen kann. Könnte ich mir aber auch über eine einfache Skizze vorstellen.Der zweite Schritt ist der, in dem der Hund begraben liegt und zwar soll das Part daraufhin automatisch durch alle aktiven Punklte ein Achsensystem legen.D ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Eigene Workbench unter VBA erstellen
BartekStolat am 06.05.2009 um 15:34 Uhr (0)
Hallo zusammen,Mich beschäftigt das Problem unter CATIA V5 mein eigenes Produkt aufrufen zu können.Dem Anwender möchte ich nur eine neue Workbench präsentieren mit ein paar Icons drauf.Die eigentliche Funktionalität ist dann unter den ICONS versteckt.Ich bin schon so weit, dass ich ein VBA Skript gebastelt habe, welches mir dann einenkleinen Dialog aufbaut mit einer icon-leiste, um meine Funktionen aufzurufen.Nur das starte ich so, wie man gewöhnlich VBA-Skripte startet. Für den Anwender istdas nicht komfo ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Mirror/symmetry all bodies ----spiegeln alle Körper
DuffM4nUS am 25.07.2016 um 15:17 Uhr (1)
Hey!Das hat leider nicht geklappt.Bleibt an der selben Stelle stecken.Markiert wird bei der Analyse:Code:Public Function GetBrep(MyBRepName As String) As StringMyBRepName = Replace(MyBRepName, "Selection_", "")Dim iStart As IntegeriStart = InStrRev(MyBRepName, "));")MyBRepName = Left(MyBRepName, iStart)MyBRepName = MyBRepName + ");WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)"GetBrep = MyBRepNameEnd FunctionFehlermeldung wie oben beschrieben.Ich bin am Ende meines Lat ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Teilenummer eines Parts in einem Produkt ändern
Jens Hansen am 07.01.2008 um 20:51 Uhr (0)
Hallo,um die jeweiligen Teilenummern zu ändern musst du alle Parts deiner Baugruppe mittels Schleife jeweils ändern. Also wenn eine Baugruppe aktiv ist:1. Die Summe aller Parts ermitteln (ActiveDocument.Product.Products.Count);2. Mit dem ermittelten Count die Schleifengrenzen definieren (i=0 to i count);3. Innherhalb der Schleife die Partnumber des jeweiligen Bauteils ansprechen (ActiveDocument.Product.Products.Item(i).PartNumber);4. Teilenummer ändern (ActiveDocument.Product.Products.Item(i).PartNumber = ...
|
| In das Form CATIA V5 Programmierung wechseln |
