---

Hallo liebe Leute, ich hab da ein kleineres Problem:

Versuche über VB6 einen Block in einer ACAD 2004 Zeichnung zu benennen was auch wunderbar geht. Nur möchte ich wenn ich das Objekt anklicke den Namen des Blockes am Kreuz hängen haben und nicht nur einen InsertPoint angeben und dann erscheint der Text. Ist sicher nur eine Kleinigkeit aber mir raucht schon der Kopf weil ich einfach nicht dahinterkomme.

Bitte Hilfe, was fehlt mir noch?

Danke und liebe Grüsse aus Wien, Hermann

CODE Sample:

    Promt = "Wählen Sie ein Objekt: "
   
    AutoCAD.ActiveDocument.Utility.GetEntity Objekt, PickedPoint, Promt
   
    Err.Clear
   
    InsPoint = Empty
   
    Set NewMText = AutoCAD.ActiveDocument.ModelSpace.AddMText(PickedPoint, 0, Objekt.Name)

    NewMText.AttachmentPoint = acAttachmentPointMiddleCenter
   
    NewMText.Visible = False
   
    Promt = "Texteinfügepunkt wählen:"

    InsPoint = AutoCAD.ActiveDocument.Utility.GetPoint(, Promt)

    NewMText.Visible = True
   
    NewMText.Move PickedPoint, InsPoint
   
    End

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

---

hi,
schau mal hier:http://ww3.cad.de/foren/ubb/Forum259/HTML/000010.shtml

hth,
harry

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

---

Danke war gut gemeint aber den Block hab ich schon drinnen und beim einfügen auch gleich mit dem richtigen namen versehen. mein problem ist das ich im nachhinein eine beschriftung dafür machen möchte und ich als erstes das objekt wählen und dann am mauszeiger nur den text (hab umprog von mtest auf einzeiligentext) am mauszeiger hängen haben will und diesen in der zeichnung plazieren kann, hole mir den punkt von wo ich selekt. habe und den punkt wo der text hin soll das klappt schon nur leider hab ich den text nicht am mauszeiger hängen *heul*

danke, hermann

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

---

Ich vermute mal, da hast du schlechte Karten in VBA. Man kann zwar mit den Get-Irgendwas-Funktionen ein Gummiband oder auch ein Fenster-Rechteck erzeugen, aber dann ist Schluss. Irgendwelche Geometrie am Fadenkreuz ist ausschließlich der command-Programmierung in Lisp vorbehalten (command "_-insert" ...). In Lisp kann man sich mit grread, grvecs und grdraw auch selber was 'malen' - diese Funktionen stehen aber in VBA nicht zur Verfügung.

Das Einzige, was mir einfällt: Einen temporären Block erzeugen, der den Blocknamen als Text enthält. Dann per sendcommand ein (command "_-insert ...) abschicken, und zum Schluß die Referenz des erzeugten Inserts auf den Originalblock umbiegen (BlockRef.Name = <Originalblock> ) und den temporären Block wieder löschen.

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Ok, danke is mir schon geholfen, wollte es so ähnlich machen wie der lisp befehl "_inscription" nur is mir nicht so gelungen, dann muss ich halt mit der abgespeckten version leben.

DANKE trotzdem, Lg aus Wien, Hermann

(Vielleicht weis trotzdem noch irgendjemand wie es aus VB6 geht)

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

---

hi,
na ich meinte den beitrag von RoSiNiNo,

"...Überhaupt wenn du dir meine Beispiele anschaust.
Der Vorteil von AcadX ist der, das man ja nicht nur Blöcke als Vorschau haben kann, jedes Zeichenelement ist möglich..."

bei mir funktionierte der link aber noch nie, wenn bei dir auch nicht dann probiers über die http://www.waybackmachine.org/, trag die url ein und villeicht finden die was.

gruss,
harry

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

---

Danke, wer klaut da wem? *sfg*

Komme bei dem Link ins nirvana. Aber hab es mir dorchgelesen ist nicht ganz das was ich haben will.

Hab den Text unsichtbar am Kreuz von ACAD hängen und bekomme das Ding nicht sichtbar (Denke zumindest das es unsichtbar dranhängt)

Könnte ja auch einen schritt zurück und selektieren dann verschieben ..... aber das is mir zu umständlich, brauch eh nicht unbedingt das sichtbare am kreuz hängen nur für den anweder ist es besser beim einfügen

Lg Hermann

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