Lisp for insert text at a specific point

[andr3flaviano]

Hello, Guys!

I need a litte help in a very easy question about Lisp

I need a Lisp for insert a especific text at a especific point in autocad...

 

Example: I want to write the number 5 at the point:

x = 3

y = 2

 

It's easy, but i don't now how to input the coordinates of the text

Could Someone help me, please??

[BIGAL]

Easy

 

; based on some form of values being obtained.
(setq x 3)
(setq y 2)
(setq ans "5")
(command "Text" (list x y) 0.25 0 ans)

[lrm]

Bigal, your program will work if the default text height is 0.0 but will place the text "0" if the text height is > 0.0. The text command has one less prompt if the default text height is not 0.0. Is there a way to check for the default text height.

 

~Lee

[BIGAL]

Lrm you are correct there are two methods to Text one with a preset height the other with height=0.0 There is a couple of ways around this. Its always difficult when posting example code to do with text to know which way to post. As a generic approach at work we set the text style to a preset style in our dwt then we know if height is 0.0 or not.

 

; example of checking current text style has a preset height.
    (setq ts (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))))
    (if (zerop ts)
          (command "TEXT" "498,18" "3.5" "0" ans)
          (command "TEXT" "498,18" "0" ans)
    )      

[lrm]

Thanks BIGAL, this is something that has stymied me for a long time.