|
CATIA V5 Programmierung : Einzelne Parts über hinterlegte Eigenschaften per Makro/Skript abfragen u. markieren
Lusilnie am 14.02.2012 um 01:09 Uhr (0)
Hallo bamigon,natürlich könnte ich Dir das Script schreiben, doch dass ist weder im Interesse dieses Forums, noch in Deinen! Du willst ja an der Aufgabe wachsen und das Forum dient der Hilfestellung!Um zu sehen, wie die rekursive Abarbeitung erfolgt, kannst Du Dir die Sub-Routine "GetAbsPosition" von Script "DMUpspastekeepabsoluteposition.CATScript" aus der "V5Automation.chm" im Installations-Verzeichnis von CATIA ansehen. Wenn Du mit diesem Beispiel das Script von "bgrittmann" "erweiterst", solltest Du De ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Eigenschaft von Parts bearbeiten
prosper am 10.02.2006 um 20:40 Uhr (0)
Hallo, probiers doch mal mit:Sub CATMain()Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocumentDim product1 As ProductSet product1 = productDocument1.ProductDim products1 As ProductsSet products1 = product1.ProductsDim product2 As ProductSet product2 = products1.Item("Test")Dim Nummer , ExemplarnameDim K_Beschreibung , TeilenummerDim Ueberarbeitung , NomenklaturDim Definition , QulleDim P_Beschreibung Nummer = product2.???? Wie heißt diese Variable?set oprop = product2.refe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Auf welcher Plane liegt ein Sketch?
fireman am 27.08.2004 um 15:29 Uhr (0)
Hallo Andreas, willst Du analysieren oder einen neuen Sketch erzeugen und ihm mit dem Makro eine Stützebene zuweisen? Ist vielleicht wichtig, dass Du das nochmal beschreibst. Falls Du eine neue Skizze auf eine Ebene legen willst musst Du das Stützelement zuvor als Objekt definieren: Dim Bauteil as Part Set Bauteil = CATIA.ActiveDocument.Part --Part deklarieren Dim UrsprungsElemente, Ebene Set UrsprungsElemente = Bauteil.OriginElements Set Ebene = UrsprungsElemente.PlaneYZ --YZ-Ebene d ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Einfaches Makro erstellen
roccat am 06.12.2012 um 08:55 Uhr (0)
Hi,hab dir mal noch eine Selektion eingebaut.Ggf. musst du den zweiten Selection-Filter etwas mehr eingrenzen.Da InputObjectType(0) = "HybridShape" nicht nur Flächen zulässt.Code:Option ExplicitSub CATMain()Dim MyPartDocument As PartDocumentDim MyPart As PartDim MyHybShapeFact As HybridShapeFactoryDim MyHybBodies As HybridBodiesDim MyQuellHybBody As HybridBodyDim MyZielHybBody As HybridBodyDim MyHybShapes As HybridShapesDim MyHybShape As HybridShapeDim MyHybProject As HybridShapeProjectDim MyHy ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : FTA-Ansichten (TPSViews)
cwillmann am 22.10.2008 um 14:29 Uhr (0)
Hallo,Feststellung bzw. Frage:Wenn ich auf Produktebene eine View bewusst erzeuge (und umbenenne), habe ich das Problem, dass die Orientierung um 90deg gekippt ist.Aber: Ein nachtraegliches "Change View Support" bringt mir die gewuenschte Lage, welche auch dem Ergebnis entspricht, wenn die View von CATIA automatisch (im Rahmen von Annotations) erzeugt wird - dann halt als "Front View.1". Laesst sich dieses Verhalten beeinflussen bzw. abstellen?Oder: Kann ich bewusst anstelle des Types "Isolated" eine Assoz ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Feature erzeugen
MaxZ am 14.07.2005 um 19:49 Uhr (0)
Naja, teils kann man sich Makros mit dem Recorder aufzeichnen, is beim Suchen immer ganz hilfreich, und sonst hier im Forum suchen oder in den Hilfen von VB oder CATIA. Wenn man mal so nen Grundstock an Funktionen und befehlen drauf hat und a bissl durchblickt, wie das alles so gestrickt wird, kann man schon einige Aufgabenstellungen lösen. Liegt dann eher am ausknobeln, wie man das ganze mit IFs und NEXTs und so verwurstet. (Bei mir wenigstens) Bin eigentlich auch noch recht neu auf dem Gebiet der Makrop ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bildschirm während makroablauf aktualisieren...
MarkusK am 14.08.2009 um 08:19 Uhr (0)
Hallo Niko,ist machbar. Du mußt halt jedesmal ein Update machen, und dem Rechner auch Zeit geben.Die Zauberworte sind .Update und DoEvents.Hier ein Code der ein Punkt auf der Linie verschiebt.(Die Namen des Sets und des Punktes, musst du halt im Code anpassen)Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodySet hybridBo ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Problem bei Selection.add
RAA am 18.04.2017 um 14:51 Uhr (1)
Hallo,ich versuche gerade im Background einer Drawing die Linienstärke der gerade erzeugten Linien zu ändern,aber ich schaffe es nicht.Dim selection As INFITF.Selectionselection = CATIA.ActiveDocument.SelectionDim Line2D As Factory2DDim visProperties As INFITF.VisPropertySetvisProperties = selection.VisPropertiesselection.Clear()Line2D = BackView.Factory2D.CreateLine(Heftrand, Offset, SF_Offs, Offset)selection.Add(Line2D)....MsgBox(selection.Count.ToString)selection.VisProperties.SetRealWidth(4, 1)Oben ein ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Strukturbaum abbilden
Florian.Held am 23.07.2005 um 12:45 Uhr (0)
Hi, ich muss den Strukturbaum abbilden, sprich alle Producte, Komponenten und Parts auflisten (z.B. in Form einer MsgBox) - Siehe Bild. Dass Bild habe ich mit folgendem Makro erzeugt: ********************************************************************** Sub CATMain() Set Basic = CATIA.ActiveDocument tstr = tstr & & vbcrlf tstr = "" & vbcrlf tstr = tstr & "Struktur von " & Basic.Product.Name & ":" & vbcrlf for a = 1 to Basic.Product.Products.count tstr = tstr & Basic.Product.Products.item(a).PartNumber ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : IsNumeric?
SirKlabauter am 08.05.2007 um 15:59 Uhr (0)
Danke Locke das du dir schon mal Gedanken gemacht hast. Bei dem Versuch was in die Textbox zu tippen wird nichts ungeloaded. Die Userform bleibt soll lange geöffnet bis sie der User schließt. Ich hab den Code auskommentiert und das Macro noch mal laufen lassen. Dann konnte ich eintragen was ich wollte, auch ein Minuszeichen.Private Sub TextBox_Delta1_Change()If Not IsNumeric(Me.TextBox_Delta1.Value) Then TextBox_Delta1.Value = "" Exit Sub End IfEnd SubKann es daran liegen, daß die Abfrage jedesmal durch ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Multivalueparameter ändern
Pietzonka am 06.09.2011 um 07:37 Uhr (1)
Hallo Bernd!Ich habe mich nicht genau ausgedrückt, bitte um Verzeihung.Da der Aufwand für die umfangreiche Tabelle sehr groß ist, wollte ich sie nach und nach ergänzen.Somit wird die Variable "Zeichenfolge.1", die auf eine gleichnamige String-Variable bezogen ist, eine zunehmende Anzahl Einträge bekommen.Aus der Spalte Zeichenfolge.1 wollte ich mir, eventuell mit vertikaler Scrollbar, die Einträge anzeigen lassen.Dann könnte man bestimmt auch noch den gewünschten Eintrag per Klick auswählen. Davon wollte i ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Annotations TPSView selektieren
roccat am 22.10.2010 um 15:05 Uhr (0)
Hallo Henry,bei mir gehts, hab nur noch dein "priv_viewWork" dimensioniert.Dann hats eigentlich geklappt.Code:Option ExplicitSub start() userSelectViewEnd SubFunction userSelectView() As String Dim docWork As INFITF.Document Dim selWork As INFITF.Selection Dim arrVarTypes(0) As Variant Dim objBuffer As Object Dim priv_viewWork As TPSView userSelectView = "" On Error Resume Next Set docWork = CATIA.ActiveDocument If (docWork Is Nothing) Then Exit Function ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Anfängerhilfe mit Selection
FreshBlood am 25.03.2009 um 15:16 Uhr (0)
also meine idee / code sieht wie folgt aus:Code:Dim UserSelection As SelectionSet UserSelection = CATIA.ActiveDocument.SelectionIf InStr(UserSelection.Item(1).Document.FullName, ".CATPart") 0 ThenDim TempPart As PartSet TempPart = UserSelection.Item(1)Set pList = TempPart.ParametersElseIf InStr(UserSelection.Item(1).Document.FullName, ".CATProduct") 0 ThenDim TempProduct As ProductSet TempProduct = UserSelection.Item(1)Set pList = TempProduct.ParametersElse Und hier will ich die Fälle abhandeln wo der Us ...
|
| In das Form CATIA V5 Programmierung wechseln |
