能不能把这查点实际坐标的功能变成整幅图坐标转换的呢？

Wich

(DEFUN Kd_TO_Ks(X_Y_TABLE)      
        (setq blc (getvar "userr1"))  ;;;;取得图形比例尺
        (PROGN
                  (setq atom_x (getvar "userr2")) ;;;;取得坐标原点 X 坐标
                  (setq atom_y (getvar "userr3")) ;;;;取得坐标原点 Y 坐标
              (SETQ X (NTH 0 X_Y_TABLE))
              (SETQ Y (NTH 1 X_Y_TABLE))
              (SETQ Xx (+ (* (- X ATOM_X)(/ 1000 BLC)) 100) )
                   ;;;;;转换Y坐标为开思坐标写入文件   
              (SETQ Yy (+ (* (- Y ATOM_Y)(/ 1000 BLC)) 100) )
                 ;;;;;转换X坐标为开思坐标写入文件
         );PROGN
      (LIST YY XX)
);;DEFUN
(DEFUN Ks_TO_Kd(X_Y_TABLE)
     (setq blc (getvar "userr1"))  ;;;;取得图形比例尺
              (setq atom_x (getvar "userr2")) ;;;;取得坐标原点 X 坐标
              (setq atom_y (getvar "userr3")) ;;;;取得坐标原点 Y 坐标
              (SETQ X (NTH 0 X_Y_TABLE))
              (SETQ Y (NTH 1 X_Y_TABLE))
              (SETQ Xx (+ (* (- y 100)(/ blc 1000)) atom_x)  )
                   ;;;;;转换Y坐标为开思坐标写入文件   
              (SETQ Yy (+ (* (- x 100)(/ blc 1000)) atom_y)  )
                 ;;;;;转换X坐标为开思坐标写入文件
     
      (LIST Xx Yy)
);;DEFUN
  
(defun c:ZBCX()
(setq compare T)
(WHILE COMPARE
(setq aa (getpoint "\n 图上取点 :"))
(IF AA
(PROGN
(SETQ aa1 (kS_to_kD aa))
(setq aa2 (strcat "实地坐标查询值 X:2" (rtos (nth 0 aa1) 2 3)
                  " m  Y:39" (rtos (nth 1 aa1) 2 3)  
                  " m  H: " (rtos (nth 2 aa) 2 3)
              )
)
(PROMPT (strcat "\n " AA2))
(SETVAR "MODEMACRO" AA2)
);PROGN
(SETQ COMPARE NIL)
);IF


最后一段不理解！