|
CATIA V5 Programmierung : Fläche auswählen und Oberfläche messen
DanielFr. am 12.04.2010 um 11:56 Uhr (0)
Hallo,du musst dir erst mal ein messbares Referenzobjekt erzeugen um zu messen. Hier mal der Code aus der Hilfe:Code: Dim referenceObject As referenceObject Set referenceObject = "GetReference" Dim TheSPAWorkbench As Workbench Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench ( "SPAWorkbench" ) Dim TheMeasurable As Measurable Set TheMeasurable = TheSPAWorkbench.GetMeasurable(referenceObject)Als Referenzobjekt (referenceObject) musst du dann die Selektion nehmen. Auf diese TheMeasurable-Objekt k ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fläche auswählen und Oberfläche messen
Blade9969 am 12.04.2010 um 16:07 Uhr (0)
Hi,also hat mit deiner Erklärung super geklappt!Hier der Quellcode, den ich verwendet habe:Dim reference1 As ReferenceSet reference1 = selectedflaeche Dim TheSPAWorkbench As WorkbenchSet TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")Dim TheMeasurable As MeasurableSet TheMeasurable = TheSPAWorkbench.GetMeasurable(reference1)AArea = TheMeasurable.AreaMsgBox ("Flächeninhalt= " & AArea)Danke nochmal für deine Hilfe------------------GrußBlade
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA-userForm mit CATScript starten
bgrittmann am 13.04.2010 um 09:36 Uhr (0)
Guten MorgenIch versuche ein UserForm mit einem CATScript zu starten. Dazu rufe ich mit dem CATScript die Start-Routine in einem Modul des VBA-Projekts auf. Das VBA-Projekt ist dabei nicht in den Makrobibliotheken in CATIA angezogen.Beim Ausführen des CATScripts startet die UserForm aber der zusätzlich Code (Dokumententyp prüfen) in der UserForm_Initialize wird nicht ausgeführt. Wenn ich die UserForm beende und das CATScript wird der Code in der Initialize-Routine ausgeführt.Was mach ich falsch? Oder geht ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kochbuch Rezept R36 erweitern
Tamo am 14.04.2010 um 12:02 Uhr (0)
Hi,wollte mal nachfragen wie es denn möglich ist die eingabemaske so zu gestallten das mehrere eingabe felder nebeneinander stehen??Ich habe nämlich 65 positionen und würde diese gerne so gestalten wie mein titelblock aussieht,im R36 sind ja sämtlich positionen untereinanden.Arbeite mit winxp und catia r17Gruß
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kochbuch Rezept R36 erweitern
DanielFr. am 14.04.2010 um 12:08 Uhr (0)
Hallo Tamo,also du setzt voraus das wir alle das Buch haben und jeder jetzt nachschlägt um dir zu helfen . Ich weiß nicht mal genau von was du redest außer das es um ein Titleblock Script geht.Vielleicht wäre es hilfreich genau zu beschreiben wo den dein Problem liegt. Erweiterung einer UserForm?------------------MFG DanielSysteminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kochbuch Rezept R36 erweitern
Axel.Strasser am 14.04.2010 um 13:00 Uhr (0)
Zitat:Original erstellt von DanielFr.:also du setzt voraus das wir alle das Buch haben und jeder jetzt nachschlägt um dir zu helfen Das Buch von Jens hat doch jeder der programmiert Axel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektion_während_der_Laufzeit
Glück am 16.04.2010 um 10:40 Uhr (0)
Hallo Henry, danke, so funktioniert es.Was ist aber, wenn ich ein Geometrical Set und keine Linie usw. selektieren möchte?Ich habe das gleiche Schema mit einfachen Änderungen benutzt, aber ich bekomme eine Fehlermeldung :Code:_______________________________________________________________________________________________Sub CATMain() Auswahl festlegen ------------------------------ Dim Was(0)!!!!!!!!!!! Was(0) = "Geometrical Set" !!!!!! Selektion definieren und leeren ---------------- Dim selUser As Se ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektion_während_der_Laufzeit
HoBLila am 15.04.2010 um 11:08 Uhr (0)
*g*Ich denke mal die Suchfunktion liefert dir meine Antwort auch einige duzent male:Problem ist, dass VBA bei der ByRef-Übergabe nicht so recht mit der API-Schnittstelle kann und lieber Objekte für die Methodenaufrufe haben möchteCode: Selektion definieren und leeren --------------------------------- Dim selUser As Selection Dim objBuffer As Object Set selUser = CATIA.ActiveDocument.Selection Set objBuffer = selUser Selektion vornehmen lassen -------------------------------------- Dim sReturn As CATB ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA -> Einem Element ein Parameter zuweisen
Bernod am 15.04.2010 um 11:32 Uhr (0)
Hallo,mein Problem wurde in ähnlicher Weise schon ein paar mal hier angesprochen. Leider konnte ich die Hilfestellungen nicht auf mein Problem übertragen. Und zwar folgendes:- In meinem CATPart existiert eine Polyline und ein Parameter- Über ein VBA-Makro soll der Parameter ausgelesen und der Polyline als Biegeradius zugewiesen werden.- Die Polyline besteht beispielsweise aus 3 Punkten und soll den Radius an Punkt 2 bekommenMein Problem:- Ich verstehe nicht genau wie ich den Parameter an die Polyline überg ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : InWorkObject Selection
Jens Hansen am 15.04.2010 um 11:44 Uhr (0)
Hallo,kannst du nicht einfach anhand der Selection.Value.Parent.Parent.usw auf das Part zurück schließen und dieses dann InWork setzen?SGJens Hansen------------------Inoffizielle CATIA-HilfeseiteHomepage von Jens HansenKochbuch - CATIA V5 automatisieren
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schnittpunkt von 2 Geraden
grossmao am 15.08.2011 um 10:33 Uhr (0)
93Aero, dein Hinweis knüpft genau an das Problem an, das ich gerade habe. Sobald die Geraden sich nicht schneiden, wird eine Fehlermedung angezeigt. Ist es möglich, dass anstatt der Fehlermeldung eine Information (mit beispielsweise dem Text: "die Linien schneiden sich nicht") angezeigt wird? Wenn ja, wie?Ich bin leider noch sehr neu auf dem Gebiet CATIA-Programmierung/Knowledgeware. Würde mich über einen Tip sehr freuen!vielen Dank im Voraus
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kochbuch Rezept R36 erweitern
Jens Hansen am 15.04.2010 um 12:00 Uhr (0)
Hallo,die einzelnen Positionen werden in der SchleifeFor i = 0 To UBound(dummytexte, 1) Set dummylabel = Me.Controls.Add("Forms.Label1", "dummy_lb_" & i) dummylabel.Move 10, ypos, 100, 10 dummylabel.Caption = dummytexte(i, 0) dummylabel.Font.Bold = True dummylabel.AutoSize = True Set dummytextbox = Me.Controls.Add("Forms.TextBox.1", "dummy_tb_" & i) dummytextbox.Move 100, ypos, 170, 16 dummytextbox.Value = dummytexte(i, 0) dummytextbox.S ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA -> Einem Element ein Parameter zuweisen
Bernod am 15.04.2010 um 15:59 Uhr (0)
Ich bin nun einen guten Schritt vorangekommen. Allerdings funktioniert es immernoch nicht eiwandfrei. ********************************************************* ************** wichtiger Abschnitt START **************** *********************************************************Dim hybridShapesX As HybridShapesSet hybridShapesX = hybridBody1.HybridShapesDim Polyline1 As HybridShapePolyline Hier wird die Polyline deklariert Set Polyline1 = hybridShapesX.Item("MEINEPOL") Anfangs muss ein willkürlicher Wert für d ...
|
| In das Form CATIA V5 Programmierung wechseln |
