|
CATIA V5 Programmierung : Properties PLM Document Attributes abfragen
Meridian am 15.09.2011 um 08:54 Uhr (0)
Hallo, ja genau die Extension möchte ich abfragen.Aus VPM geladene Baugruppen (Ist kein echtes CATProduct, das ist das Problem) oder CATParts. Da es sich bei einer Baugruppe nicht um ein CATProduct handelt, wird die Extension sicherlich nicht abfragbar sein. Mich interessiert mehr die Abfrage der CATPart Extension. Wenn ich den Dokumentenname abfrage:Sub CATMain()Set meineDokumente = Catia.Documentsfor each meinDokument in meineDokumentemsgbox meinDokument.namenextEnd SubFolgendes Ergebis:Filebased CATPart ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : DoEvents in CATVBS
8user8 am 01.12.2010 um 16:57 Uhr (0)
Hallo,dieser DoEvents Befehl ist fürs VBA anscheinend sehr nützlich. Kann man sowas auch in einem VB Script realisieren oder gibt es keine Objekte oder Methoden mit denen man diese Funktion umsetzen kann?Das Problem dahinter:Im VB-Script with Arguments kann man keine Userselektion (SelectElement..) nutzen. Also arbeite ich an einem Workaround, das könnte etwa so aussehen:Dim sel As SelectionSet sel = CATIA.ActiveDocument.Selectionsel.ClearCATIA.Interactive = TrueMsgBox "selektiere was"Do While sel.Count2 = ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
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 : Auf Text von einem Macro über Komponenteneigen. zugreifen
K.Siebert am 09.04.2008 um 19:28 Uhr (0)
Hallo liebe Gemeinde,Weiß jemand von euch wie ich mit Hilfe eines Marcos auf einen schon vorhandenen Text zugreife (Komponenteneigenschaften) denn ich möchte denn Datei Namen Zerlegen und so denn vorhanden Text mit diesem Ergebnis befüllen. Mit dem Titel-Block Editor ist es erst mit der nächsten Version (V4.3.1 zur zeit in der Test Fase) möglichCode:Sub CATMain()__________________Ansicht bestimmen_________________________________Dim drawingDocument1 As DocumentSet drawingDocument1 = CATIA.ActiveDocumentDim ...
|
| 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
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
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 |
 |
CATIA V5 Programmierung : Makroprogrammierung Startschwierigkeiten
N2high am 11.09.2013 um 10:04 Uhr (1)
die Fehlermeldung hab ich als Anhang angehängt.Die Fett markierte Zeile ist esCode:Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet Wzk3D = part1.HybridShapeFactorySet h_pkt = part1.FindObjectByName ("Intersect.1")Set ref = part1.CreateReferenceFromObject (h_pkt)set Pkt = Wzk3D.AddNewPointCoordWithReference (0,0,0,h_pkt)Set HBody = part1.HybridBodies.Item (h_pkt.parent.parent.name)HBody.AppendHybridShape PktPart1.UpdateEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
