|
CATIA V5 Programmierung : Intersection automatisch deaktivieren
Chrisma am 14.04.2010 um 22:55 Uhr (0)
So ich hab mich mal wieder damit beschäftigt das Intersectionprob zu lösen. Code steht unten.Mein Prob ist, dass ich sehr viele Intersects habe. Ich habe also versucht eine Schleife zu schreiben. Diese habe ich als Rule in KWA eingefügt. Ich befürchte aber ich schmeiße gerade die Programmiersprache von Catia durcheinander. Ich bekomme auf jeden Fall einen Syntaxfehler um den Token X angezeigt.On error resume nextFor X = 1 to 11 mir egal, dass es nicht variabel ist, die Linie sind imemr die gleichenlet i(po ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : BOM NACH Drawing VBA
bgrittmann am 22.12.2011 um 15:06 Uhr (1)
ServusDas Problem ist, das diese Benutzerparameter (wahrscheinlich noch Catia-Sprachabhängig) einen anderen Namen haben. In der deutschen Umgebung ergibt sich zB folgender Parametername "Einzelteil_1EigenschaftenMATERIAL".Entweder müsstest du diesen Namen immer zusammenstellen. Oder mit einer Funktion den richtigen Parameter suchen lassen (ungetestet):Code:Function UserparameterByName(oProduct As Product, strParameter As String) As Parameter Dim UserParameters As Parameters Dim oParameter As Parameter ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Parameter von der Oberbaugruppe
Windninja am 02.08.2016 um 13:54 Uhr (1)
Hallo,Ich habe ein kleines Problem mit ein Makro von mir das bei großen Baugruppen immer langsamer wird und manchmal auch ein Fehler ausgibt. Das Problem ist der Teil der mir Parameter aus der Obersten Baugruppe auslesen soll.Mein Code durchsucht aber scheinbar alle vorhandenen Parameter und nicht nur die von der Obersten Baugruppe. Daher kommt es auch vor, wenn der Parametername nochmal in einer Unterbaugruppe vorkommt, dass der Wert der Unterbaugruppe ausgegeben wird. Es scheint der erste Parameter genom ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makros aus Makro heraus ausführen
Christian.O am 02.12.2010 um 18:41 Uhr (0)
Servus,entweder soCode:Private Sub cmd_Change_Balloon_Propterties_Click() Makroaufruf: Change_Balloon_Propterties ***Fenster schließen Unload Me ***Fenster anzeigen / vbModeless damit man bei geöffneter Userform etwas selektieren kann Change_Balloon_Propterties.Show vbModelessEnd Suboder soCode:Private Sub cmd_Rename_Object_Click() Makroaufruf: Rename_Object ***Fenster schließen Unload Me ***Deklarationen für Function-Aufruf strProjekt = "OC_GUI.catvba" strMakro = "Rename_Object" strMakrostart ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makroprogrammierung Startschwierigkeiten
DasDon am 11.09.2013 um 10:38 Uhr (1)
moin,ich habe mir im VBA Editor part1 als Watch Objekt hinzugefügt und dann gesehen das unter Hybridbodies nur 2 Elemente waren, Nämlich 123 und Geometrical_Set.2.Ich würde dir empfehlen den VBA Editor zubenutzen bei schwerigkeiten. Ich habe das CATIA Macro scripten ohne ihn gelernt, aber gerade am amfang spart es viel Zeit beim Debuggen. Einfach das WatchTool fenster benutzen.Gruß,Dean
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makroprogrammierung Startschwierigkeiten
DasDon am 10.09.2013 um 13:06 Uhr (1)
moin moin,freut mich das du zum Ergebnis gekommen bist, aber dürfte ich fragen warum du dieses macro brauchst?Es scheint mir relative fehlerhaft zu sein. Sobald intersect.2 intersect.3 heisst oder es zwei elemente mit dem namen Intersect.2 gibt, bekommst du nicht die richtige Antwort-Msgbox. Ausserdem für sowas "simples" ist die manuelle funktion STRG+F-"*intersect.2" einhacken-Search-reframe on. schon fast genau so schnell.Gruß,
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makroprogrammierung Startschwierigkeiten
ferdo am 10.09.2013 um 15:24 Uhr (1)
Hallo,In CATScriptSub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.Partset Selection1 = CATIA.ActiveDocument.Selectionselection1.Search "Name=Intersect*,all"For i = 1 TO selection1.Countset intersect = selection1.item2(i).valueart=part1.hybridShapeFactory.GetGeometricalFeatureType(intersect)Select Case artCase "1"MsgBox "Intersection " & intersect.Name & " is a Point", vbOKOnly + vbInformationCase "3"MsgBox "Intersection " & intersect.Name & " is a Line",vbOKOnly + vbInformati ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Makroprogrammierung Startschwierigkeiten
N2high am 10.09.2013 um 12:58 Uhr (15)
das wars danke zu vollständigkeit hier mein Code:Code:Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.Partset Selection1 = CATIA.ActiveDocument.Selectionselection1.Search "Name=Intersect.2,all"set intersect = selection1.item2(1).valueart=part1.hybridShapeFactory.GetGeometricalFeatureType(intersect)Select Case artCase "1" MsgBox "Intersect ist ein Punkt", vbOKOnly + vbInformationCase "3" MsgBox "Intersect ist eine Gerade",vbOKOnly + vbInformationCase Else MsgBox "Art des Inte ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makroprogrammierung Startschwierigkeiten
N2high am 11.09.2013 um 10:30 Uhr (1)
danke so klappts Wo kann man des nachschauen, dass es nur auf Level 1 gilt?In der Catia Hilfe hab ichs nicht gefunden
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makroprogrammierung Startschwierigkeiten
N2high am 10.09.2013 um 17:46 Uhr (1)
manuell funktioniert es bei mir.Hab mal den Makrorecorder im Testpart laufen lassen:Code:Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet bodies1 = part1.BodiesSet body1 = bodies1.Item("PartBody")Set hybridBodies1 = body1.HybridBodiesSet hybridBody1 = hybridBodies1.Item("qwert")Set hybridShapes1 = hybridBody1.HybridShapesSet hybridShapePointCoord1 = hybridShapes1.Item("Point.4")part1.Inactivate hybridShapePointCoord1part1.UpdateObject hybridBody1End Subdamit funktionie ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Vektoren für DefineFrontView
TVcad am 01.04.2010 um 15:09 Uhr (0)
Hallo,also hier ist die Funktion:- Auswahl einer PlanarFace durch eine UserSelection- Rückgabe der Vektoren V1 u. V2 (zusammengefasst ein einem Array), oder False wenn das aktive Dokument kein PartDocument istCode:Public Function fctPlanarFaceVector() As Variant If TypeName(CATIA.ActiveDocument) "PartDocument" Then fctPlanarFaceVector = False Exit Function Else Dim sUserSel As String Dim aVector1(2) Dim aVector2(2) Dim aVector(5) Dim aSelectionType(0) D ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makroprogrammierung Startschwierigkeiten
bgrittmann am 09.09.2013 um 12:49 Uhr (1)
ServusWas dir "getShow" zurückliefert kannst in der V5Automation.chm nachschauen. Ein Beispiel von dort:Code: Dim showstate As CatVisPropertyShow Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties visProperties1.GetShow showstate MsgBox "show = " & showstateGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makroprogrammierung Startschwierigkeiten
N2high am 10.09.2013 um 12:28 Uhr (1)
mit Code:set Selection1 = CATIA.ActiveDocument.Selectionselection1.Search "Name=Intersect.1,all"kann ich das Intersect selektieren, allerdings wie ich das mit Code:hybridShapeFactory.GetGeometricalFeatureType()"verbinde" ist mir noch nicht klarCode:hybridShapeFactory.GetGeometricalFeatureType(selection1.Search "Name=Intersect.1,all")funktioniert nicht
|
| In das Form CATIA V5 Programmierung wechseln |
