---

Hallo an Alle,
ich versuche verzweifelt das Vorschaubild eines Blockes anzuzeigen.
Leider gibt es auch Blöcke die kein Vorschaubild haben. Wie kann ich dann eines erstellen weiß jemand einen Weg der besser funktioniert als der unten.
Danke Theo

If Myblockrecord.HasPreviewIcon Then
                    QuellBild = Myblockrecord.PreviewIcon
                    QuellBild.MakeTransparent()
                Else
                    acDoc.SendStringToExecute("Blocksymbol ", True, False, True)
                    acDoc.SendStringToExecute(Quellname, True, False, True)
                    acDoc.SendStringToExecute(" ", True, False, True)
                    QuellBild = Myblockrecord.PreviewIcon
                    QuellBild.MakeTransparent() 'hier kommt Systemfehler
                End If

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

---

Hallo,

also hier wird auch nicht wirklich was anderes gemacht, jedoch wird sicherheitshalber nach dem erzeugen nochmal geprüft ob dann eine Preview vorhanden ist.

LG
Holger

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

---

Hallo Holger,

das Problem ist glaube ich der Ablauf des Programmes. Es wird zuerst der kpl. Programmcode abgearbeitet und erst dann wird Sendstring ausgeführt. Dadurch wird HasPreviewicon immer false.
Gibt es eine einfache Möglichkeit die Programausführung zu unterbrechen, damit das SendCommand erst ausgeführt wird?
Gruß, Theo

If Myblockrecord.HasPreviewIcon Then
                    QuellBild = Myblockrecord.PreviewIcon
                    QuellBild.MakeTransparent()
                Else
                    Dim data As Object() = {"_.BLOCKICON " + Quellname & vbLf}
                    ThisDrawing.[GetType]().InvokeMember("SendCommand", System.Reflection.BindingFlags.InvokeMethod, Nothing, ThisDrawing, data)
                    If Myblockrecord.HasPreviewIcon Then
                        QuellBild = Myblockrecord.PreviewIcon
                        QuellBild.MakeTransparent()
                    End If
                    End If

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

---

... ich verlasse mich nicht auf die Vorschaubilder, sondern füge den Block, von dem ich eine Vorschau als Bild brauche außerhalb des Zeichenbereiches ein, zoome diesen Block Bildschirmfüllend und mache dann einen Screenshot (natürlich nicht von Hand).
Vielleicht ist dieser Weg auch etwas für Dich?

Grüße!
Holger

------------------
Holger Brischke
Noch 1 FREIER SCHULUNGSPLATZ -- C#.NET-Schulung vom 28.-30. Mai 2013 Bei Interesse bitte melden!
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hallo Holger,

wieso verlässt Du Dich nicht auf die Vorschaubilder?

Holger

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

---

... weil die eben nicht immer da sind, außerdem sind die Attributdefinitionen nicht schön im Vorschaubild.

Grüße!
Holger

------------------
Holger Brischke
Noch 1 FREIER SCHULUNGSPLATZ -- C#.NET-Schulung vom 28.-30. Mai 2013 Bei Interesse bitte melden!
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hallo Holger,

wenn ich dich richtig verstehe ist das ein einmaliger Vorgang den Du im Vorfeld für jeden Block einmal ausführst.Das funktioniert aber nur wenn es sich um vorher festgelegte Blöcke handelt. Ich bräuchte was was bei jeden Block in der Zeichnung funktioniert. Ist aber eigentlich Luxus, muß nicht unbedingt sein. Mann kann den Block ja auch anhand des Names auswählen. Beim ACAD-Befehl einfügen bekommt man bei 99% der Blöcke eine Vorschau. Darum dachte ich es wäre nicht schlecht wenn das bei mir auch so wäre.

Gruß, Theo

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

---

Ich habe das immer so verstanden (aber nie probiert) das SendCommand gleich ausgeführt wird und SendStringToExecute nach dem eigenen Befehl.

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