Move with no origination line?

I'm placing text on a drawing via lisp, mostly common used, small words. In
the routine I'd like the user to see the text on the screen so they could
see how long it is and place it correctly. This lisp does the trick but I'd
like to not have the origination line the move command pulls up. Thoughts on
a different way to 'move' the text around on the screen without the line?

Thanks Sage


(QNPLACE2 "TEST")

(defun QNPLACE2 (word / current_layer tpnt)
(setq tpnt (getvar "viewctr"))
(command "text" tpnt "" "0" word)
(command "move" "l" "" tpnt pause)
(princ)
)

 

(defun QNPLACE2 (word / tpnt)
(setq tpnt (getvar "viewctr"))
(command "._text" tpnt "" "0" word)
(command "._change" "_si" (entlast) "" pause "" "" "" "")
(princ))

--
R. Robert Bell


I'm placing text on a drawing via lisp, mostly common used, small words. In
the routine I'd like the user to see the text on the screen so they could
see how long it is and place it correctly. This lisp does the trick but I'd
like to not have the origination line the move command pulls up. Thoughts on
a different way to 'move' the text around on the screen without the line?

Thanks Sage


(QNPLACE2 "TEST")

(defun QNPLACE2 (word / current_layer tpnt)
(setq tpnt (getvar "viewctr"))
(command "text" tpnt "" "0" word)
(command "move" "l" "" tpnt pause)
(princ)
)

 

Sweet... Toss in a redraw in there and we're good to go. Well I need to add
a few error handlers.

Thanks a bunch!

(QNPLACE2 "TEST")

(defun QNPLACE2 (word / current_layer tpnt)
(setq tpnt (getvar "viewctr"))
(command "text" tpnt "" "0" word)
(redraw (entlast) 2)
(command "._change" "_si" (entlast) "" pause "" "" "" "")
(princ)
)

 

Happy to help.

--
R. Robert Bell


Sweet... Toss in a redraw in there and we're good to go. Well I need to add
a few error handlers.

Thanks a bunch!