---

Hallo,

ich suche eine Variable, die es mir ermöglicht
die Summe der Plannummern innerhalb eines Plansatzes auszugeben.

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

---

Code:

---

' Written by Lee Ambrosius
' Date: 3/24/04

' Program is provided AS-IS with no expressed written warranty
' This example demonstrates a couple of the new SheetSet API and some of its
' many properties and methods

Option Explicit
Dim sheetSetMgr As IAcSmSheetSetMgr
Dim sheetdb As IAcSmDatabase

'' Lets count up Sheets and iterate through all open SheetSets
Public Sub SetSheetCount()
  Dim sheetCount As Integer
  Dim iterDb As IAcSmEnumDatabase
  Dim ItemDb As IAcSmPersist
 
  Set sheetSetMgr = New AcSmSheetSetMgr
 
  Set iterDb = sheetSetMgr.GetDatabaseEnumerator
  Set ItemDb = iterDb.Next
   
  Do While Not ItemDb Is Nothing
    Set sheetdb = ItemDb
 
    '' Lock Database
    LockDatabase
 
    On Error Resume Next
   
    Dim sheet As IAcSmSheet
    Dim iter As IAcSmEnumPersist
    Dim Item As IAcSmPersist
     
    Set iter = sheetdb.GetEnumerator
    Set Item = iter.Next
   
    Do While Not Item Is Nothing
      Set sheet = Item
       
      If Item.GetTypeName = "AcSmSheet" Then
        sheetCount = sheetCount + 1
      End If
   
      Set Item = iter.Next
    Loop
 
    '' Apply the Sheet Count as a custom property
    Dim cBag As IAcSmCustomPropertyBag
    Dim cBagVal As New AcSmCustomPropertyValue
 
    Set cBag = sheetdb.GetSheetSet().GetCustomPropertyBag
 
    cBagVal.InitNew cBag

    cBagVal.SetFlags CUSTOM_SHEETSET_PROP
    cBagVal.SetValue CStr(sheetCount)
 
    cBag.SetProperty "Total Sheets", cBagVal
   
    Set cBagVal = Nothing
   
    '' Unlock the database
    UnlockDatabase
   
    '' Clear and check for next SheetSet that is open
    sheetCount = 0
    Set ItemDb = iterDb.Next
  Loop
End Sub

'' Used to Lock the database back up (SheetSet)
Private Sub LockDatabase()
    On Error Resume Next
   
    Dim lockStatus As AcSmLockStatus
    Let lockStatus = sheetdb.GetLockStatus

    If lockStatus = AcSmLockStatus_UnLocked Then
      sheetdb.LockDb sheetdb
    End If
End Sub

'' Used to Unlock the database back up (SheetSet)
Private Sub UnlockDatabase()
    On Error Resume Next
   
    Dim lockStatus As AcSmLockStatus
    If lockStatus = AcSmLockStatus_Locked_Local Or AcSmLockStatus_Locked_Remote Then
      sheetdb.UnlockDb sheetdb
    End If
End Sub

---

------------------
MfG Proxy

Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt.

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

---

Vielen Dank für den Code, aber was bzw. wie binde ich Ihn ein.

Da bin ich ein völliger DAU.

Dank schon im voraus

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

---

Es wird über ein M-Text bzw. Attribut sichtbar gemacht. Es ist dann eine benutzerdefinierte Eigenschaft des Plansatzes.

------------------
MfG Proxy

Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt.

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

---

Danke habe ich verstanden, aber

diese Variable muss doch auf die Lisp-Routine zugreifen können, oder ?
8Wie kriege ich denn das hin ?

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

---

Benutzerdef. Plansatzeigenschaften haben NIX mit Lisp und Variablen gemeinsam.

------------------
MfG Proxy

Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt.

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

---

Verzeih meine Unkenntnis, aber jetzt bin ich überfordert.

Was mache ich jetzt mit dem Code, der gepostet worden ist,
und wofür brauche ich die "FIELDEVAL"

Wie kreige ich es hin, das es auch funktiniert,
denn bei mir sehe ich nur folgendes "#####"

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

---

1. Hast du einen Plansatz, und sogar eine Datei (Plan) aktiv geöffnet ?
2. Hast du Schreibrechte auf diesen Plansatz ?
3. Hast du diesen VBA-Code in die VBA-IDE [ALT+F11] eingegeben (Copy&Paste)
3. Hast du dieses 'Makro' ausgeführt ?
4. Hast du F1 gedrückt und geschaut was FIELDEVAL bedeutet

Variablentyp:  Ganzzahl
Gespeichert in:  Zeichnung
Ausgangswert:  31
Steuert, wie Felder aktualisiert werden. Der Wert wird als Bitcode gespeichert, der aus der Summe der folgenden Werte besteht:

0 Nicht aktualisiert
1 Aktualisiert beim Öffnen
2 Aktualisiert beim Speichern
4 Aktualisiert beim Plotten
8 Aktualisiert bei Verwendung von ETRANSMIT
16 Aktualisiert beim Regenerieren

5. Hast du nun in deinem Plansatz diese Eigenschaft mit der Anzahl der Pläne ?

------------------
MfG Proxy

Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt.

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

---

1. ja
2. ja
3. ja
4. ja
5. erst jetzt

zu 4. Fehler beim kompilieren !
Dim sheetSetMgr As IAcSmSheetSetMgr

Was habe ich falsch gemacht?

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

---

Zitat:

---

zu 4. Fehler beim kompilieren !
Dim sheetSetMgr As IAcSmSheetSetMgr

---

Bitte sag mal ganz genau wo diese Meldung, nach welchen Arbeitsschritten, bei dir vorkommt. 

------------------
MfG Proxy

Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt.

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

---

Zunächst muss ich erstmal sagen dass ich ACAD Map 2006 nutze.
(habe dass auch schon in den voreinstellungen korrigiert, wird aber nicht übernommen, warum auch immer)

1. Wie beschrieben habe ich den VBA - Editor geöffnet und paste©
den Code eingefügt.
2. Markro ausgeführt
3. Fehlermeldung erscheint:
Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert.

Mit Verweis auf die Zeile
Option Explicit
Dim sheetSetMgr As IAcSmSheetSetMgr
Dim sheetdb As IAcSmDatabase

das ist alles

[Diese Nachricht wurde von Eryk am 16. Aug. 2006 editiert.]

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

---

Hallo Eryk,

In der VBA-Ide unter Extras/Verweise den Haken beim Eintrag "AcSmComponents16 1.0 Type Library" setzen (Bei 2006, Bei 2007 ist es die "AcSmComponents17 1.0 Type Library").
Dann funktioniert es.

Gruß, Carsten

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

---

Super, hat funktioniert. Danke

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

---

Zitat:

---

Original erstellt von Proxy:
1. Hast du einen Plansatz, und sogar eine Datei (Plan) aktiv geöffnet ?
2. Hast du Schreibrechte auf diesen Plansatz ?
3. Hast du diesen VBA-Code in die VBA-IDE [ALT+F11] eingegeben (Copy&Paste)
3. Hast du dieses 'Makro' ausgeführt ?
4. Hast du F1 gedrückt und geschaut was FIELDEVAL bedeutet

[i]
Variablentyp:  Ganzzahl
Gespeichert in:  Zeichnung
Ausgangswert:  31
Steuert, wie Felder aktualisiert werden. Der Wert wird als Bitcode gespeichert, der aus der Summe der folgenden Werte besteht:

0 Nicht aktualisiert
1 Aktualisiert beim Öffnen
2 Aktualisiert beim Speichern
4 Aktualisiert beim Plotten
8 Aktualisiert bei Verwendung von ETRANSMIT
16 Aktualisiert beim Regenerieren

5. Hast du nun in deinem Plansatz diese Eigenschaft mit der Anzahl der Pläne ?

[/i]

---

Hierzu ein Tip:
Beim Drucken die Variable "FIELDEVAL" auf 2 stellen
(hab ich mal so gemacht)

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