---

Hallo zusammen,

wie kann ich den skalierfaktor (x oder y ist eigendlich egal) eines bekannten Blockes auslesen?

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

cu
Heiko

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

---

Hallo Heiko.

Nur den Namen des Blocks zu kennen reicht nicht aus, da mehrere Blöcke dieses Namens in einer Zeichnung existieren und unterschiedliche Skalierfaktoren haben können. Den Skalierfaktor bekommst du über die BlockReference und den Block mußt du auf dem Bildschirm auswählen.
Versuche mal diese Zeilen. Du mußt evtl. ThisDrawing änderen, damit es bei dir läuft.

  Dim Objekt As Object, Punkt(2) As Double
  Dim BlockRef As AcadBlockReference
  Dim XScale As Double, YScale As Double
 
  ThisDrawing.Utility.GetEntity Objekt, Punkt, "Block wählen..."
 
  If Objekt.EntityType = acBlockReference Then
    Set BlockRef = Objekt
    XScale = BlockRef.XScaleFactor
    YScale = BlockRef.YScaleFactor
  End If

VG Tomi

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