|
CATIA V5 Programmierung : Skizzen ins NOSHOW legen?
JPR am 21.07.2003 um 07:47 Uhr (0)
Hallo Dieter, eigentlich hatte ich mein Script auch so aufgebaut wie du es mir dann als Antwort gegeben hattest. Nur hatte die Zeile mit der Reference in meinem Script gefehlt. Deshalb lief es auch nicht! Jetzt hatte ich mich nur gefragt wieso ich nicht direkt das Skizzenobjekt ins NOSHOW legen kann, sondern über eine Reference die Sache lösen muss. Jetzt funkt es, wie gesagt, echt gut. ------------------ Gruß JPR ---------- [Ungebung: CATIA V5R8SP8 Smarteam 4.5]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Skizzen ins NOSHOW legen?
Steffen Hohmann am 21.07.2003 um 12:05 Uhr (0)
Hallo JPR, Über die Search-Methode sind doch schon alle Skizzen ausgewählt. Jetzt braucht man doch nur noch über die VisProperties die ausgewählten Skizzen ins NoShow schieben. Der folgende 3-Zeiler ist ausreichend. CATIA.ActiveDocument.Selection.Clear CATIA.ActiveDocument.Selection.Search CATGmoSearch.Sketch,all CATIA.ActiveDocument.Selection.VisProperties.SetShow catVisPropertyNoShowAttr Fertig!! Gruss Steffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
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 |
