AutoLISP enter text

[thomas.schive]

Hello!

I quite recently began experimenting with AutoLISP, and was trying to write my own routine where I could add text along a chosen line with the z-coordinates to a chosen point along the line.

So far I've got like this:

(Defun c:hll()

(setq

pointa (getpoint "")

zvalue (caddr pointa)

); setq

Further on I thought of something like this (ofc not correctly written):

(command "text" *startingpoint = pointa* *height value* *rotation value* *text to be written = zvalue* "")

AND I would like this to go on/be repeated for every point the user wants to add, making it a loop. So that say if I got a 3D line and wants to create a small drawing which shows a chosen selection of heights, I can simply run my LISP and it will draw the text along the way as I just "click".  

Any tips for how I can proceed?

Regards, Thomas

[dbroad]

If you want to write this yourself, which I strongly encourage, you should run the text command yourself and collect the prompts.  Then write your command function.  Whenever you want to accept a default prompt, use "" in your command function.  When using the command function to add text however, you need to find out whether the current text style is a fixed height style and whether it is annotative.  The answers to your height questions will depend on those.

Try to avoid skipping prompts arguments in getpoint functions.

Good lisping.  Check out vlide too.

[imadHabash]

Hi,

i suggest also to visit and follow this FORUM and try to read more.

Good Luck..

[Ranjit_Singh · Accepted solution]

---

@thomas.schive wrote:

..........

AND I would like this to go on/be repeated for every point the user wants to add, making it a loop. So that say if I got a 3D line and wants to create a small drawing which shows a chosen selection of heights, I can simply run my LISP and it will draw the text along the way as I just "click".  

 ........

---

If your text style is not a fixed height type, you receive a height prompt. In this case you could do something like

(defun c:somefunc  (/ pt)
 (while (setq pt (getpoint "\nSelect text location: "))
  (command "._text" pt 0.12 0 (rtos (caddr pt) 2 2))))

or like this for fixed height style font (notice 0.12 removed)

(defun c:somefunc  (/ pt)
 (while (setq pt (getpoint "\nSelect text location: "))
  (command "._text" pt 0 (rtos (caddr pt) 2 2))))

There is certainly more than one way of addressing both situations combined. Here is one example

;;Ranjit Singh
;;8/16/17
(defun c:somefunc  (/ pt)
 (while (setq pt (getpoint "\nSelect text location: "))
  (eval (append '(command "._text" pt)
                (if (zerop (cdr (assoc 40 (entget (tblobjname "style" (getvar 'textstyle))))))
                 '(0.12))
                '(0 (rtos (caddr pt) 2 2))))))

[Kent1Cooper]

You may find LabelElevMask.lsp of interest -- available here.

[thomas.schive]

Great, thank you very much - this worked as planned!