|
CATIA V5 Programmierung : Bestimmten Linienstärken eine Farbe zuweisen
Steffen Hohmann am 22.07.2003 um 09:32 Uhr (0)
Hallo Gansen,so gehts:Sub CATMain() CATIA.ActiveDocument.Selection.Search "Weight=0,13mm,all" CATIA.ActiveDocument.Selection.VisProperties.SetRealColor 255,0,0,1 CATIA.ActiveDocument.Selection.Search "Weight=0,35mm,all" CATIA.ActiveDocument.Selection.VisProperties.SetRealColor 0,255,0,1 CATIA.ActiveDocument.Selection.ClearEnd SubGrussSteffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Reframe auf Selektion
Steffen Hohmann am 21.07.2003 um 11:44 Uhr (0)
Hallo Laute, solltest Du mit VB arbeiten kannst Du über die SendKeys-Methode einen CATIA-Befehl absetzen. Der Befehl für das Reframe auf die ausgewählten Objekte lautet Bildschirmfüllend anzeigen bzw Reframe on für die englische Oberfläche. Der Quelltext sieht wie folgt aus: AppActivate CATIA V5 SendKeys b:Bildschirmfüllend anzeigen + Chr(13), True (SendKeys c:Reframe On + Chr(13), True -- für englisch) Da wohl bis dato noch keiner so richtig die StartCommand-Methode zum Laufen gebrach ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Reframe auf Selektion
Laute am 22.07.2003 um 11:08 Uhr (0)
Hallo Steffen, danke für deine Antwort ! Leider ist es mir nicht ganz gelungen ein Reframe zu machen - ...BackgroundProcessus( C:WinntProject.exe Reframe On ) Ist daran was falsch?? ich bekomm keine Fehlermeldung(wie so oft) Ich möchte ein selektiertes Element eines Parts reframen. In CATIA geht das mit (- Rechtsklick- Reframe on)nur für das Part als Ganzes - aber nicht für ein einzelnes Element des Parts. Ich denke mir mal da wird VB auch nicht mehr können?! Gruß Laute
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makroprobleme bzgl. Sichtbarkeit von Komponenten
Stingray9 am 22.07.2003 um 15:02 Uhr (0)
Hi, ich habe folgendes Makro geschrieben: Code: Sub CATMain() Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Dim selection1 As Selection Set selection1 = productDocument1.Selection selection1.Search Name:*Motor 1 komplett*;Alle Set visPropertySet1 = selection1.VisProperties If ??? Then MsgBox Komponenten sind sichtbar Else MsgBox Komponenten sind nicht sichtbar End If End Sub Nun will ich die Überprüfen, ob die Bauteile sichtbar sind oder nicht. Wie muss ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : fragen zu macros programmierung an CATDrawings!?
giovane am 25.07.2003 um 18:35 Uhr (0)
hallo, ich fange mit der macro programmierung an und möchte nun folgendes umsetzten! - ich habe eine reihe CATDrawings in einen Dateiordner - ich möchte allen CATDrawings in diesem Ordner automatisch Text in die Background Ansicht hinzufügen und alle wieder speichern! ist (ich gehe von ja aus) so etwas möglich und wie? - wie wechsle ich in die Bachground View um dort Text einzufügen? - und kann ich ein Macro über alle CATDrawing eines Ordners laufen lassen? (ich möchte nicht jedes im Catia per Hand öffnen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : fragen zu macros programmierung an CATDrawings!?
Steffen Hohmann am 28.07.2003 um 08:46 Uhr (0)
Hallo giovane, hier das Makro für Deine Anforderung. Sub CATMain() Dim oFileSystem As INFITF.FileSystem Set oFileSystem = CATIA.FileSystem Dim oFolder As INFITF.Folder Verzeichnisname für CATIA-Zeichnungen Set oFolder = oFileSystem.GetFolder( C:Tempa ) Dim FileSep As String FileSep = oFileSystem.FileSeparator Dim i As Long Dim j as Variant Dim oFile As INFITF.File Dim oActiveDoc As DrawingDocument Dim BackView As DrawingView Dim oText As DrawingText ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Position.GetComponents - Funktion
Laute am 23.07.2003 um 13:09 Uhr (0)
Hallo Allerseits, Dim oPart as PartDocument Dim oSelection as Selection Set oSelection = CATIA.ActiveDocument.Selection Set oPart = oSelection.FindObject( PAD.1 ) Dim dPosition(11) oPart.Position.GetComponents dPosition For i = 0 to 11 msgbox + dPosition(i) next So siehts aus mein Problem. Ist daran etwas verkehrt? Ich bekomme keine Werte in das Array. Funktioniert das nur mit Punkten oder Ebenen? Wenn sich jemand damit auskennt wäre ich dankbar für einen Tipp Gruß Laute
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Position.GetComponents - Funktion
Laute am 23.07.2003 um 14:47 Uhr (0)
Hallo nochmals, hab die Sache ein bisschen abgeändertund jetzt bekomm ich eine Fehlermeldung Function marked as restricted or automation type not used in vb - ?? was hat das zu bedeuten? Dim oPart As PartDocument Dim oRoot As Product Set oPart = CATIA.ActiveDocument.Selection.Item(1) Set oRoot = oPart.Product Dim oPosition As Position Set oPosition = oRoot.Position Dim dPosition(11) oPosition.GetComponents dPosition For I = 0 To 5 MsgBox Num ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Position.GetComponents - Funktion
Steffen Hohmann am 24.07.2003 um 08:32 Uhr (0)
Hallo Laute, Was sind denn die Positionsdaten eines Features (Pad, Fillet, usw.)? Also die Position-Methode funktioniert nur mit Part s, Product s und sonstigen Komponenten, die in einer Baugruppe verbaut werden können. Eine andere Anwendungsmöglichkeit die funktioniert ist mir nicht bekannt. Dein zweites Makro läuft, wenn Du die Typdeklaration von oPosition auskommentierst. Aber Du bekommst in der Matrix dPosition nur die Positionskoordinaten vom oPart. Die Anweisung Set oPart = CATIA.ActiveDocument. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Position.GetComponents - Funktion
Laute am 24.07.2003 um 10:36 Uhr (0)
Hi Steffen, tja wie soll ich mich nur bedanken? Wenn ich kein armer Student wäre würde ich dir einen Scheck zukommen lassen - dafür, dass ich mich nicht mehr mit der b***** Doku rumärgern muss und irgendwas probiere das garnicht funktionieren kann ! Also danke für die Mühe! Nun hätt ich nur noch zwei klitzekleines Probs. 1. Und zwar möchte ich das was in der CATMain steht aus meiner Anwendung aufrufen -wenn ich einen Button klickt etc. Bloß passiert da nix - Der Start im CATIA geht problemlos. 2. Expand ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Position.GetComponents - Funktion
Steffen Hohmann am 24.07.2003 um 11:29 Uhr (0)
Hallo Laute, bei mir funkts in VB. Ich habe folgende Struktur: 1. ein Modul mit einer Sub Main (Main ist die Startprocedure des VB-Projektes) Public CATIA As Application Sub Main() AppActivate CATIA V5 DoEvents Set CATIA = GetObject( , CATIA.Application ) Form1.Show End Sub 2. eine Form mit Button und einer Ereignisprocedure für den Button Private Sub Command1_Click() Dim oSel Set oSel = CATIA.ActiveDocument.Selection Dim sFilter(3) sFilter(0) = Pla ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Position.GetComponents - Funktion
Laute am 25.07.2003 um 10:20 Uhr (0)
Hallo Steffen, danke für die ausfürhliche Antwort. Hab s aber leider nicht hinbekommen! Der beigefügte Code verursacht eine Endlosschleife. Beim Debug wir mir die SendKeys Anweisung gehighlightet oder eine Meldung SelectElement/Item(1) - schlug fehl . Ich klick auf meinen Button - wähle ein Element aus - Endlosschleife/oder garnichts passiert. Dim oSel Set oSel = CATIA.ActiveDocument.Selection oSel.Clear Dim sFilter(3) sFilter(0) = Plane sFilter(1) = Sketch ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Position.GetComponents - Funktion
Laute am 25.07.2003 um 12:59 Uhr (0)
Hallo Steffen, Falscher Alarm ! ! ! - dein Code ist fehlerfrei und läuft!(bei mir aber nicht immer!liegt aber definitiv an meinem CATIA!?Spricht nicht immer auf SendKeys an) -Endlosschleife gibts nur wenn vor dem sub-call schon ein Element selektiert ist! da kann man sich aber mit ...Selektion.clear behelfen. Thx Laute
|
| In das Form CATIA V5 Programmierung wechseln |
