|
CATIA V5 Programmierung : mehrfach vorhandene Parts werden alle verändert
BigCheese am 03.06.2008 um 13:43 Uhr (0)
Hallo nochmal,ich denke, ich habe Dein Problem nun langsam verstanden Dein Code verändert auch in den Unterprodukten die Instanznamen (children.item(i).Name), allerdings nicht die PartNumber. Dies liegt meines Erachtens nach einfach nur an Deinem counter. Sobald search_and_select rekursiv aufgerufen wird, springt der counter erstmal wieder zurück auf 0. Somit würde die nächste PartNumber den Wert einer bereits vorhandenen annehmen, was aber nich geht, da eben 2 verschiedene Parts/Products nicht die gleiche ...
|
|
CATIA V5 Programmierung : Bauteile mit der selben Benennung aber unterschiedlichen Instanznr. ansprechen
bgrittmann am 08.12.2017 um 12:53 Uhr (1)
ServusWenn du über die Products-Collection gehst ja:Code:Set oRootproduct = Catia.ActiveDocument.ProductSet oProduct = oRootproduct.Products.item("MeinProduct.1")(bitte mal auch die Objektauflösung und die Doku bemühen)Die Documents-Collection enthält alle geöffneten Dokumente (auch andere Fenster und Unterbaugruppen).Oder willst du von der Instanz auf das entsprechende PartDocument gelangen?GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
|
CATIA V5 Programmierung : Ausgewählten Parameter zurückgeben
Augustiner am 25.07.2008 um 11:56 Uhr (0)
Hallo du weisst deinem "Wert" den falschen Wert zuCode:Sub auswaehlen()Dim Selection01Dim SelectedElementDim Filter(0)Set Selection01 = CATIA.ActiveDocument.SelectionFilter(0) = "Parameter"Status = Selection01.SelectElement2(Filter, "Einen Parameter auswählen", True)MsgBox (Selection01.item(1).name)End Sub
|
|
CATIA V5 Programmierung : Ausgewählten Parameter zurückgeben
Augustiner am 25.07.2008 um 12:43 Uhr (0)
Vwersuchs mal mitDim oParam as ParameterSet oParam = selection01.item(1).valuemsgbox(oParam.name)[Diese Nachricht wurde von Augustiner am 25. Jul. 2008 editiert.]
|
|
CATIA V5 Programmierung : Part deaktivieren
Kuksi am 06.08.2008 um 16:58 Uhr (0)
Danke für die rasche Antwort! Ich hab auch schon einen Ansatz für das Problem gefunden.Zunächst habe ich eine Reaction erstellt:Reaction: Source ist ein Parameter (Part1ParamterNumber) wenn dieser den Wert ändert wird folgendes Script ausgeführt:{ `RelationsVB Scripts.1VB Script.1` .Run(`Part1Part Number` )}Daraufhin wird das VB Script.1 mit dem Übergabewert Part Number (= PartName) ausgeführt.------ Initiation ------Dim oDocsDim oPartDocDim oPartSet oDocs = CATIA.Documents---- search the right part ---di ...
|
|
CATIA V5 Programmierung : Umbennung von mehreren Elemnten
Jens Hansen am 26.11.2008 um 12:34 Uhr (0)
Hallo,Du kannst es am einfachsten über die Suche machen, wobei du die Suche auf eine Auswahl (Selection) beschränkst:-------------------------------Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet selection1 = partDocument1.SelectionDim InputObjectType(0)InputObjectType(0) = "HybridBody"status = selection1.SelectElement2(InputObjectType, "Wählen Sie ein Geometrisches Set aus", False)if(status = "cancel") thenExit subend ifselection1.Search "CATGmoSearch.Plane,sel"For i=1 to selection1.CountSet item ...
|
|
CATIA V5 Programmierung : Teilenummer an DrawingText
K.Siebert am 28.11.2008 um 09:57 Uhr (0)
Hallo hawu Das steht zwar nicht direkt drin aber du hast da schon die Lösung denn du möchtest doch die ausgelesene PartNumer (Beitrag von bgrittmann) noch aufteilenDas wird da gemachtCode:__________________________________ STRING zerlegen ____________________________vTXT = Left(Name, InStrRev(Name, ".") - 1)BenennTXT = Right( vTXT, Len( vTXT) -18 ) Right LeftPosTXT1 = Left(vTXT, InStrRev(vTXT, "_") - 1)PosTXT2 = Right( PosTXT1, Len( PosTXT1) -14 ) Right LeftAuftragNrTXT1 = Left( PosTXT1, Len( PosTXT1) -9 ...
|
|
CATIA V5 Programmierung : Mit selektiertem Objekt weiterarbeiten VBA
FiRo am 01.12.2008 um 16:01 Uhr (0)
moechtest du die parents des ausgewaehlten objektes oder das objekt selbst haben?ich vermute, du moechtest das ausgewaehlte objekt in einer variablen speichern um damit weiterzumachen, oder?dies ist recht einfach. momentan sind deine objekte in der selection xy gespeichert. du musst sie also einfach da raus bekommen:dim o as objectset o = xy.item(1).valueso solltest du auf das erste objekt in deiner auswahl zugreifen koennen.------------------no milk today...
|
|
CATIA V5 Programmierung : Item aus Document Collection entfernen
Stefan83 am 02.12.2008 um 13:57 Uhr (0)
Hallo Daniel,In meinem "Erzeugen-Makro" werden nach dem Erstellen des neuen Parts auch einige Elemente hinein kopiert (Geometrische Sets, Punkte, Flächen,...) diese sind beim zweiten Ausführen schon in dem neu erzeugten Element enthalten und werden doppelt angelegt, z.B.:erstes Ausführen des Makros:- neues Part wird erzeugt- Geometrisches Set "GeoSet1" wird im neuen Part erzeugt, darin werden Punkte und Ebenen abgelegt- Makro endet einwandfreiDann wird das neue Part manuell bzw. durch das "Löschen-Makro" g ...
|
|
CATIA V5 Programmierung : Item aus Document Collection entfernen
Stefan83 am 02.12.2008 um 12:04 Uhr (0)
Hallo,Ich beschäftige mich seit einigen Monaten mit dem Programmieren von VBA-Makros in CATIA V5 R16. Nun bin ich auf ein Problem gestoßen und hoffe, dass mir jemand weiterhelfen kann. Es geht darum, dass ich ein CATPart vollständig löschen möchte. Teilweise bekomme ich das auch hin, zum Einen wird das Part (z.B. Part1) aus der Produktstruktur (siehe Bild: Stuktur) gelöscht und zum Anderen wird die Datei des Parts von der Festplatte entfernt. Was allerdings zurückbleibt ist das Item des gelöschten Parts in ...
|
|
CATIA V5 Programmierung : Item aus Document Collection entfernen
Stefan83 am 02.12.2008 um 16:54 Uhr (0)
Hallo Daniel,Das Verwenden eines Zeitstempels wäre ein möglicher Lösungsansatz.Momentan bin ich dabei, einen eigenen Lösungsansatz zu verfolgen. Und zwar lösche ich unmittelbar vor dem Erzeugen eines Geometrischen Set in dem erstellten Part alle vorhandenen Geometrischen Sets (aus den Makroausführung vorher). Im "Erzeugen-Makro" ist also der folgende Code eingebaut:If part1.hybridbodies.count 0 then For k = 1 to part1.hybridbodies.count selektion.add part1.hybridbodies.item(k) next k selektion.delet ...
|
|
CATIA V5 Programmierung : Schrift formatieren
Parametricks am 16.12.2008 um 21:22 Uhr (0)
Hallo Jens und der Rest,ich habs dann doch noch geschafft............Sub CATMain()Dim myCatia As ApplicationSet myCatia = CATIASet partDocument1 = CATIA.ActiveDocumentIf (Instr(partDocument1.Name,".CATDrawing")) 0 Then Dim myList As Selection Set myList = CATIA.ActiveDocument.Selection myList.Clear myList.Search "Drafting.Text;in" if myList.count 0 Then myList.VisProperties.SetRealColor 0, 0, 0, 1 for i = 1 to myList.count Set Texti = myList.item(i).value Texti.SetFontName 0, 0, "Monospac821 BT" ...
|
|
CATIA V5 Programmierung : Koerper auslesen
V5Playaz am 23.12.2008 um 13:09 Uhr (0)
Hallo,also Bernd hat eigentlich schon den nötigen Hinweis gegeben.Ansonsten hilft die Suchfunktion und der Makrorekorder.Code:For i = 1 to CATIA.ActiveDocument.part.bodies.count msgbox CATIA.ActiveDocument.part.bodies.item(i).nameNextalternativ über selection:Code:selection1 = CATIA.ActiveDocument.Selectionselection1.Search("CATPrtSearch.BodyFeature,all")For i = 1 To selection1.Count msgbox selection1.Item(i).Value.NameNextselection1.cleargrüße Dominik
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
