---

Anzeigemodus-Analyse.JPG

Hallo,

möchte gerne von einer Drawing per Makro ein Pdf erzeugen.
Dafür müßte ich vorher den Anzeigemodus "Analyse" deaktivieren,
und danach wieder aktivieren.
Habe allerdings keinen Plan, wie das mit nem Makro schaffe!?!

Code:

---

Dim DrwDocument As DrawingDocument
Set DrwDocument = CATIA.ActiveDocument

  'Anzeigemodus Analyse deaktivieren

  DrwDocument.ExportData "C:\Temp\Drawing.pdf","pdf"

  'Anzeigemodus Analyse aktivieren

---

Hat jemand einen Tip?

Gruß
Bertel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

OK,
das scheint wohl nicht möglich zu sein - wobei eine Anwort wie: "Geht nicht"
auch schon hilfreich gewesen wäre.

Gibt es vielleicht noch andere Möglichkeiten, um ein monochromes Pdf zu erzeugen?

Gruß
Bertel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus Bertel

Zu deiner ursprünglichen Frage:
-> geht wahrscheinlich nur mit einem Start-Command, das Status lässt sih allerdings nicht auslesen

Code:

---

CATIA.StartCommand ("Analyse-Anzeigemodus")

---

Zu monochromen PDF: geht wahrscheinlich nur über einen PDF-Drucker (bzw auch PostScript), wird aber per Makro etwas aufwändiger.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Zum zweiten frage in CATScript

Sub CATMain()
Dim HSOSynchronizedFilter(0)

Dim Chaine As String
Chaine = ".,all"
Dim MySelection

Dim MyDraw As Document
Set MyDraw = CATIA.ActiveDocument
Set MySelection = MyDraw.Selection
HSOSynchronizedFilter(0) = "SetCATIADotHSOSynchronizedToFalse"

MySelection.Clear
MySelection.Search Chaine
MySelection.VisProperties.SetRealColor 0, 0, 0, 1  ''all goes black
MySelection.Clear

HSOSynchronizedFilter(0) = "SetCATIADotHSOSynchronizedToTrue"

MyDraw.ExportData "C:\temp\" & "\" & Left(CATIA.ActiveDocument.Name, Len(CATIA.ActiveDocument.Name) - 11), "pdf"

CATIA.StartCommand "Undo"
CATIA.StartCommand "Undo"
CATIA.StartCommand "Undo"

End Sub

------------------
Best regards
Fernando

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Fernando,

danke für das Makro.

Zwei Probleme:
1. Das nudelt gefühlte 10 Minuten über meine Beispielzeichnung (6086 Elemente in der Selektion).
2. Das gespeicherte Pdf hat die farbigen Maße leider immer noch drin.

D.h. die aktive Bemaßungsanalyse kann man damit nicht "überlisten".

Gruß
Bertel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

2014-03-0121_18_21-DirectXDiagnosticTool.png

Hallo,

Auf meinem Laptop (siehe Bild im Anhang) 3 Minuten für 14.000 ausgewählte Elemente.

Ein video hier https://db.tt/HFlOwdVR

------------------
Best regards
Fernando

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus Fernando
Leider bringt das selektieren und umfärben der Bemaßung nichts, da die Bemessungsanalyse unabhängig von der Farbe des Elements ist (ist nicht eine Eigenschaft des Elements)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus,

Sie haben Recht, es war nur ein weiterer Weg um ein monochromes Pdf zu erzeugen.

------------------
Best regards
Fernando

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

http://www.goermezer.de/content/view/410

hoffe es hilft (kann es zur zeit nicht testen)

------------------
Sei Schlau bleib Dumm !!?!!

[Diese Nachricht wurde von K.Siebert am 02. Mrz. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo K.Siebert,

das funktioniert!
Danke.

Leider ist der Weg etwas langwierig.

1. Postscript aus CATIA mit sichern unter..
2. Postscript manipulieren mit PS_level2_color_mod.exe Input.ps Output.ps 0 0 0 (rgb für schwarz).
3. Pdf aus Postscript erzeugen mit FreePdf (PS nach PDF Konverter).

Ich glaube nicht, daß ich unsere User dafür begeistern kann.
Die sind gewohnt, daß alles auf Knopfdruck geht.

Gruß
Bertel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Dafür ist der weg leider zu umständlich.
Der PDF Creator ( http://de.pdf24.org/faq/format-a2-a1-a0.html ) sollte Din4-0 drucken können.
Wenn Mann jetzt in Catia Druckmenü unter Optionen Monochrom einstellt sollten die PDF’s schwarz sein.
Vielleicht ist bei diesem weg die Begeisterung ein wenig größer.

------------------
Sei Schlau bleib Dumm !!?!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo K.Siebert,

leider dürfen wir nur Software benutzen, die konzernweit freigegeben ist - PDF Creator gehört nicht dazu.

Allerdings habe ich inzwischen mit einem geeigneten Treiber auch FreePDF dazu gebracht bis Format A0 zu drucken.

Insofern hat sich das Problem erledigt.

@ bgrittmann  CATIA.StartCommand ("Analyse-Anzeigemodus") - da tut sich garnix.

Gruß
Bertel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

ich habe weil ichs auch gerade gesucht habe in einem französischsprachigem Forum eine Lösung zum Umschalten des Anzeige-Analyse-Modus per code gefunden :-)

hier der Link: http://catiav5.forumactif.org/t912-enregistrer-sous-pdf-noir-et-blanc

und die interessanten Zeilen hierzu:

' déclaration des variables
Dim settingControllers1 As SettingControllers
Dim settingRepository1 As SettingRepository
Dim boolean61 As Boolean

'chargement des variables
Set settingControllers1 = CATIA.SettingControllers
Set settingRepository1 = settingControllers1.Item("DraftingOptions")

'on récupère l'état du mode analyse dans la variable "boolean61"
boolean61 = settingRepository1.GetAttr("DimDesignMode")

' si "boolean61" = true on le passe à false et inversement
If boolean61 Then
settingRepository1.PutAttr "DimDesignMode", False
Else
settingRepository1.PutAttr "DimDesignMode", True
End If
' on affiche l'état du mode d'analyse
MsgBox settingRepository1.GetAttr("DimDesignMode")

'on enregistre les paramètres en mémoire pour les appliquer à la session en cours
settingRepository1.Commit

___
Es erlaubt die jeweilige Umschaltung von aktiv auf inaktiv. Wer immer inaktiv braucht muss ja nur ab "Else" zwei Zeilen rauskommentieren

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

leider bekomme ich einen Fehler: "Das Verfahren Item ist fehlgeschlagen".
Mit GetItem ebenfalls.

Gruß
Bertel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich verbaue das in einem CATScript

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

ich auch:

Code:

---

Sub CATMain()

Dim settingControllers1 As SettingControllers
Dim settingRepository1 As SettingRepository
Dim boolean61 As Boolean

'chargement des variables
Set settingControllers1 = CATIA.SettingControllers
Set settingRepository1 = settingControllers1.Item("DraftingOptions")

'on récupère l'état du mode analyse dans la variable "boolean61"
boolean61 = settingRepository1.GetAttr("DimDesignMode")

' si "boolean61" = true on le passe à false et inversement
If boolean61 Then
settingRepository1.PutAttr "DimDesignMode", False
Else
settingRepository1.PutAttr "DimDesignMode", True
End If
' on affiche l'état du mode d'analyse
MsgBox settingRepository1.GetAttr("DimDesignMode")

'on enregistre les paramètres en mémoire pour les appliquer à la session en cours
settingRepository1.Commit

End Sub

---

Leider bekomme ich einen Fehler: "Das Verfahren Item ist fehlgeschlagen".
Habs in R18 und R19 probiert.

Gruß
Bertel

[Diese Nachricht wurde von Bertel am 25. Jun. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hmmm, bei meiner R21 funktionierts ohne Probleme und schält immer genau in den anderen Modus um, als ob man den Schalter drücken bzw. das Icon selektieren würde.
Vlt kannst du dir die Seite der Einstellungen als CatScript ausgeben (der Button gleich knapp links neben deiner roten Markierung im Bild) und im ausgegebenen Code nachschauen ob das Item evtl. anders bezeichnet ist in der R19. Ich habe leider keine R19 mehr zur Verfügung ums zu testen.

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

[Diese Nachricht wurde von tberger am 25. Jun. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

in R22 Ford tut es auch.
Da funktioniert auch die Ausgabe der Einstellungen nach catvbs.

In R18 und R19 leider Fehlanzeige!

Danke für deine Hilfe.

Gruß
Bertel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP