---

Hallo,

gibt es in der Com-Schnittstelle eine Methode für den Zugriff auf Konfigurationen von Ebenen (*.vis[Ansicht/Ebenen/Konfiguration laden])?

------------------
Es grüsst
Rolf K.

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

---

Hallo Rolf,

schau mal in der Hilfe nach "GetLevels".
Die sieben Arrays entsprechen warscheinlich den 7 Spalten im Ebenen-Dialog.
Steht komischerweise unter Jobinterface -> File IO.
Ich hatte es eher unter
Jobinterface -> Global Default Settings -> Global Project Graphic Visibility Settings
erwartet.

------------------
Gruß Uwe

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

---

Hallo Uwe,

danke für die Information. Werde mir das mal anschauen.

------------------
Es grüsst
Rolf K.

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

---

Hallo Rolf,
das Auslesen klappt jedenfalls:

Code:

---

Set objE3 = CreateObject("CT.Application")
Set objPrj = objE3.CreateJobObject

Dim ebenen
'===
'Status der Ebenen ausgeben
'===
'Überschrift
objE3.PutMessage "Ebene" & vbTAB & "Sym" & vbTAB & "SymGr" & vbTAB & "SymTx" & vbTAB _
& "kTx" & vbTAB & "Graf"  & vbTAB & "Text"  & vbTAB & "Verbind"
objE3.PutMessage "-------------------------------------------------"

'Werte holen
objPrj.GetLevels symarr, sgraarr, stxtarr, semtarr, graarr, txtarr, cxarr

'die ersten 10 Ebenen ausgeben
For i = 1 To 10
  ebenen = i & ":" & vbTAB  & symarr(i) & vbTAB & sgraarr(i) & vbTAB & stxtarr(i) _
& vbTAB & semtarr(i) & vbTAB & graarr(i) & vbTAB & txtarr(i) & vbTAB & cxarr(i)
   
  objE3.PutMessage ebenen
Next

wscript.quit

---

------------------
Gruß Uwe

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

---

Hallo Uwe,

vielen Dank für deine Mühe. Den Script habe ich gleich erfolgreich getestet.

------------------
Es grüsst
Rolf K.

   

[Diese Nachricht wurde von Rolf K. am 03. Dez. 2007 editiert.]

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

---

Hallo Uwe,

ich vermute, dass ich über "LoadLevelConfiguration file" [Ebenen/Konfiguration laden] mein Script aufbauen muss. Diese Konfigurationen(*.vis) habe ich schon.

------------------
Es grüsst
Rolf K.

   

[Diese Nachricht wurde von Rolf K. am 03. Dez. 2007 editiert.]

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

---

Ja, das klappt. Hab's mal ausprobiert:

Code:

---

Set objE3 = CreateObject("CT.Application")
Set objPrj = objE3.CreateJobObject

objPrj.LoadLevelConfiguration "TEST.vis"

wscript.quit

---

------------------
Gruß Uwe

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

---

Hallo Rolf,
da hast Du ein gutes Thema angeschnitten.
Ich habe die Ebenen eher weniger benutzt, da sie über die Zahlen schwer zu händeln sind. Aber mit Scripten eröffnen sich ja Möglichkeiten...

------------------
Gruß Uwe

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

---

Hallo Uwe,

nochmal Danke. Du nimmst mir die ganze Arbeit ab.   

   

------------------
Es grüsst
Rolf K.

   

[Diese Nachricht wurde von Rolf K. am 10. Dez. 2007 editiert.]

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