|
CATIA V5 Programmierung : Freiheitsgrade einer Komponente in einer Baugruppe ermitteln
Jens Hansen am 21.05.2012 um 09:07 Uhr (1)
Halllo Daniel,Danke für die Antwort. Leider ist es wie Bernd geschrieben hat. Ich erhalte damit nur die Gesamtfreiheitsgarde einer Kinemtatik. Somit weiß ich leider aber immer noch nicht welchen Freiheitsgrad die jeweilige Komponente hat Warum muss ich immer die harten Nüsse kriegen ?? SGJens------------------Inoffizielle CATIA-HilfeseiteKochbuch - CATIA V5 automatisieren
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schwerpunkt über Formel
bgrittmann am 21.05.2012 um 12:33 Uhr (1)
ServusDu musst zunächst einen HybridPointExplicite anlegen (also einen isolierten Punkt). Diesen kannst du dann bei der Erstellung der Formel angeben.zB (zusammengebastelter Code)Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridShapeFactory1 As HybridShapeFactorySet hybridShapeFactory1 = part1.HybridShapeFactoryDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBod ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Frei einfärben gemäß Krümmungsanalyse
Andreas Schaaf am 21.05.2012 um 22:06 Uhr (0)
Hallo,ich will eine in CATIA vorliegende Oberfläche analysieren und am besten noch nach den Analyseergebnissen einteilen.Bei der Analyse gehe ich 2-3 Schritte (je nachdem, wie die ersten beiden Schritte aussehen). Sie lauten grob:1. Einteilung nach Gaußscher Krümmung ("negativ" / "null und positiv") wie in der Funktion "Segmentation by Curvature"2. weitere Einteilung durch Abgleich von minimaler und maximaler Krümmung miteinander und mit einem vordefinierten Wert (einfache IF-Abfrage, aber wie greife ich a ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro zur Umbenennung von Parts im Produkt erweitern
geekv5 am 13.07.2011 um 13:31 Uhr (0)
Hallo zusammen,bin nicht das erste mal hier, aber hab meinen User vergessen Habe hier ein tolles Makro gefunden, welches in einem Produkt Parts umbenennt (String ersetzen)..Könnt ihr mir vielleicht einen Tipp geben, wie ich das Makro erweitern kann, um den String zusätzlich in den Hauptkörpern ersetzen kann?Hier ist das Makro (nicht von mir):Code:Sub traverse(Prod, origstr, newstr) set refp = Prod.ReferenceProduct if instr(refp.Name, origstr) then newpname = Replace(refp.Name, origstr, newstr) refp.Name ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro zur Umbenennung von Parts im Produkt erweitern
geekv5 am 13.07.2011 um 18:21 Uhr (0)
Hallo Zoltan,hat leider nicht so funktioniert, habe es jetzt als seperaten IF Block eingefügt, aber es geht trotzdem nicht Code:Sub traverse(Prod, origstr, newstr) set refp = Prod.ReferenceProduct if instr(refp.Name, origstr) then newpname = Replace(refp.Name, origstr, newstr) refp.Name = newpname end if if instr(refp.PartNumber, origstr) then newpnum = Replace(refp.PartNumber, origstr, newstr) refp.PartNumber = newpnum end if if instr(refp.Part.Mainbody.Name, origstr) then newpnum = Replace(refp.Part ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro zur Umbenennung von Parts im Produkt erweitern
geekv5 am 22.05.2012 um 14:19 Uhr (0)
Hallo Julian,wenn ich dich jetzt richtig verstanden habe, müsste es folgendes Script tun:Code:Sub CATMain()Set partdocument1 = CATIA.ActiveDocumentSet part1 = partdocument1.PartSet hybridBodies1 = part1.HybridBodiesFor i = 1 To hybridBodies1.Count Set hybridBody1 = hybridBodies1.Item(i) hybridBody1.Name = "Ringset" & CStr(i) For j = 1 To hybridBody1.HybridBodies.Count hybridBody1.HybridBodies.Item(j).Name = "Ring" + CStr(j) NextNextEnd SubEs werden Sets auf der ersten ebene in RingsetX umbenan ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fehler bei einer Kurve
Ronholt am 22.05.2012 um 16:50 Uhr (0)
Hallo zusammen,wir wollen ein Makro schreiben, damit wir eine Kontur vervielfältigen können und diese in einem bestimmten Winkel an einer Helix läuft! Das ist unser text:Dim CATIA As INFITF.Application Dim Body1 As Body Dim part1 As Part Dim hybridBody1 As Body Dim reference1, reference2 As Reference Dim hybridBodies1 As Bodies Dim hybridShapeFactory1 As HybridShapeFactory Dim hybridShapes1 As HybridShape Dim hybridShapeRotate1 As HybridShapeRotate Dim partDocument1 As Document ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Leere zeilen löschen in Excel
runkelruebe am 23.05.2012 um 08:02 Uhr (0)
Moin,ich hab mit UsedRange und auch SpecialCells(xlLastCell) schon oft überraschende Effekte gehabt, evtl. ist eine dieser Varianten geeigneter.Und die Select-Zeilen erscheinen mir ebenfalls optimierbar.Desweiteren sollte man zum Zeilen löschen von unten nach oben (also Step -1) laufen, sonst erwischt man u.U. nicht alles.[Anmerkung: ich hab kein CATIA, evtl. dort mal auf Verweise bzw. Late- und Early-Binding (google) achten]------------------Gruß,runkelruebe Herr Kann-ich-nich wohnt in der Will-ich- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Leere zeilen löschen in Excel
moppesle am 22.05.2012 um 22:04 Uhr (0)
Hallo zusammen,ich versuche in einem Excelsheet, das ich aus Catia mit einem makro erstellt habe, leere Zeilen zu löschen.Habe mir einen Cod aus dem Netz besorgt. Der auch wenn ich ihn direkt in Excel starte funktioniert.Code:Sub delete_empty_rows_original()Dim nRow As LongDim nLastrow As Long Application.ScreenUpdating = False ActiveCell.SpecialCells(xlLastCell).Select nLastrow = ActiveCell.Row Cells(1, 1).Select For nRow = 1 To nLastrow If Cells(nRow, 1).Value = "" Then Zelle A in aktueller Zeile auf I ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Leere zeilen löschen in Excel
moppesle am 23.05.2012 um 07:41 Uhr (0)
Hallo Bernd, Zitat:Was ist bei dir "oAWBook", das Excel-Dokument, die aktuelle Tabelle?Code:Set oAWBook = objXL.Workbooks.Add Zitat:Welche Fehlermeldung kommt denn?Das die Variable "xlLastCell" nicht deklariert sei.------------------Gruß UweAuch Catia ist nur ein Mensch!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Leere zeilen löschen in Excel
moppesle am 23.05.2012 um 08:47 Uhr (0)
Hallo Bernd,hallo runkelruebe,werd das mal zu herzen nehmen Melde mich dann wieder.(Kann ein wenig dauern )------------------Gruß UweAuch Catia ist nur ein Mensch!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Alles im Product selektieren
tobiley am 23.05.2012 um 10:53 Uhr (0)
Hallo,gibt es eine möglichkeit alles auf einmal zu selektieren um dann alles einblenden zu können? Mit selection.search habe ich es versucht, da aber die Option "Do not activate default shapes on open" aktiviert ist, werden nur die Produkte und ein paar andere Sachen gefunden, jedoch nicht die ganze Geometrie. Ein MyProduct.ActivateDefaultShape, ändert leider nichts daran. Erst wenn manuell das Product aktiviert wird.Weiß vllt. jmd. wo mein Fehler ist? Vielen Dank für eure Hilfe!Grüße TobiPs: Habe den Code ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Allcatpart Erstellung
xam0560 am 19.05.2014 um 13:24 Uhr (1)
Mhh ich würde es ein bisschen anders machen.Füge in deine For Schleife das Abspeichern der ALLCATParts in einen von dir definierten Ordner hinzu, und lasse gleich die/das erstelle ALLCATPart schließen. Sobald die Schleife durch ist, dein Hauptmodell auch schließen. Create new Document und alle ALLCATParts die sich eben in diesem einen Ordner befinden via Makro einbauen lassen. Da alle aus dem Hauptmodell exportiert worden sind, stimmt somit die Einbaulage automatisch.Fixieren im Raum nicht vergessen, speic ...
|
| In das Form CATIA V5 Programmierung wechseln |
