(setq longitude1 (+ l0 (/ (+ (- D (/ (* (+ 1 (* 2 tt) C) D D D) 6)) (/ (* (+ (- 5 (* 2 C) (* 3 C C)) (* 28 tt) (* 8 ee) (* 24 tt tt)) D D D D D) 120)) (Cos fai))))
(setq latitude1 (- fai (* (/ (* NN (tan fai)) R) (+ (- (/ (* D D) 2) (/ (* (- (+ 5 (* 3 tt) (* 10 C)) (* 4 C C) (* 9 ee)) D D D D) 24)) (/ (* (- (+ 61 (* 90 tt) (* 298 C) (* 45 tt tt)) (* 256 ee) (* 3 C C)) D D D D D D) 720)))))
(setq latitude (/ latitude1 iPI))
(setq longitude (/ longitude1 iPI))
(list longitude latitude)
)
(defun findcoords()
(setq ss (ssget '((0 . "INSERT") (2 . "*水泥单杆*380V"))))