---

Hallo liebes Forum,
in der Suche habe ich leider nichts zu diesem Thema speziell finden können, deshalb wende ich mich direkt an Euch:
Wir haben in unserem Haus dynamische Blöcke erstellt und in Zeichnungen eingefügt, was auch alles kein Problem war. Nun tritt das Phänomen auf, dass diese dynamischen Blöcke plötzlich zu unbenannten Blöcken geworden sind.
Kennt jemand von Euch dieses Phänomen und kann mir vielleicht sagen, was da passiert sein könnte?
Vielen Dank für Eure Hilfe und liebe Grüße
Daniela

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

---

Hallo,

dieses Problem ist bekannt. Es tritt dann (nachvollziehbar)auf, wenn du einen dynamischen Block in einen "normalen Block" einfügst, dann den normalen Block spiegelst und anschließend den Block auflöst. Der ehemals dynamische Block in dem normalen Block ist dann ein unbenannter Block...wieso auch immer...

hoffe das hilft...

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

---

Servus

Bei mir verschwindet die Dynamik wenn die Koordinaten sehr hoch und die dyn. Blöcke drehe.
Die skalierung der Blöcke ist dann anscheinend nicht mehr 1000‰ 0.01,0.01,0.01
Wieder auf 0.01,0.01,0.01 gesetzt ist er wieder Dynamisch.

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord

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

---

Hallo,

zu den dynamischen Blöcken einmal etwas Grundlegendes:
Blöcke sind in AutoCAD statische Elemente. Das hat sich auch mit der Einführung der dyn. Blöcke nicht geändert.

Ändert man die eine der dynamischen Eigenschaften der Blockreferenz (also des eingefügten Blocks), dann wird unmerklich eine neue Blockdefinition erzeugt, welche eben die Änderung der dynamischen Eigenschaften statisch beinhaltet.
Diese neu erzeugte Blockdefinition brauch natürlich einen Namen. Der wird automatisch seitens AutoCAD vergeben: ein unbenannter Block.
Um nun aber dieses interne Vorgehen nach außen 'geheim' zu halten, ist mit der Einführung des dynamischen Blockes, eine zusätzliche Eigenschaft für die Blöcke eingeführt worden: der OriginalBlockname. Dieser wird auch im Eigenschaftsfenster angezeigt.

Fazit: Das Verhalten ist absolut logisch und entspricht der seit Jahren festgelegten Struktur.

Möchte man nun mit den dyn. Blockreferenzen weiter arbeiten, ohne dass man mit den unbenannten Namen hantieren muss, gibt es derzeit mit Bordmitteln keine Möglichkeit.
Abhilfe ist jedoch (infolge der Kenntnis der internen Zusammenhänge)mit einer Programmierung möglich.

Das Thema war schon öfter im Forum, zum Beispiel hier

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Guten Morgen zusammen,
erst einmal vielen lieben Dank für die schnellen Antworten und Hilfestellungen. Da ich jetzt dank Holger erfahren habe, wie diese undefinierten Blöcke überhaupt grundsätzlich entstehen, kann ich unser Problem hoffentlich beheben.
Danke nochmal und liebe Grüße
Daniela

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

---

Anbei ein kurzer VBA-Code der dir vielleicht weiter hilft. Eventuell gibt es ja einen Lispler der einen ähnlichen Code zur Verfügung stellt 

Code:

---

' Gleicht für dynamische Blöcke die Skalierfaktoren an
' Feletic 07.12.2006
Public Sub DynBlockScaleAdjust()
    Dim obj As IAcadBlockReference
    Dim SS As AcadSelectionSet
    Dim FltTypes(0) As Integer
    Dim FltData(0) As Variant
    Dim BlockObj As AcadBlock
 
    Set SS = CreateSelectionSet("DynBlockScaleAdjustAuswahl")
    FltTypes(0) = 0: FltData(0) = "INSERT"
   
    SS.SelectOnScreen FltTypes, FltData
   
    If SS.count = 0 Then GoTo Exit_Here
    For Each obj In SS
        Set BlockObj = ThisDrawing.Blocks.Item(obj.EffectiveName)
        If BlockObj.IsDynamicBlock Or BlockObj.BlockScaling = acUniform Then
            On Error Resume Next
            If obj.XEffectiveScaleFactor <> obj.ZEffectiveScaleFactor Then obj.XEffectiveScaleFactor = obj.ZEffectiveScaleFactor
            If obj.YEffectiveScaleFactor <> obj.ZEffectiveScaleFactor Then obj.YEffectiveScaleFactor = obj.ZEffectiveScaleFactor
        End If
    Next obj
   
Exit_Here:
    SS.Delete
   
End Sub

---

------------------
Roland Feletic
PAUSER ZT-GMBH

Acad 2009-deutsch Update 2, Express Tools, Bonus Pack 2
3ds Max 2009 - SP1
WinXP-Professional
HP Workstation xw4400, 3GB
Quadro FX1500

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

---

also, wenn ein Lispler so einen Code zufällig schon hat ...  ich wäre sehr dankbar.
liebe grüße
daniela

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