---

Ich habe das VBNetTCTool im SDK-Beispielordner ausprobiert und konnte es so erweitern, daß ich Polygone anlegen kann, z.B. farbig ausgefüllte Rechtecke mit dieser Funktion:

Code:

---

    Private Sub createRect(ByVal x As Double, ByVal y As Double, ByVal z As Double, ByVal ux As Double, ByVal uy As Double, ByVal uz As Double, ByVal vx As Double, ByVal vy As Double, ByVal vz As Double, ByVal color As Long)
        Dim cs(11) As Double
        cs(0) = x
        cs(1) = y
        cs(2) = z
        cs(3) = x + ux
        cs(4) = y + uy
        cs(5) = z + uz
        cs(6) = x + ux + vx
        cs(7) = y + uy + vy
        cs(8) = z + uz + vz
        cs(9) = x + vx
        cs(10) = y + vy
        cs(11) = z + vz
        Dim rect As IGraphic = graphics.AddPolylines(1, CObj(cs), True).Item(0)
        rect.Properties("BrushStyle").Value = "Einfarbig"
        rect.Properties("BrushColor").Value = color
        rect.Properties("PenStyle").Value = "$INVISIBLE"
        rect.Layer = layer
        urec.AddGraphic(rect)
    End Sub

---

Wie kann ich aber eine Bitmap per Programm erzeugen und einfügen, also so, wie wenn man "Einfügen->Bild->aus Datei" wählt und danach dann ein Polygon erstellt, was dann automatisch das Bild als Füllung hat?

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

---

@frankbuss
Der Beitrag gehört eigentlich nicht hierher, sondern unter http://www.cad.de/cgi-bin/ubb/forumdisplay.cgi?action=topics&forum=TurboCAD+SDK/VBA&number=229.

Probier mal mit dem Makrorecorder Deine Befehlsfolge aufzeichnen zu lassen. Vielleicht ergeben sich damit schon wertvolle Hinweise, mit welchen VBA-Befehlen so etwas zu realisieren ist.
Weitere Hinweise zur Verwendung des TC-SDK sind in meinem Tutorial http://www.ps-blnkd.de/Seite3.htm#SDK  zu finden.

Grüsse aus Berlin

PSblnkd

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