|
CATIA V5 Programmierung : Bohrungen und deren Kinder löschen
imation1999 am 12.02.2016 um 06:28 Uhr (1)
Morgen,ändere mal den Code von Bernd so ab, dann soll es funktionieren:Code:selection1.search "CATAsmSearch.MfConstraint,all"for i = selection1.count2 to 1 Step -1 Set myConstrain = selection1.item(i).value if myConstrain.Status = catCstStatusOK then selection1.remove2(i) end ifend forselection1.delete
|
|
CATIA V5 Programmierung : Selection add
imation1999 am 21.02.2014 um 09:48 Uhr (1)
Hallo Bernd,vielen Dank für die Antwort.Wie kann ich 2 Object vergleichen?so funktioniert es leider nicht:Code:if hybridShapePointCoord1 = selection1.item(i).value thenmit .Name ist auch nicht die gute Lösung.Edit:mitCode:If hybridShapePointCoord1 Is selection1.Item(i).Value Thenkann man 2 Object vergleichen.[Diese Nachricht wurde von imation1999 am 21. Feb. 2014 editiert.]
|
|
CATIA V5 Programmierung : Makro programmieren um definierte Löcher zu finden
imation1999 am 18.04.2013 um 18:23 Uhr (0)
Versuch mal mit folgende Code:Code:Sub CATMain()set selection1 = CATIA.ActiveDocument.Selection----nach Bohrungen suchenSelection1.search ".hole,all" ----Selection sichernDim SelElemente() As ObjectReDim SelElemente(Selection1.Count) For i = 1 To Selection1.Count Set SelElemente(i) = Selection1.Item(i)Next dim length1 as lengthdim hole1 dim durchmesser durchmesser = inputbox ("Bitte geben sie den gesuchten Durchmesser an!", "Eingabe gesuchter Durchmesser", durchmesser)----Selection wieder herstel ...
|
 |
CATIA V5 Programmierung : Repost- Macro für Text with Leader
imation1999 am 24.01.2014 um 13:21 Uhr (15)
Keine Assoziativität!1) Punkte selektieren2) Makro laufen lassen3) Code:Language="VBSCRIPT"Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet annotationSets1 = part1.AnnotationSetsSet annotationSet1 = annotationSets1.Add("CEG1_3D")Set selection1 = CATIA.ActiveDocument.SelectionReDim acoord(2)for i =1 to selection1.count Set reference1 = part1.CreateReferenceFromObject(selection1.item(i).value) selection1.item(i).value.GetCoordinates acoord Set userSurfaces1 = part1.Use ...
|
|
CATIA V5 Programmierung : Code If Parameter
imation1999 am 23.10.2015 um 11:04 Uhr (1)
Hallo,versuch mal so (ohne getestet):Code:If oParameters.Item("Lenkzustand").Value="60_grad_links" Thenselection1.Search "(CATGmoSearch.GSMAssemble.Activity=TRUE & CATGmoSearch.GSMAssemble.Name=60_grad_links),all"selection1.Copyselection1.Search "CATGmoSearch.OpenBodyFeature.Name=Output,all"Set hybridbody1 = selection1.item(1).value.Hybridbodies.item("60_grad_links")selection1.clearselection1.add hybridbody1selection1.PasteSpecial "CATPrtCont"End if[Diese Nachricht wurde von imation1999 am 23. Okt. 2015 ed ...
|
|
CATIA V5 Programmierung : Body aus Instanz kopieren und einfügen mit Position
imation1999 am 24.01.2014 um 08:21 Uhr (1)
Hallo Erich,ich würde folgendes machen:- suchen nach weitere Parts For i=1 to UserSel.Item(1).Leafproduct.parent.Count- PartName vergleichen- bei Überstimmung ---- Set myInstance = UserSel.Item(1).Leafproduct.parent.Item(i)
|
|
CATIA V5 Programmierung : Selection add
imation1999 am 21.02.2014 um 09:22 Uhr (1)
Hallo Zusammen,ich würde ein Element aus mein selection entfernen.Mein Code sieht so aus:Code:Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet hybridBodies1 = part1.HybridBodiesSet hybridBody1 = hybridBodies1.Item("Geometrical Set.1")Set hybridShapes1 = hybridBody1.HybridShapesSet hybridShapePointCoord1 = hybridShapes1.Item("Point.2")Dim selection1 As SelectionSet selection1 = partDocument1.Selectionselection1.Search "(((((CATStFreeStyleSea ...
|
|
CATIA V5 Programmierung : PartNumber Parametrisieren
imation1999 am 16.04.2015 um 08:26 Uhr (1)
Hallo,versuch mal so:Code:Set relations8 = product.Relations Set parameter8 = Product.Parameters.Item(oDoc.Product.Name & "Part Number") Set formula8 = relations8.CreateFormula("formula8", "", parameter8, "`Projekt-Nr.` + " & """" & "_" & """" & " + Produktart + " & """" & "_" & """" & " + `Pos_Nr.` + " & """" & "_" & """" & " + `Projekt-Name` ")[Diese Nachricht wurde von imation1999 am 16. Apr. 2015 editiert.]
|
|
CATIA V5 Programmierung : Stack Size verringern per Skript
imation1999 am 19.11.2013 um 12:22 Uhr (1)
Hallo Thomas, hallo Bernd,vielen Dank Eure Antwort.also: "i" bleibt immer auf 1.Es wurde immer das gleiche Part aufgerufen.Ich habe mein Code so geändert:Code:Sub Scan(product1)Set selection1 = CATIA.ActiveDocument.SelectionFor i = 1 To product1.Count If product1.Item(i).Products.Count 0 Then Set product2 = product1.Item(i).Products Scan product2 Else Set part1 = product1.Item(i).ReferenceProduct.Parent.Part End If NextEnd Sub
|
|
CATIA V5 Programmierung : Join im GSD mit nur einem Element erstellen?
imation1999 am 23.08.2012 um 07:49 Uhr (0)
Morgen Bernd,vielen Dank für Deine Antwort.Ja, ist mir klar. Mit Tangential Line sehe ich sofort die Richtung der Kurve.Aber: ich brauche ein JOIN (nur mit ein Element, siehe Code), was immer rechtsdrehend ist. Kann man das irgendwie automatisieren?Code:For i = 1 To UserSelection.Count Set ref = part1.CreateReferenceFromObject(UserSelection.Item(i).Value) Set hybridShapeAssemble1 = hybridShapeFactory1.AddNewJoin(ref, ref) hybridShapeAssemble1.RemoveElement 2 if ------da brauche ich etwas Hilfe th ...
|
 |
CATIA V5 Programmierung : Winkel zwischen 2 Linien messen
imation1999 am 23.09.2012 um 09:51 Uhr (0)
Hallo Zusammen,mit folgende Code möchte ich den Winkel zwischen 2 Linie messen:Code:Language="VBSCRIPT"Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim UserSelection as SelectionSet UserSelection = CATIA.ActiveDocument.SelectionDim Mes1 As Referencedim status Dim Was(0)Was(0)="Line"UserSelection.Clearstatus=UserSelection.SelectElement2(was, "Select a Line", False)Set Mes1=part1.CreateReferenceFromObject(UserSelection.Item(1 ...
|
|
CATIA V5 Programmierung : CreateReferenceFromName - Schleife
imation1999 am 29.11.2012 um 07:29 Uhr (0)
Morgen Zusammen,Ich möchte in einem Product mehrere Coincidence Constraint erzeugen. (Absolute Axis System:Z-Achse zu Absolute Axis System:Z-Achse)Erstmal wähle ich die Parts manuell aus (selection1)Was stimmt hier nicht?"CATIA.ActiveDocument.Product.Name & "/" & selection1.Item(i).value.name & "/!" & Selection_REdge...Code:For i = 1 To selection1.CountSet reference2 = product1.CreateReferenceFromName("CATIA.ActiveDocument.Product.Name & "/" & selection1.Item(i).value.name & "/!" & Selection_REdge:(Edg ...
|
|
CATIA V5 Programmierung : Repeat Points on Curve
imation1999 am 18.04.2013 um 11:11 Uhr (0)
so z.B:Code:Language="VBSCRIPT"Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodySet hybridBody1 = hybridBodies1.Item("Geometrical Set.1")Dim hybridShapes1 As HybridShapesSet hybridShapes1 = hybridBody1.HybridShapesDim hybridShapeLinePtDir1 As HybridShapeSet hybridShapeLinePtDir1 = hybridShapes1.Item("Line.1")Dim reference1 As Ref ...
|
