|
CATIA V5 Programmierung : StartCommand wiederholen (wie Doppelklick)
geekv5 am 21.04.2012 um 00:39 Uhr (0)
So, habs hinbekommen.. Hier die Lösung für alle zum mitmeißeln:Code:Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As IntegerPublic Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Public Mehrfachstarten As BooleanSub CATMain()Abbruchbedingung = FalseIf Mehrfachstarten = True Then Do Until Abbruchbedingung = True C ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : vb.net: CATIA Events abonnieren?
GEL63 am 26.07.2013 um 16:00 Uhr (1)
Hi all,The way I face such problems is as follows:1. I install an [Agent] to the active window of CATIA. The Agent will look for specific Windows Message(s) sent to this window. The Windows message we must look for in this case is WM_DESTROY2. Subclass my form. In this way I am able to receive windows messages from the Agent Control. If I receive a WM_DESTROY windows message then I know that the subject window is closed.Agent Control is a self developed Windows Forms Control. The control installs an Agent ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Flächen umfärben
HoBLila am 22.09.2009 um 14:32 Uhr (0)
Ich hab grad kein CATIA hier und kann auch keinen Code aus dem Kopf zaubern, Dir aber sagen, wies gemacht wird:Aus deinem Constraint die Referenz auf deien Fläche auslesen. Diese Fläche dann mit Selection.Add deiner Selection hinzufügen und dann mit Selection.VisProperties (oda so) die selektierten Elemente einfärben.Die Selection gibts vom Document (Catia.ActiveDocument.Selection).Die Visprops haben dann die Eigenschaft SetRealColor oder so ähnlich (das findest du aber auch in der Hilfe).----------------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Late Binding mit Visual Basic 2008 Express Edition
Tstone am 05.10.2010 um 12:43 Uhr (0)
Hallo Inlu,solange du mit late binding arbeitest, sehe ich keine Möglichkeit das Problem zu lösen. Ich habe dein Problem mal, mit deinem Code nachgestellt und bekomme bei late binding die gleiche Fehlermeldung wie du.Füge ich aber einen Verweis auf *CATIA V5 MecModInterfaces Object Library* hinzu und deklariere:Dim apart As MECMOD.Partdann funktioniert das Ganze. Aber vielleicht kann dir ein Vertreter der late binding- Fraktion noch einen Tip geben.Da ich meistens (immer geht leider nicht danke dem Objektm ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro geometrische Set
Jens Hansen am 30.01.2009 um 09:30 Uhr (0)
Naja... es muss schon definiert sein, wann ein GS unterhalb eines anderen GS erzeugt werden soll und wann nicht. Generell ist es so, dass zu erst das "Vater"-Set angesprochen werden muss:bei neues GS mit: Set hb1 = part1.HybridBodies.Addbei bestehenden mit: Set hb1 = part1.HybridBodies.Item("Name_des GS_oder index")wobei das letztere sich auf die oberste Ebene bezieht. Tiefer verschaltet sieht es dann so aus: Set hb1 = part1.HybridBodies.Item(2).Hybridbodies.Item(1).Hybridbodies.Item("Name")Hier wären w ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Linienlänge und Flächen mit makro auslesen
B Hossbach am 25.04.2008 um 16:22 Uhr (0)
So. Jetzt hab ichs:-------------------------------------------------------------------------------------------------------Linienlaenge messenFunction LinienLaenge(Param) Dim TheSPAWorkbench, TheMeasurable, Laenge Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench") Set TheMeasurable = TheSPAWorkbench.GetMeasurable(Param) Laenge = TheMeasurable.Length LinienLaenge = LaengeEnd Function-------------------------------------------------------------------------------------------------------Fl ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
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 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PowerCopy in Produktumgebung ausführen
DanielFr. am 26.04.2010 um 13:13 Uhr (0)
Hallo Bernod ,mit dem Codeschnipsel kann man leider nichts anfangen da man gerade dein beschriebenes Problem nicht "sieht". Ich denke es liegt daran das in der Funktion "OK_Button_Click" dein Objekt "IntPointObj" keinen Wert (also Nothing) ist. Du hast wieder im Prozedurkopf hierzu eine Übergabe definiert noch kann man erkennen ob das Objekt eventuell global (Public, Private) deklariert wurde.Ich habe dir mal ganz kurz was zusammen geschrieben. Die Instantiierung des PC funktioniert im Beispiel so wie das ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PDF Export in Catia
Randle am 27.02.2023 um 14:56 Uhr (1)
Meine Vermutung ist, das die Ersteller der Originale einen Maßstab auf das Zeichnungsblatt und/oder die Ansicht angewendet haben. Das wirst du aber ohne die Originale nicht rausbekommen, da der Import auf beides immer (soweit ich sehen und testen konnte) den Maßstab 1:1 anwendet. Ich konnte das "Verhalten" innerhalb von CATIA V5 "nachstellen", so das ich ähnliche Ergebnisse hatte.Evtl. geht es mit einem anderen Format (DXF) besser, oder man gibt dem Zulieferer klare Vorgaben (z.B. das er die PDFs selber li ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Wie ruft man ein CATScript oder VBScript aus VBA heraus auf?
DanielFr. am 09.10.2009 um 15:22 Uhr (0)
Hallo,den kann man gar nicht verwenden. Du kannst einen externen VB Editor verwenden (der unterstützt dann die Farben und das Einrücken etc. z.B. Notepadd ++) oder den Quelltext des CATscript bzw. CATvba einfach in den Visal Basic Editor kopieren. Achtung vorallem bei CATvba solltest du dann deine Variablen und Objekte vollständig deklarieren. Erst wenn du sie wieder in das CATvba kopierst kommentierst du die Deklarationen (werden in vba nicht benötigt) aus.Um aus einem catvba Script ein catscript bzw. ein ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 16.01.2012 um 14:07 Uhr (0)
Hallo Bernd,Ich hab mal versucht, ganz von Anfang anzufangen und hab schon gute Fortschritte gemacht:Hier mal ein Makro, in dem ich etwas mit Selections probiere. Dadurch wurde mir einiges klarCode:Sub CATMain() Dim oSel Set oSel = CATIA.ActiveDocument.Selection oSel.Clear CheckJawGeometry SelectPlanesEnd Subsub SelectPlanes () Dim Jaw Dim Geometrics Dim Geometry Dim oSel Set oSel = CATIA.ActiveDocument.Selection oSel.Clear Set Jaw = CATIA.ActiveDocument.Part.MainBody Set Geometrics = Jaw.GeometricElem ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 16.01.2012 um 14:07 Uhr (0)
Hallo Bernd,Ich hab mal versucht, ganz von Anfang anzufangen und hab schon gute Fortschritte gemacht:Hier mal ein Makro, in dem ich etwas mit Selections probiere. Dadurch wurde mir einiges klarCode:Sub CATMain() Dim oSel Set oSel = CATIA.ActiveDocument.Selection oSel.Clear CheckJawGeometry SelectPlanesEnd Subsub SelectPlanes () Dim Jaw Dim Geometrics Dim Geometry Dim oSel Set oSel = CATIA.ActiveDocument.Selection oSel.Clear Set Jaw = CATIA.ActiveDocument.Part.MainBody Set Geometrics = Jaw.GeometricElem ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Objekt als Rückgabewert
rattlesnake am 18.07.2008 um 13:51 Uhr (0)
Hallo Gemeinde,hab eine Frage. Hab ein kleines Beispielskript geschrieben, das einfach aus der aktuellen Auswahl den erstenPunkt ausliest und wenn einer gefunden wurde diesen zurückgibt.Jetzt gelingt mir es einfach nicht ein Objekt als Rückgabetyp zurück zu geben.Hat das jemand schon einmal gemacht?Code:Sub CatMain() Dim object As HybridshapePointCoord object = tryToGetFirstPointOutOfSelection MsgBox TypeName(object)End SubPublic Function tryToGetFirstPointOutOfSelection() Dim selection As selection Dim Bt ...
|
| In das Form CATIA V5 Programmierung wechseln |
