---

Hallo Forum !
Wahrscheinlich eine Kleinigkeit:
Bei Festlegung der aktuellen Liniendicke mittels
        Application.SetSystemVariable("CELWEIGHT", -1)
für "VonLayer" kommt ständig die Fehlermeldung "eInvalidInput"
Dasselbe funktioniert für eine beliebige, fixe Liniendicke zB.:0.25
        Application.SetSystemVariable("CELWEIGHT", 25)
ohne Probleme !

Grüße Peter

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

---

Hi,

zwei Ansätze hätte ich für Dich:

a) das Document ist nicht gelockt ==> dann darf, wenn Dein Code nicht in einem exklusiven Befehl läuft, die DB auch nicht geändert werden.
b) der zu übergebende Wert ist ein Int16-Wert, wenn Du nur '-1' angibst, wird das aber als Integer interpretiert.

Code dazu (samt Alternative):

Code:

---

Dim tDoc As ApplicationServices.Document = Nothing
Dim tDocLock As ApplicationServices.DocumentLock = Nothing
Try
  tDoc = ApplicationServices.Application.DocumentManager.MdiActiveDocument
  tDocLock = tDoc.LockDocument

  'hier Deine Variante mit Konvertiertung auf INT16
  ApplicationServices.Application.SetSystemVariable("CELWEIGHT", CType(-1, Int16))

  'und eine überhaupt ganz andere Variante
  tDoc.Database.Celweight = DatabaseServices.LineWeight.ByLayer

Catch ex As Exception
  Call MsgBox("Fehler aufgetreten" & vbNewLine & ex.Message)
Finally
  If tDocLock IsNot Nothing Then
    tDocLock.Dispose()
    tDocLock = Nothing
  End If
End Try

---

- alfred -

------------------
www.hollaus.at

---

Hallo Alfred !
Die Antwort traf wie immer den Nagel auf den Kopf !
Ein Dankeschön von
      Peter

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