---

Hallo Forum,

mithilfe eines Forums habe ich ein Programm zusammen kopiert, dass Benutzerspezifische Eigenschaften einträgt.
Die sollen wiederum als Schriftfeld im Layout angezeigt werden.

Ich entwickle auf einem 32bit/AutoCAD2012 Rechner auf dem mein Code ohne Probleme funktioniert.
Der Code wird auf einem 64bit/AutoCAD2012-Rechner zur Anwendung gebracht, hier funktioniert er nicht.

Als Fehler wird der erste Eintrag "acActiveViewport" markiert und mit der Fehlermeldung "Projekt oder Bibliothek nicht gefunden" kommentiert.

Hat jemand eine Idee was fehlen könnte?

Anbei mein Code:

Option Explicit

Sub EBL_PROJEKT()
  Dim key As String
  key = "EBL_PROJEKT"
  Dim custvalue As String
  Dim oSumm As Variant
  Set oSumm = Thisdrawing.SummaryInfo
  On Error Resume Next
  oSumm.GetCustomByKey key, custvalue
  On Error GoTo 0

  If custvalue = "" Then
    custvalue = InputBox("Projektnummer angeben", "Projekt bezeichnen")
    oSumm.AddCustomInfo key, custvalue
    Thisdrawing.Regen acActiveViewport
  Else
    If MsgBox("Soll der Projektname " & custvalue & " geändert werden?", vbYesNo, "Frage") = vbYes Then
      custvalue = InputBox("Projektnummer angeben", "Projekt bezeichnen")
      oSumm.SetCustomByKey key, custvalue
      Thisdrawing.Regen acActiveViewport
    Else
      MsgBox "Der Projektname  " & custvalue & " bleibt"
    End If
  End If
End Sub

Schöne Grüße Björn

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

---

Hallo Björn,

hast du schon mal die Verweise geprüft.
Dort sollte auf dem 64 Bit Rechner eine Meldung kommen.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Hallo Wilfried,

danke für Deinen Tipp.
Ja, Du hast Recht, nach dem Update der Verweise funktioniert es wieder.

Gruß Björn

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