|
CATIA V5 Programmierung : Probleme mit UserSel
Michau am 12.04.2011 um 11:19 Uhr (0)
hier der Code: vielleicht kann mir da einer helfenDim activedoc As INFITF.DocumentDim AllProduct As ProductDim AllProducts As ProductsDim i As LongDim Selection1 As ObjectDim Status As StringDim SpPart As MECMOD.PARTSet activedoc = CATIA.ActiveDocumentSet AllProduct = activedoc.ProductSet AllProducts = AllProduct.Products Dim RefPos1 As Reference Dim RefPos2 As Reference Dim SpannRef1 As Reference Dim SpannRef2 As Reference Set Selection1 = activedoc.Selection Dim InputObjectType(0) InputObjec ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ausgabe Überschneidungsergebnis als Datei
Petermaen am 07.06.2010 um 12:13 Uhr (0)
Hallo,etwas spät aber gibt es hier noch was neues zu diesem Thema??Ich versuche gerade clash value, FirstProduct, SecondProductund die Coordinaten in ein Text File heraus zu schreiben.Bei dem value hat es mit einer MsgBox geklappt, aber beim FirstProduct und SecondProduct klappt es nicht.Script:Sub CATMain()Set oProductDocument = CATIA.ActiveDocumentSet oProduct = oProductDocument.Product Set Clashes1 = oProduct.GetTechnologicalObject("Clashes")Set Groups1 = oProduct.GetTechnologicalObject("Groups")S ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Boundary-Referenz
joehz am 28.01.2017 um 22:05 Uhr (1)
Hi Fox,zeichne den Vorgang mit dem Makro-Rekorder auf und schau Dir dann die breps an.Code:Dim reference1 As ReferenceSet reference1 = part1.CreateReferenceFromBRepName("FVertex:(Vertex:(Neighbours:(Face:(Brp:(Pad.1;2);None:();Cf11:());Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;1)));None:();Cf11:());Fa ce:(Brp:(Pad.1;0:(Brp:(Sketch.1;4)));None:();Cf11:()));Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koordinatenpunkte verschieben
cevk am 25.01.2008 um 15:23 Uhr (0)
Hallo Taylor Herzlich willkommen im Forum Habe leider keine Vollständige Lösung für Dich aber ich fang mal an vieleicht können die Anderen noch etwas beitragen.Code:_____________________________________________________________________________Sub Punkteverschieben()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim selection1 As SelectionSet selection1 = partDocument1.SelectionDim hybridShapeFactory1 As HybridShapeFactorySet hybridSh ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkt auf welcher Fläche? / Ebene parallel zur Fläche durch Punkt
Effak am 04.09.2009 um 15:29 Uhr (0)
Hi,Ich habe folgende Situation: Es gibt einen runden Körper, auf dem mehrere Punkte vorgegeben sind (siehe Bild). Die Punkte wurden bereits ausgewählt und stehen z.B. als CATIA.ActiveDocument.Selection zur Verfügung.Jetzt möchte ich durch jeden Punkt eine Ebene erstellen, die parallel zur Körperobefläche ist. Das Problem daran ist, dass die Oberfläche nicht bei allen Punkten die selbe ist, wie man im Vergleich des 2. und 3. Punktes sieht.Das heißt, dass ich entweder eine Möglichkeit brauche die Ebene herau ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Publications
MrFelicity am 27.03.2008 um 11:51 Uhr (0)
Hallo alle zusammen,ich habe ein kleineres Problem mit einem Macro, welches ich gerade schreibe. Dabei geht es darum, eine Product mit verschiedenen Publications vorzubereiten, welches soweit auch ganz gut funktioniert:Code: Set AktivDokument = CATIA.ActiveDocument Set Produkt1 = AktivDokument.Product Set Publications1 = Produkt1.Publications Set Publication1 = Publications1.Add("Name")Es sollen bewusst keine Referenzen zugeordnet werden, da dies der User dann manuell machen soll. Nun wird der Code ausgefü ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Publications
MrFelicity am 27.03.2008 um 11:51 Uhr (0)
Hallo alle zusammen,ich habe ein kleineres Problem mit einem Macro, welches ich gerade schreibe. Dabei geht es darum, eine Product mit verschiedenen Publications vorzubereiten, welches soweit auch ganz gut funktioniert:Code: Set AktivDokument = CATIA.ActiveDocument Set Produkt1 = AktivDokument.Product Set Publications1 = Produkt1.Publications Set Publication1 = Publications1.Add("Name")Es sollen bewusst keine Referenzen zugeordnet werden, da dies der User dann manuell machen soll. Nun wird der Code ausgefü ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schnittansicht erstellen
TVcad am 28.01.2010 um 09:19 Uhr (0)
Hallo,ich hab ein Drawing mit Vorderansicht, einer Seitenansicht erstellt und wollte noch eine Schnittansicht einfügen. Allerdings bekomme ich immer folgende Fehler-Meldung:Compile error:Function or interface marked as restricted, or function uses an Automation type not supported in Visual BasicMein Code: Dim obj_offsetView As DrawingView Dim obj_offsetViewGB As DrawingViewGenerativeBehavior Set obj_offsetView = obj_sheet.Views.Add("Offset A-A") Set obj_offsetViewGB = obj_offsetView.Genera ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Clash automatisch aktualisieren
Eltono am 10.10.2015 um 12:37 Uhr (1)
Moin Berndkonnte das Problem inzwischen lösen, allerdings ist das wieder so ein wenig CATIA EigenheitMeine Struktur sieht an sich so aus:Code:Root_Product Product1 Adapter Part1 Product2 usw.ich hatte versucht das Root_Product über ein Makro zu updaten, weil wenn ich das per Hand mache wird ja auch alles was drunter liegt mit geupdatete. An sich funktionierte das Makro auch, allerdings nur wenn das Root_Product aktiv war (also Doppelklick drauf). Jetzt aktualisiere ich einfach die Products ( ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Applications im CATIA Strukturbaum benutzerdefiniert neu sortieren
projo am 30.01.2012 um 15:05 Uhr (0)
Hallo zusammen,zunächst mal Dankeschön für die bisherigen Anworten. Insbesondere an Bernd.Ich habe leider immer noch Probleme mit "Shuttles" und "Measure". Bei den "Shuttles" funktioniert das Copy and Paste nicht so wie ich es möchte. Die Kopie wird wird dem ursprünglichen Namen (nicht "Copy of ...") unterhalb des Ursprünglichen "Shuttles" eingefügt. Das soll nicht so sein. Letztendlich will ich ja durch Copy and Paste die Reihenfolge der Shuttles ändern (siehe Quellcode der das anhand von "Sections" zeigt ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro programmieren um definierte Löcher zu finden
lamdiabolo am 18.04.2013 um 11:59 Uhr (0)
Habe erst einmal ausprobiert die einzelnen Löcher mit ihren Durchmessern einzeln zu finden.Das klappt jetzt.Leider erkennt die unterste If- Funktion den Wahrheitsgehalt nicht, sie gibt immer die Else- Anweisung an.Sub CATMain()set selection1 =catia.activedocument.selectionselection1.search ".hole,all"dim laenge as lengthdim hole1 as integerdim durchmesser as integerdurchmesser = inputbox ("Bitte geben sie den gesuchten Durchmesser an!", "Eingabe gesuchter Durchmesser", durchmesser)for i = 1 to selection1.c ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Programm zur Erstellung von Kegelrädern
Don Arnestro am 28.01.2010 um 16:20 Uhr (0)
Moin Moin,und einen besten Dank für die Hinweise und Anregungen.Ca. 75% wurde schon umgesetzt.Der Punkt mit den Unhandled exceptions wird aber wohl etwas mehr Zeit in Anspruch nehmen.Ebenso die Abfrage des zweiten Fensters. Probleme sehe ich in diesem Fall, dass es mir ja nichts ausmacht wenn ein anderes Part oder Product geöffnet ist. Nur wenn eine Berechnung läuft.Wie kann ich abfragen ob das zweite Fenster busy ist?Oder ist diese Funktion GetChildWindows schon enthalten?Der Tipp mit dem StatusStrip ist ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Properties hinzufügen für bestimmte Parts in einem Produkt
RSchulz am 06.01.2014 um 12:52 Uhr (1)
Zitat:Original erstellt von Dennis030186:Wie is das denn weil nach Refplane kommen ja immer unterschiedliche Endungen wie 1 oder 1.1 etc. Code:Sub Example_FindPublication() Dim MainPRD As Product Dim tmpnode As Product Dim TmpPubs As Publications Dim TmpPub As Publication Dim i As Integer Set MainPRD = CATIA.ActiveDocument.Product For Each tmpnode In MainPRD.Products Set TmpPubs = Nothing Set TmpPubs = tmpnode.Publications If TmpPubs.Count 0 Then For ...
|
| In das Form CATIA V5 Programmierung wechseln |
