---

Hallo Leute ich habe folgendes vor wenn dies möglich ist!
Wie kann ich nen Block über die Grips strecken?

Dh Ich stelle mir dies über die Streckung der Faktoren vor (x,y)

Wie kann man Grip Bearbeitungen abfangen ist dies überhaupt möglich?
Welcher Grip wurde angeklickt bzw wohin wurde als 2tes geklickt usw

Oder weiß jemand wie man das sonst realisieren kann?

Mfg Chris

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

---

Etwas Rätselhaft dein Posting.

Da Du im VBA-Forum postest, nehme ich mal an, dass Du über VBA Blöcke strecken möchtest. Dazu gibts ja die Eigenschaften xScaleFactor, YScaleFactor und ZScaleFactor bei einem IAcadBlockreference.

Was VBA mit Griffen zu tun hat ? Meiner Meinung nach nichts.
Und seit wann kann man Blöcke überhaupt mittels Griffe strecken?

Erklär mal etwas genauer,w as Du überhaupt vorhast.

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

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

Ich denke mal daß ich schon genau geschrieben habe was ich möchte nen Block faktorisieren mittels der Gripp Funktionen
Theoretisch würde Autocad ja den Block nur schieben und ich möchte diesen zb Schieben und durch die Eingegebenen Punkte eben neu skalieren.
Nur dafür benötige ich den angeklickten Grip Punkt und den letzten Punkt
Ich glaube den letzten Punkt  bekommt man ja über ne Systemvariable.
Nur den Grip-Punkt selbst??

Vorausgesetzt ist natürlich das Griffe in Blöcken eingeschalten sind!
Mfg Chris

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

---

Zitat:

---

Original erstellt von fuchsi:
Etwas Rätselhaft dein Posting.

Da Du im VBA-Forum postest, nehme ich mal an, dass Du über VBA Blöcke strecken möchtest. Dazu gibts ja die Eigenschaften xScaleFactor, YScaleFactor und ZScaleFactor bei einem IAcadBlockreference.

Erklär mal etwas genauer,w as Du überhaupt vorhast.

---

Hallo,

ich klinge mich mal einfach ein!

@fuchsi:

Ich möchte z.B.: einen Rahmen (Block) einfügen, wo ich die Koordinaten (XScaleFaktor, YScaleFaktor) selbst bestimmen kann. Hast Du ein Beispiel dafür?
Danke!

Gruß

Markus

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

---

Klar hier ein Beispiel wie man Blöcke erstellt mit Attributen+
Einfügen dessen im Modelspace!

Sub Blockeinfügen()
'Programmiert von Ing. Schojer Christian

Call GenerateBlock11("PIXEL")
Dim Insertionpnt(0 To 2) As Double, fx, fy, fz, str, BlockRefObj
fx = 1
fy = 0.5
fz = 1
str = "PIXEL"
    Insertionpnt(0) = 0
    Insertionpnt(1) = 0
    Insertionpnt(2) = 0
    Set BlockRefObj = ThisDrawing.Modelspace.InsertBlock(Insertionpnt, str, fx, fy, fz, 0)
    varAttributes = BlockRefObj.GetAttributes
    varAttributes(0).Textstring = "Hallo"

End Sub
Sub GenerateBlock11(Blockname)
'Programmiert von Ing. Schojer Christian
    ' Definieren des Blocks
    Dim blockObj As AcadBlock
    'Definition für die attribute
    Dim attributeObj As AcadAttribute
    Dim Height As Double
    Dim mode As Long
    Dim prompt As String
    Dim insertionpoint(0 To 2) As Double
    Dim tag As String
    Dim value As String
'ende def für attribute
    Dim Insertionpnt(0 To 2) As Double
    Dim circleObj As AcadCircle
    Dim LineObj As AcadLine
    Dim center(0 To 2) As Double
    Dim radius As Double
    Dim Startp(0 To 2) As Double
    Dim Endp(0 To 2) As Double
    Dim Faktor, str, Status
    str = Blockname '"PIXEL" "PUNKT-NEU" oder "PUNKT"
    Faktor = 1
   
    Height = 0.4 * Faktor
    mode = acAttributeModeVerify
    prompt = str & "-Nummer"
    insertionpoint(0) = 0: insertionpoint(1) = 0: insertionpoint(2) = 0
    tag = str '"PIXEL"
    value = ""
    Insertionpnt(0) = 0
    Insertionpnt(1) = 0
    Insertionpnt(2) = 0
    ' Hinzufügen eines Kreises zum Block
    center(0) = 0
    center(1) = 0
    center(2) = 0
    radius = 0.1 * Faktor
   
   
    'ThisDrawing.Blocks.Delete Str
    Set blockObj = ThisDrawing.Blocks.Add _
                    (Insertionpnt, str)
   
    If str = "PIXEL" Then
            Startp(0) = -0.2 * Faktor
            Startp(1) = 0
            Startp(2) = 0
            Endp(0) = 0.2 * Faktor
            Endp(1) = 0
            Endp(2) = 0
        Set LineObj = blockObj.AddLine(Startp, Endp)
            Startp(0) = 0
            Startp(1) = -0.2 * Faktor
            Startp(2) = 0
            Endp(0) = 0
            Endp(1) = 0.2 * Faktor
            Endp(2) = 0
        Set LineObj = blockObj.AddLine(Startp, Endp)
    End If
       
    Set circleObj = blockObj.AddCircle(center, radius)
    Set attributeObj = blockObj.AddAttribute(Height, mode, prompt, insertionpoint, tag, value)
End Sub

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