| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Turbocad |
Autor
|
Thema: Bild per Script einfügen? (676 mal gelesen)
|
frankbuss Mitglied
Beiträge: 1 Registriert: 13.05.2012
|
erstellt am: 13. Mai. 2012 16:39 <-- editieren / zitieren --> Unities abgeben:
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 |
PSblnkd Mitglied Dipl.-Ing.
Beiträge: 156 Registriert: 13.03.2009
|
erstellt am: 14. Mai. 2012 07:52 <-- editieren / zitieren --> Unities abgeben: Nur für frankbuss
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|