---

Hallo alle
ich möchte ein Block dessen Pfad und Name in einer Datei auf der Festplatte liegt mittels VBA in die Zeichnung einfügen. Den Skalierfaktor entnehme ich der DIMSCALE. Soweit funktionierts, nur sehe ich den Block nicht am Fadenkreuz beim wählen des Einfügepunktes. Ist das irgendwie machbar, ev. mit einem anderen Lösungsansatz?

Code:

---

Open "c:\temp\insblock.txt" For Input As #1
Line Input #1, blockpath
Close #1
mst = Int(ThisDrawing.GetVariable("LTSCALE"))
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(ThisDrawing.Utility.GetPoint(, "Klick für Einfügepunkt..."), blockpath, mst, mst, 1#, 0)

---

Danke für Euren Input

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

---

Hi, 

Zitat:

---

nur sehe ich den Block nicht am Fadenkreuz beim wählen des Einfügepunktes

---

...zumindest kein direkter Weg, denn Du musst zuerst den Anwender einen Punkt auswählen lassen und diesen Punkt beim Einfügen der Blockreference mitgeben.

Es gäbe ein Workaround (soweit ich mich erinnere, in diesem Forum), da fügst Du zuerst einen Block auf 0,0,0 ein, dann startest Du den Schieben-Befehl, wählst den zuvor eingesetzten Block, gibst den Punkt 0,0,0 als Basispunkt ein und dann hängt der Block am Fadenkreuz während der Anwender den zweiten Punkt eingibt.

- alfred -

[EDIT] in diesem Link findest Du solch eine Vorgehensweise [/EDIT]
------------------
www.hollaus.at

[Diese Nachricht wurde von a.n. am 24. Aug. 2009 editiert.]

---

Hallo Vittorio,

Hier noch die alternative über Lisp und VBA.

Gruß, Carsten

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