---

Hallo,

ich möchte ein Objekt (Polyline) skalieren, aber mit unterschiedlichen Werten für x-Achse und y-Achse.
Transformby Rotationsmatrix (non-uniformally error) funktioniert ja leider nicht. (Warum eigentlich?)
Die Lisp-Funktion unter http://www.cadalot.co.uk/acad/down_load/xscale.zip
scheint noch niemand für VBA programmiert zu haben - leider...
Oder kann man die eventuell per SendCommand nutzen?

Und nun zur wahrscheinlich letzten Möglichkeit - Dehnen /Skalieren mittels Blöcken.
XScaleFactor - ist es damit möglich ein Objekt zu skalieren?

Kann mir bitte jemand beispielcode schreiben, denn mit dem unten eigenfügten Code aus der Hilfe komme ich nicht klar. Nach Änderung der Skalierung sieht das Objekt unverändert aus.

Sub Example_XScaleFactor()
    ' This example creates a block containing a circle.
    ' It then inserts the block and changes the XScaleFactor.
   
    ' Create the block
    Dim blockObj As AcadBlock
    Dim insertionPnt(0 To 2) As Double
    insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
    Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "CircleBlock")
   
    ' Add a circle to the block
    Dim circleObj As AcadCircle
    Dim center(0 To 2) As Double
    Dim radius As Double
    center(0) = 0: center(1) = 0: center(2) = 0
    radius = 1
    Set circleObj = blockObj.AddCircle(center, radius)
 
    ' Insert the block
    Dim blockRefObj As AcadBlockReference
    insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
    Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "CircleBlock", 1#, 1#, 1#, 0)
   
    ' Find the current XScaleFactor for the block reference
    Dim currXScaleFactor As Double
    currXScaleFactor = blockRefObj.XScaleFactor
    ZoomAll
    MsgBox "The current XScaleFactor for the block reference is " & blockRefObj.XScaleFactor, , "XScaleFactor Example"
   
    ' Change the XScaleFactor for the block reference
    blockRefObj.XScaleFactor = currXScaleFactor + 2
    ZoomAll
    MsgBox "The new XScaleFactor for the block reference is " & blockRefObj.XScaleFactor, , "XScaleFactor Example"
   
End Sub

Vielen Dank im Vorraus für schnelle Hilfe.

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

---

Hallo 0modem,

Willkommen im Forum bei CAD.DE !           
Vier wichtige Links für den problemlosen Einstieg:
Richtig Fragen - Nettiquette - Suchfunktion - System-Info

bei mir (getestet mit AutoCAD 2007) sieht das Ergebnis der Beispielroutine wie erwartet aus: Erst ein Kreis, dann eine Ellipse.

P.S.: Fülle doch bitte deine Sys-info (wie im obigen Link beschrieben) aus, damit man weiß, welche AutoCAD Version du einsetzt.

------------------
Mit freundlichem Gruß

Udo Hübner

[Diese Nachricht wurde von CAD-Huebner am 15. Jul. 2007 editiert.]

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