|
CATIA V5 Programmierung : Skizzen ins NOSHOW legen?
JPR am 22.07.2003 um 08:21 Uhr (0)
Hallo Leute, also manchmal ist man schon schön blind auf allen Hühneraugen! ;-) Danke an ALLE für die Guten Lösungen! 10U4U Gruß ------------------ Gruß JPR ---------- [Ungebung: CATIA V5R8SP8 Smarteam 4.5]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SendKeys + Zusammenbauen
JanF am 21.07.2003 um 11:36 Uhr (0)
Moin! Ich möchte die Funktion Zusammenbauen (Partdesign - Boolsche Operationen) in einem VBA-Makro mittels SendKeys aufrufen, das funktioniert auch mit: AppActivate ( CATIA V5 ) SendKeys b:Zusammenbauen + Chr(13), True Mein Problem ist, das dieser Befehl in einer Dialogbox mit OK bestätigt werden muss. Ist es möglich, dies mit dem Makro zu automatisieren, oder gibt es eine Einstellung, dass das Makro so lange wartet bis der Anwender den Befehl mit OK bestätigt hat? Gruss Jan
|
| In das Form CATIA V5 Programmierung wechseln |
|
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 : Einzelnes Bauteil (un)sichtbar machen
Bruni am 24.07.2003 um 16:12 Uhr (0)
Folgende Vorgehensweise Bauteil über selection.search selektieren, notfalls mit dem Makroeditor aufzeichen( Aufzeichnung starten... dann ... unter Bearbeiten/Suchen Filter so einstellen, dass das entsprechende Bauteil selektiert wird) dann über: selction.VisProperties.SetShow catVisPropertyShowAttr oder selction.VisProperties.SetShow catVisPropertyNoShowAttr die Sichtbarkeit einschalten bzw. ausschalten Dieses Beispiel würde einen Kreis (Name: HKreis) sichtbar machen Dim partDocument1 As Document Set pa ...
|
| 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 |
