---

moin !

ich bearbeite das plotten-objekt und bekommen an nachfolgend gekennzeichneter stelle (<====) eine fehlermeldung, dass die eingabe ungültig sei. mir scheint die eingabe allerdings logsich. fällt einem von euch etwas auf ???

Gruß Jan :-)

code:
-----
Dim strNewPlotStyle As String
Dim objLayout As AcadLayout

On Error GoTo Err_cbo_plotstyle_Change

Set objLayout = ThisDrawing.ActiveLayout

With cbo_plotstyle
strNewPlotStyle = .List(.ListIndex)
End With

With objLayout

If UCase(strNewPlotStyle) <> "KEINE" Then
  .StyleSheet = strNewPlotStyle <==== hier wird der fehler verursacht
Else '----- kein Plotstil
  .StyleSheet = ""
End If
End With

Debug.Print "strNewPlotStyle="
Debug.Print strNewPlotStyle

Exit_cbo_plotstyle_Change:

On Error Resume Next
Exit Sub

Err_cbo_plotstyle_Change:

Debug.Print "strNewPlotStyle:" & strNewPlotStyle
Debug.Print Err.Description
Debug.Print Err.Source
Debug.Print Err.Number

GoTo Exit_cbo_plotstyle_Change

... und debug.print gibt folgende werte aus:
strNewPlotStyle:monochrome.stb
Ungültige Eingabe
AutoCAD.Application
-2145386493

------------------
jan :-)

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

---

sorry - ich hatte nicht wieder in die betreff-zeile geschaut und so vergessen etwas dorthin zu kopieren.

probleme mit .... dem layout-objekt - soll es heißen.

gruß Jan :-)

------------------
jan :-)

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

---

was steht in der Variable strNewPlotStyle drin (schaut aus, wie wenn sie aus einer Listbox gefüllt wird)

Ich habs mal so probiert

Set objLayout = ThisDrawing.ActiveLayout
objLayout.StyleSheet = "monochrome.ctb" ' für mocochrome.ctb
objLayout.StyleSheet = "" ' für Keine CTB

die variable die du als Stylesheet übergibst, muss es natürlich als CTB-Datei auch geben.

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

[Diese Nachricht wurde von fuchsi am 10. Okt. 2005 editiert.]

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

---

hallo anton,

was meinst du mit "die variable die du als Stylesheet übergibst, muss es natürlich als CTB-Datei auch geben."

wenn meinplotstil.ctb, dann muss es den auch als meinplotstil.stb geben ???

wenn ja, was würdest du machen, wenn keine CTB gibt !?!?!?!?

gruß Jan :-)

------------------
jan :-)

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

---

ich meinte damit, dass es den Inhalt der variable auch tatsächlich als Stylesheet (stb oder ctb) gibt.

Set objLayout = ThisDrawing.ActiveLayout
objLayout.StyleSheet = "monochrome.ctb" ' funktioniert
objLayout.StyleSheet = "IrgendEinString.ctb" ' funktioniert nicht, sondern führt genau zu deinem beschriebenen Fehler, weil es die Datei IrgendEinString.ctb nicht als Stylesheet zum Auswählen gibt.

wenn du es manuell im PLOT-Dialog nicht auswählen kannst,kannst es auch per VBA nicht zuweisen.

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

hallo anton,

dann muss da ja ein richtiger denkfehler bei mir vorliegen - das werde ich morgen früh in "geistiger" frische mal durchdenken.

bis dahin - schönen feierabend !

gruß Jan :-)

------------------
jan :-)

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

---

wie gesagt, du kannst nur Plotstile zuweisen, die du auch manuell im Plotdialog zuweisen kannst.

Ein denkbarere fehler wäre noch, dass die zeichnung mit benannten Plotstilen (STB) arbeitet, du aber farbabhängige (CTB) zuweisen möchtest (oder umgekehrt). Das geht natürlich auch nicht.

Am einfachtsen mal tseten, welche Plotstile du manuell im Plotdialog zuweisen kannst.

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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