|
VBasic / vb.net / vbs / wsh : GeoSet aus Part im Product ansprechen
Tweety79 am 22.04.2016 um 15:34 Uhr (1)
Servus,ja das mit der Schreibweise (" ...., all") muss in vb.net immer dann sein, wenn vorher Search drin steht. Ob es bei Name( ...) und item ( ... ) auch sein muss, weiß ich eben nicht.Inzwishcen habe ich es so umgemodelt: Dim Sel = myProductDoc.Selection Sel.Clear() Dim Docs As MECMOD.PartDocument Docs = Sel.Item("keine Ahnung") myModell = Sel.Part myGeoSet = myAdaptermodell.HybridBodies myGeoSet1 = myGeoSet.Item("TOLL") Sel.Add(myGeoSet1) myGeoSet2 = myGeoSet1.Item("TOLL") ...
|
|
CATIA V5 Programmierung : 3D Section automatisch umbenennen
Tweety79 am 10.11.2016 um 13:41 Uhr (1)
Jetzt habe ich es so umgeschrieben dass nichts mehr mit Dim ... drin steht und es funktioniert:Sub CATMain() Set oprod = CATIA.ActiveDocument.Product Set TheSections = oprod.GetTechnologicalObject("Sections") Set mySection = CATIA.ActiveDocument.Product.GetTechnologicalObject("Sections") Set oSection = oprod.GetTechnologicalObject("Sections") Set oSection = mySection.item(1)MsgBox oSection.Name oSection.Name = "BlaBla"End SubVerstehe aber trotzdem nicht, wo der Fehler war ...Grüße
|
|
VBasic / vb.net / vbs / wsh : GeoSet aus Part im Product ansprechen
Tweety79 am 22.04.2016 um 13:11 Uhr (1)
Hallo zusammen,ich möchte folgendes machen in vb.NET:-in einem Product habe ich x Parts-in einem Part mit dem Namen (keine Ahnung)befindet sich ein GeoSet mit dem Namen ("TOLL")- dieses Geoset möcte ich innerhalb des Parts in dem es sich befindet, kopieren und nochmal einfügenDim myCatiaApp As INFITF.ApplicationDim myProduct As ProductStructureTypeLib.ProductDim myProductDoc As ProductStructureTypeLib.ProductDocumentDim myGeoSet As MECMOD.HybridBodiesDim myModell As MECMOD.PartHier mein Ansatz: myModell ...
|
|
CATIA V5 Programmierung : Macro-Punkte
Tweety79 am 17.12.2008 um 13:37 Uhr (0)
Hi, Hawu!Danke auch für deinen Vorschlag. Aber ein funktioniert da nicht.Sollte bei: If iStatus = "Normal" ThenElse MsgBox "Abbruch(Cancel) der Auswahl", vbOKOnly + vbCritical, " Abbruch "nicht zwischen Then und Else nicht was kommen? sonst geht es gleich auf Abbruch.Ich dachte vielleicht:... ThenMsgBox (UserSel.Item(1).Value.Name)Else...Kommt das hin?Danke.
|
|
CATIA V5 Programmierung : Führungslinie
Tweety79 am 30.12.2008 um 20:08 Uhr (0)
Also gut. Ich habe es jetzt soweit gebracht, dass ich eine Linie hinzufügen kann.Set Documents = CATIA.Documents Set Document = CATIA.ActiveDocument Set DrawingSheets = Document.Sheets Set DrawingSheet = DrawingSheets.Item("Sheet.1") Set DrawingViews = DrawingSheet.Views Set DrawingView = DrawingViews.ActiveView Set Factory2D = DrawingView.Factory2D Set Selection = Document.Selection Erstellen horizontale linie auf der Null Koordinate Set LineLeftExtremity = Factory2D.CreatePoint(10, 10) Set LineRig ...
|
|
CATIA V5 Programmierung : Macro Text für Maße
Tweety79 am 24.09.2009 um 11:02 Uhr (0)
Hi!Was muss ich diesem Code noch einfügen, damit er mir auch alle Maße in der Schriftart "SSS1" schreibt, allerding in Größe 3,5?Sub CATMain() Set oDRWDoc = CATIA.ActiveDocument Set oSel = oDRWDoc.Selection Dim i As Integer Dim j As Integer Dim iFont As String Dim iSize As Single oSel.Clear **********************************Definition Schriftart (bei Bedarf anpassen)********************************** iFont = "SSS1" iSize = 20 **********************************Schleife fuer alle Texte************ ...
|
|
CATIA V5 Programmierung : Macro Text für Maße
Tweety79 am 24.09.2009 um 11:02 Uhr (0)
Hi!Was muss ich diesem Code noch einfügen, damit er mir auch alle Maße in der Schriftart "SSS1" schreibt, allerding in Größe 3,5?Sub CATMain() Set oDRWDoc = CATIA.ActiveDocument Set oSel = oDRWDoc.Selection Dim i As Integer Dim j As Integer Dim iFont As String Dim iSize As Single oSel.Clear **********************************Definition Schriftart (bei Bedarf anpassen)********************************** iFont = "SSS1" iSize = 20 **********************************Schleife fuer alle Texte************ ...
|
 |
CATIA V5 Programmierung : Linien im GeoSet löschen
Tweety79 am 13.07.2016 um 13:49 Uhr (15)
Hallo zusammen,ich habe in einem GeoSet nur Linien und Punkte.Nur bestimmte Punkte und besstimmte Linien müssen gelöscht werden.Ich kann mit unterem Code die gesuchten Punkte löschen aber Linien mit demselben Namen wie der Punkt werden nicht gefunden.Anbei menine Funktion: Private Sub deleteCopy(myCatiaDoc As MECMOD.PartDocument, prefix As String, mySearchValue As String) Dim myHybBody As MECMOD.HybridBody Dim myHybShape As MECMOD.HybridShape = Nothing myHybBody = myCatiaDoc.Part.HybridBodies ...
|
|
CATIA V5 Programmierung : Part Properties (Mass) auslesen
Tweety79 am 20.05.2019 um 11:00 Uhr (1)
Hallo Zoltan,wenn ich innerhalb einer Assembly nach einem Part suche mit:Code:myProductDocK.Selection.Search("(Name= & a & ),all")Wie kann ich direkt von diesem Selektierten Part Center of Gravity abgreifen, ohne es im neuen Fenster zu öffnen?Ich würde es so schreiben, bräuchte dann aber vorher die Information an welcher Stelle im Assembly sich das Part befindet.Die Zahl würde ich anstelle des Fragezeichens schreiben.Code:myProduct2 = myProduct.Products.Item(?)Danke.
|
|
CATIA V5 Programmierung : GeoSet eines Parts im Product kopieren
Tweety79 am 22.04.2016 um 15:39 Uhr (1)
Hallo zusammen,ich möchte folgendes machen in vb.NET:-in einem Product habe ich x Parts-in einem Part mit dem Namen (keine Ahnung)befindet sich ein GeoSet mit dem Namen ("TOLL")- dieses Geoset möchte ich innerhalb des Parts in dem es sich befindet, kopieren und nochmal einfügenMein Code: Dim Sel = myProductDoc.Selection Sel.Clear() Dim Docs As MECMOD.PartDocument Docs = Sel.Item("keine Ahnung") myModell = Sel.Part myGeoSet = myAdaptermodell.HybridBodies myGeoSet1 = myGeoSet.Item("TOLL" ...
|
|
CATIA V5 Programmierung : Code If Parameter
Tweety79 am 23.10.2015 um 10:18 Uhr (1)
Servus,leider ist die Struktur und das Vorgehen in der Art strickt vorgegeben, daran darf ich nichts ändern. Mein größtes Problem ist, wie ich diesen If Then Ausdruck für den Parameter schreiben soll.If oParameters.Item(Lenkzustand).Value="60_grad_links" ThenSelection1.Search."Name=60_grad_links".Activity=TrueSelection1.CopyNextSelection2.Search."Name=Output & "60_grad_links"Selection1.PasteIst das wenigstens ansatzweise richtig?Grüße!
|
|
CATIA V5 Programmierung : GeoSet eines Parts im Product kopieren
Tweety79 am 25.04.2016 um 10:23 Uhr (1)
Hi Bernd,für vb.NET musste ich das ein wenig anpassen ( set ... entfällt ). Dim myPartDocument As MECMOD.PartDocument Dim oSel As INFITF.Selection Dim myPart As MECMOD.Part Dim myHybridBody As MECMOD.HybridBodies myPartDocument = myCatiaApp.Documents.Item("Name = Keine Ahnung, all") myPart = myPartDocument.Part oSel = myPartDocument.Selection myHybridBody = myPart.HybridBodies.Item("TOLL") oSel.Clear oSel.Add(myHybridBody) oSel.copy oSel.Clear oSel.Add(myPart) oSel ...
|
|
CATIA V5 Programmierung : Name eines Parameters nach Excel
Tweety79 am 11.05.2016 um 20:11 Uhr (1)
Hallo,wie kann ich die Namen aller Parameter eines ParameterSets, die mit "Fall" anfangen, kopieren und in Excel in die Zellen schreiben?vb.NETEs sind zum Beispiel 5 Parameter, deren Name mit "Fall" anfangen ( unter insgesamt 12 ).Der erste Name kommt in Excel nach B2, der zweite nach C2, der dritte nach D2 ...Ich habe dies als Ansatz:Dim myParamSet As parameterset Dim ModelEl As INFITF.ModelElementmyParamSet = myCatiaDoc.Selection.Item("Fall*").NameModelEl = myParamSet.GetItem("ModelElement")ModelEl.Selec ...
|
