Can anyone tell me why I can't use this in Ortho mode?

[Albert Giuliano]

Can anyone tell me why I can't use this in Ortho mode?

Original written by Kenny Poong
;; Creates a suite of numbers & insert into point by user defined

(defun C:TextNumber ( / oldecho tmp numHt numValStr)
(setq oldecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(if (not numVal) (setq numVal 1))
(if (not numInc) (setq numInc 1))
(setq tmp (getint (strcat "\nStarting number <" (itoa numVal) ">: "))) (if tmp (setq numVal tmp)) (setq numValStr (itoa numVal)) (setq tmp (getint (strcat "\nIncrement by <" (itoa numInc) ">: "))) (if tmp (setq numInc tmp)) (if (= 0.0 (cdr (assoc 40 (tblsearch "style" (getvar "textstyle"))))) (progn (initget (+ 1 2)) (setq numHt (getdist "\nText height: ")) ) );end if (while (setq pikPnt (getpoint (strcat "\nInsertion point for " numValStr ": "))) (command "._text" "_mc" pikPnt) (if numHt (command numHt)) (command "" numValStr) (setq numVal (+ numVal numInc) numValStr (itoa numVal) ) );end while (setvar "cmdecho" oldecho) (princ)
);end C:TextNumber

 

[Devin]

I loaded it up and set ortho on and it worked for me.

Don't know why it won't work on your system. Maybe another reason? What's it doing?

Devin