Mtext (rectangle)

Hello,

I have lisp. see below ... I cant see the rectangle when I make mtext. Why?

lisp

(defun C:MTEXT50 (/ oldlay)
 (setq oldlay (getvar "clayer"))
 (vl-load-com)
 (setvar "cmdecho" 0)
 (if (not (tblsearch "LAYER" "A-------T1-------E"))
           (command "-layer" "M" "A-------T1-------E" "C" "red" "A-------T1-------E" "")
           (setvar "clayer" "A-------T1-------E")
           ) ; end if


 (setvar "cmdecho" 0) 
(command ".style" "" "" "300" "" "" "" "")
(setvar "cmdecho" 1)
(setq PT1 (getpoint "\n First Corner :"))
(setq PT2 (getpoint "\n Second corner :"))
 (initdia)
(command "mtext" PT1 PT2)
(setvar "clayer" oldlay)

 ); end 

Change this part:

(setq PT1 (getpoint "\n First Corner :"))
(setq PT2 (getcorner PT1 "\n Second corner :"))

I hope that's what you're looking for.

Change these two lines

(setq PT1 (getpoint "\n First Corner :"))
(setq PT2 (getpoint "\n Second corner :"))

must be:

(setq PT1 (getpoint "\n First Corner :"))
(setq PT2 (getcorner PT1 "\n Second corner :"))

~'J'~

Of course.

Thanx!!!