Insert Block and directly move attribute

[C.Utzinger]

HI

Is it possible to insert the attached block and directly move the Attribute with a lispcode?

I mean first you select the instertpoint for the block and the the Location Point for the Attribute.

Please help....

[C.Utzinger]

Hi again 😞

A question to the getpoint part.

(getpoint (trans (vlax-get itm 'TextAlignmentPoint) 0 1) "\nTextposition angeben: ")

Is it posible to see the text moving, or a shadow, or a rectangle, or somehting else?

Kind regards

[pbejse · Accepted solution]

---

@C.Utzinger wrote:

....Is it posible to see the text moving, or a shadow, or a rectangle, or somehting else?

---

Really Cree-G?

GRREAD <---- Read this

(defun _NextTrick (pt obj / end code pt2)
      	(while
              (and (null end)  (setq p (grread t 15 0) code (car p)))
                      (cond
                            ((= 5 code)
                             (vlax-put obj 'TextAlignmentPoint (setq pt2 (trans (cadr p) 1 0)))
			     (setq pt pt2)
                             )
                            ( (or (= 2 code)(= code 3))
                                 (setq end T)))
                      	)
      )

command: IBDMA <---- Insert Block and Directly Move Attribute

HTH (again)

[C.Utzinger]

Sorry! I have no more questions, now it's perfect.

Thank you very much for the the link and lesson.

I learned again so much!!!!

And nice Image

Kind regards

[pbejse]

---

@C.Utzinger wrote:

Sorry! I have no more questions, now it's perfect....Thank you very much for the the link and lesson.... I learned again so much!!!! 

---

Excellent!

You are welcome.