|
CATIA V5 Programmierung : Properties auslesen
linuxer am 07.09.2010 um 11:36 Uhr (0)
Hallo Leute,hier der fertige Code (vielen danke an Zoltan).Code -----------------------------------------------Dim version, makronameSub CATMain() version = "1.0" makroname = "Properties kopieren" Dim oRoot As Document Set oRoot = CATIA.ActiveDocument Dim oProduct As Product Set oProduct = oRoot.Product Dim oProducts As Products Set oProducts = oProduct.Products Dim oRefProduct As Product Set oRefProduct = oProduct.ReferenceProduct Dim oUserRefProps As Parameters Set oUserRefProps = oRefProduct.UserRefP ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Option: Größe der Anzeige des Achsensystems
tonka am 09.08.2006 um 14:39 Uhr (0)
Hy @ allHabe wiedermal ein kleines Problem. Ich würde gerne mittels Makro die "Größe der Anzeige des Achsensystems" auslesen und ändern. Das Problem ist, dass der Makrorecorder nicht die Variable mit aufnimmt, in der die Daten geschrieben bzw. gelesen werden. Vielleicht weiß eventuell jemand von euch die Variable. Hier mein (mini)Codeschnipsel.Sub CATMain()Dim settingControllers1 As SettingControllersSet settingControllers1 = CATIA.SettingControllersDim visualizationSettingAtt1 As VisualizationSettingAttSe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Suchbereich auf Y+ Bereich vom Koordinatensystem zu begrenzen
BLD1983 am 29.11.2019 um 12:25 Uhr (1)
Danke den Link habe ich auch schon entdeckt.schaffe es aber nur das ganze Part zu messen, nicht die einzelnen Körper.(den selektierten Körper)-------------------------------------------------------------------------------Sub CATMain()Dim ADoc As PartDocumentSet ADoc = CATIA.ActiveDocumentDim P1 As ProductSet P1 = ADoc.ProductSet Inertia1 = P1.GetTechnologicalObject("Inertia")Dim oValues(2)Inertia1.GetPrincipalMoments oValuesV0 = oValues(0)* 10000000V1 = oValues(1)* 10000000V2 = oValues(2)* 10000000V0 = rou ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Added Properties per Makro auslesen
studentx am 03.10.2007 um 22:08 Uhr (1)
Ok, die Sache mit dem Counter hatte ich auch schon gesehen. Wie ist das mit dem product anpassen gemeint? Ich habe die Variablen deklariert, und das product nach product1 (so heißt mein derzeitiges Product) geändert?Stimmt das dann: Code:Sub CATMain()Set oActDoc = CATIA.ActiveDocumentSet oProducts = oActDoc.Product.ProductsSet oSelection = oActDoc.SelectionoSelection.ClearFor i = 1 To oActDoc.product1.UserRefProperties.CountMsgBox ("test") & oActDoc.product1.UserRefProperties.Item(i).NameMsgBox ("test") & ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Code übersichtlicher mit Unterroutinen
Zwenne12 am 08.04.2010 um 14:02 Uhr (0)
Hallo Daniel,erstmal besten Dank für die Mühe. Die Verbesserung hat super funktioniert , ich musste allerdingsdie Variablendeklaration noch ändern, weil mir nur CATvbs zur Verfügung steht.Ich habe dann für die ***Kopieren und Einfügen Sektion noch eine Unterroutine erstellt (Müsste doch eigentlich Sinn machen).Code:Private aArray()Private oSelPrivate oProduct2Sub CATMain() ---Selektierte Elemente Set oSel = CATIA.ActiveDocument.Selection If oSel.Count = 0 Then MsgBox ("Kein Dokument Selektiert") ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Export/ Import a material library
Frau-PROE am 26.04.2011 um 20:26 Uhr (0)
Hallo Heiko,erstmal herzlich willkommen im CATIA-Brett! Schön, dass Du doch noch hier her gefunden hast! Zitat:Original erstellt von heio.b:...was meinst du mit "AFAIR"? "AFAIR" ist kein besonderer Hilfe-Code den Du suchen sollst, sondern nur ein Kürzel aus dem Usenet Nertzjargon.Es bedeutet schlicht: "So weit ich mich erinnere!" ( "A"s "F"ar "A"s "I" "R"emember)SCNR Gruß,Nina------------------Nichts auf der Welt ist so gerecht verteilt wie Intelligenz.Jeder ist der Meinung, genug davon zu besitze ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro für Achsensystem einfügen
DanielFr. am 30.07.2009 um 16:59 Uhr (0)
Hallo Doc ,man sieht das du das Script zusammenkopierst hast. Du musst in einer Schleife für ein Item schon den selben Zähler hernhemen wie in der Schleifeninitialisierung. n ist in deinem Fall Nothing weil der Zähler i ist Hier mal eine funktionierende "ein wenig erweiterte" Version deines Scriptes:Code:Private Counter As IntegerSub CATMain() **********************************Deklarationen********************************** Dim oRoot As Document Dim oProd As Product Dim oProducts As Products ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Alle Parts innerhalb eines Produkts herausschreiben
phatly am 02.12.2003 um 14:08 Uhr (0)
Hi, versuch mal hiermit! sub ProAuslesen() Dim ProduktDoc As ProductDocument Dim Produkt As Product Set ProduktDoc = CATIA.ActiveDocument Set Produkt = ProduktDoc.Product CATAusProdukt Produkt end sub Function CATAusProdukt(ByVal Produkt As Product) Dim produkte As Object Set produkte = Produkt.Products For i = 1 To produkte.count CATAusProdukt (produkte.Item(i)) rekursive Aufruf hiermit hat man die jeweilige Produktname msgbox produkte.Item(i).name ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Maschine in Prozess Dokument einfügen
Proofin am 11.10.2006 um 14:35 Uhr (0)
Hallo alle zusammen,wir haben mehrere (eigene) Maschinen für Catia Processe erstellt. Ich möchte nun die Maschinen überprüfen und ein Paar Sachen auslesen. Dazu möchte per VB ein ProcessDocument erstellen und diesem eine Maschine hinzufügen. Interaktiv geht es ja über: Doppelklick auf Aufspannung dann Klick auf Maschine und anschließend Maschine aus Dateiauswahl.Den Process anzulegen ist nicht das Problem aber wie bekomme ich die Maschine in die Aufspannung??Hat einer von Euch dieses Prozedere schon mal pe ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Linielänge nach Zufall
bicmic am 22.06.2012 um 13:43 Uhr (0)
Grüße euch,ich habe eine Linie. Die Linienlänge soll sich bei jedem neuen Makro-Start willkürlich ändern. Welchen Befehl soll der Linienlänge (length1.Value) zugewiesen werden ? Ich habe es mit - length1.Value = Int((1000 * Rnd) + 1) - versucht (Zahl zwischen 1 und 1000). Leider bekomme ich immer den selben Wert (706) heraus. In Excel klappt es und es kommt immer eine andere Zahl. In Catia bleibt meine Linie immer 706mm lang. Danke für Antworten.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Referenzlink aus Drawing
Gepetto am 12.03.2009 um 15:23 Uhr (0)
Moin Zusammen,ich habe ein Problem und hab leider keine Ahnung wie ich es lösen kann, also hoffentlich könnt Ihr mir helfen:Ich habe ein Drawing und auf diesem ist eine Ansicht von einem Part/Product. Es soll nun der Link von dieser Drawing ausgelesen werden und damit geprüft werden ob, das Part/Product geöffnet ist.Mein Ansatz ist:set drawingDoc = CATIA.ActiveDocumentset ProductDrawn =drawingDoc.Sheets.Item(1).GenerativeLinksoPath = ProductDrawn.Parent.FullNameIrgendwie ist mein Fett markierter Ansatz nic ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Excel-Aufruf wird nicht erkannt
Tim2007 am 12.01.2012 um 11:26 Uhr (0)
Hallo,habe das Problem, dass unter dem "normalen" Macroeditor (Alt+F8) folgendes nicht erkannt wird:Function ErsteZeile()Set programm1 = Excel.ApplicationSet sheet1 = programm1.ActiveSheetsheet1.Cells(1, 1).ActivateActiveCell.Value = "Comment"sheet1.Cells(2, 1).ActivateActiveCell.Value = "Alles"End FunctionMache ich das Gleiche im Microsoft Visual Baisc Editor (Alt+F11) dann geht das und wird ausgeführt?!?!Ist hier was falsch installiert oder ist der "normale" Macroeditor vom Catia so doof? Bitte um Feedb ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Auswahl zweier Zeichnungen zum kopieren einer Ansicht
ogard1 am 10.10.2008 um 08:38 Uhr (0)
Hallo Roland,es gibt ein Macro vom Dassault "CAADriDuplicateViewhier ein Auszug vielleicht hilft dir schon weiter Create an object of selection for the source document Dim oSelectionSource As Selection Set oSelectionSource = oDrawingSource.Selection Create the Drawing document Target Dim oDrawingTarget As DrawingDocument Set oDrawingTarget = CATIA.Documents.Add("Drawing") Create an object of selection for the source document Dim oSelectionTarget As Selection Set oSelectionTarget = oDrawingTarget.Se ...
|
| In das Form CATIA V5 Programmierung wechseln |
