Hallo Zusammen,
dies ist meine erster Beitrag
habe ein riesiges Problem...
ich soll möglichst kurzfristig ca.160 Pixelbilder in AutoCAD einfügen,schneiden,spiegeln oder drehen, in x- und y-Richtung scalieren und auf Endposition drehen.
Von Hand gehe ich folgende Schritte durch:
1. Pixelbild einfügen (ohne Pfadstruktur!)
2. Pixelbild schneiden
3. Block erstellen des Pixelbildes
4. Block einfügen mit Faktoren in x- und y- Richtung
5. Block auflösen
6. Pixelbild auf gewünschte stelle verschieben und drehen
.... das funkttioniert auch ... aber dauert sehr sehr sehr lange!
Jetzt habe ich in VBA ein Programm geschrieben das bis auf zwei Sachen Perfekt funktioniert(ich bin Anfänger).
Siehe Punkt 7. Der Block mit dem Pixelbild lässt sich nicht auflösen.
Weiterhin ist der Pfad des Pixelbilds ist immer dabei, d.h. wenn ich die DWG.Datei weiter gebe fehlen die Pixelbilder.
Das Programm hat folgenden logischen Ablauf.
1. Einfügen Pixelbild (Nullpunkt)
2. in 1. oder 2. oder 3. oder 4. Quadrant legen
3. Schneidpunkte Pixel Orginal
4. gewollte Schnittpunkte Pixelbild neue größe angeben
5. Pixelbild löschen
6. Pixelbild als Block einfügen mit Faktoren
7. Pixelbild Block auflösen !!! GEHT NICHT
8. Pixelbild in 1. oder 2. oder 3. oder 4. Quadrant legen
9. Pixelbild schneiden mit neue Schneidpunkte
10. Pixelbild verschieben
11. Pixelbild drehen
Kenne mich in LISP nicht aus
geht es evtl. mit LISP viel einfacher??
ICH BITTE UM HILFE
Vielen Dank
Grüße
ThomasBernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP