I have a LISP routine (LP) that when I ID a point it reads: N 5000'-0" + W 5000'-0". When I use the LISP routine (LP) it reads: N 416'-8" + W 416'-8". I can change this routine to it's original state and it will read the correct Coords but in a decimal format, once I change it it is reduced by 12. ie 416'-8" X 12 = 5000'-0". Any ideas why I cannot change in DIMStyle or DIMLFAC and have the result I want? Thank you for the help!!!
Here is the LISP routine that I am using:
Code:
(defun C:LP1(/ PNT1 P1X P1Y STDY DY COORDN COORDW PTXT)
(setq PNT1 (getpoint
"\nPick coordinate point: "))
(setq P1X (car pnt1)) ;x coord
(setq P1Y (cadr pnt1)) ;y coord
(setq STDX (rtos (/ (abs P1X) 12) 4 3))
(setq STDY (rtos (/ (abs P1Y) 12) 4 3))
(setq COORDN (strcat "N " STDY ))
(setq COORDW (strcat "W " STDX ))
(setq PTXT (getpoint
"\nPick text location: "))
(command "LEADER" PNT1 PTXT "" COORDN COORDW "")
(princ)
)