Routine to add text below existing text

[jhohman]

I am looking for a LISP routine that will allow me to input text by selecting an existing line of text and allow me to add text below the selected line in the same way that I could if I had continued typing. So, if I had a notation and leader on say a detail, the LISP would ask me to select the text I want to continue from and after I select the text it would place the start point one line below the selected text. I hope this is understandable, I had found a routine before that did this but cannot find it now, anybody have any ideas. Thanks.

[Mike.Perry]

Hi

Check out the following submission # EX001241 by Ed Jobe on the AUGI Exchange -

Search AUGI Exchange Page

If memory serves this Text utility has the functionality you're after, hopefully Ed can confirm this one-way or the other.

Have a good one, Mike

[whdjr]

Jay,

This is one that we use for Dtext. I don't know where we got it or who wrote it.

 
(defun c:CONTXT (/ uecho fht ent ins alignx alignp)
  (setq uecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (and
	(setq ent (entsel "\nLast line of text: "))
	(setq ent (entget (car ent)))
	(= (*dxf* 0 ent) "TEXT")
	(or (/= (*dxf* '72 ent) 3)
 (prompt "\nDoesn't work on ALIGNED text.")
	)
	(or (/= (*dxf* '72 ent) 5)
 (prompt "\nDoesn't work on FIT text.")
	)
	(progn
	  (setq ins (*dxf* 10 ent)
	 fht (/= 0.0 (*dxf* 40 (tblsearch "STYLE" (*dxf* 7 ent))))
	  )
	  (if (/= (*dxf* 8 ent) (getvar "clayer"))
 (command ".layer" "s" (*dxf* 8 ent) "")
	  )
	  (if (or (setq alignx (*dxf* (*dxf* 72 ent) '((1 . "c") (2 . "r") (4 . "m"))))
	   (setq alignp (*dxf* (*dxf* 73 ent) '((1 . "b") (2 . "m") (3 . "t"))))
   )
 (setq ins (*dxf* 11 ent))
	  )
	  (if (not alignx)
 (setq alignx "l")
	  )
	  (if alignp
 (setq alignx (strcat alignp alignx))
	  )
	  (command ".text" "s" (*dxf* 7 ent))
	  (if (/= alignx "l")
 (command alignx)
	  )
	  (command ins)
	  (if (not fht)
 (command (*dxf* 40 ent))
	  )
	  (command (angtos (*dxf* 50 ent)) " ")
	  (prompt "\nNew text: ")
	  (command ".dtext" "")
	)
  )
  (setvar "cmdecho" uecho)
  (princ)
)

Hope this helps,

[jhohman]

Perhaps I am doing something wrong, but I get this after I try to use the LISP:

Command: contxt

Last line of text: ; error: no function definition: *DXF*


It asks me to select the last line of text then returns to the command prompt after I select the text.

[stig.madsen]

Try adding a function like this and see if it works:
(defun *dxf* (val ent)(cdr (assoc val ent)))

[jhohman]

Try adding a function like this and see if it works:
(defun *dxf* (val ent)(cdr (assoc val ent)))

Where would I insert this function?? At the end?

[stig.madsen]

Anywhere .. just as long as it is loaded before you run c:CONTXT

[whdjr]

Stig's post will work, but here is the one I left out.

Sorry.

 (defun *dxf* (gcode elist)
  (cdr (assoc gcode elist))
)

[jhohman]

Thanks alot guys, I really appreciate all the help.

[yxh_1202230274]

(defun c:CONTXT (/ uecho fht ent ins alignx alignp)
(setq uecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(and
(setq ent (entsel "\nLast line of text: "))
(setq ent (entget (car ent)))
(= (*dxf* 0 ent) "TEXT")
(or (/= (*dxf* '72 ent) 3)
(prompt "\nDoesn't work on ALIGNED text.")
)
(or (/= (*dxf* '72 ent) 5)
(prompt "\nDoesn't work on FIT text.")
)
(progn
(setq ins (*dxf* 10 ent)
fht (/= 0.0 (*dxf* 40 (tblsearch "STYLE" (*dxf* 7 ent))))
)
(if (/= (*dxf* 8 ent) (getvar "clayer"))
(command ".layer" "s" (*dxf* 8 ent) "")
)
(if (or (setq alignx (*dxf* (*dxf* 72 ent) '((1 . "c") (2 . "r") (4 . "m"))))
(setq alignp (*dxf* (*dxf* 73 ent) '((1 . "b") (2 . "m") (3 . "t"))))
)
(setq ins (*dxf* 11 ent))
)
(if (not alignx)
(setq alignx "l")
)
(if alignp
(setq alignx (strcat alignp alignx))
)
(command ".text" "s" (*dxf* 7 ent))
(if (/= alignx "l")
(command alignx)
)
(command ins)
(if (not fht)
(command (*dxf* 40 ent))
)
(command (angtos (*dxf* 50 ent)) " ")
(prompt "\nNew text: ")
(command ".dtext" "")
)
)
(setvar "cmdecho" uecho)
(princ)
)
(defun *dxf* (val ent)(cdr (assoc val ent)))