(defun  c:dc()
      (COMMAND "-OSNAP" "END")
      (IF TH ()  (PROGN 
                       (setq Th 15) 
                       (SETQ ds (/ th 10))
                 )
      )
      (if chxy  () (setq xsurfix "X=" ysurfix "Y=" chxy nil))
      (INITGET 1 "Height Xytoyx")
      (setq   p (getpoint "\n改变字高（H）/XY互换位置（X）/<指定待标注点>："))
      (cond ((eq p "Height") (progn (prompt (strcat  "\n当前标注文字高度:" (rtos th 2 2)))                                    
                                    (princ)
                                    (setq Th (getint "\n请输入新的标注文字高度："))
                                    (SETQ ds (/ th 10))
                                    (setq  p (getpoint "\n指定待标注点："))
                             )
            )
            ((eq p "Xytoyx") (progn (if chxy (setq xsurfix "X=" ysurfix "Y=" chxy nil) (setq xsurfix "Y=" ysurfix "X=" chxy 1)) (setq  p (getpoint "\n指定待标注点："))     ))
            
      )

      (COMMAND "POINT" P )
      (setq x (rtos (+ ds (car p)) 2 3) )
      (setq y (rtos (+ ds (cadr p)) 2 3) )
      (COMMAND "-OSNAP" "")
      (command "-layer" "n" "坐标标注" "c" "3" "坐标标注" "s" "坐标标注" "")
      (command "-style" "坐标标注" "宋体" "0" "1" "0" "n" "n" )
      (setq pname (getstring 1 "\n请输入点名："))
      (setq pname (strcat pname "("))
      (command "text" (strcat x "," y)  th "0" pname )
      ;标注X
      (setq delt (car (last (textbox (entget (entlast))))))
      (setq x (rtos (+ (car p) delt ds) 2 3))
      (command "text" (strcat x "," (rtos (+ (/ th 2.0) (atof y)) 2 3)) (/ th 2.0) "0" (strcat xsurfix x))
      ;标注Y
      (setq delt1 (+ delt (car (last (textbox (entget (entlast)))))))
      (command "text" (strcat x "," y) (/ th 2.0) "0" (strcat ysurfix y))
      (setq delt2 (+ delt (car (last (textbox (entget (entlast)))))))   
      (IF (> DELT1 DELT2) (SETQ DELT DELT1) (SETQ DELT DELT2))   
      (setq x (rtos (+ (car p) delt ds) 2 3))
      (command "text" (strcat x "," y) th "0" ")")      
      (COMMAND "-OSNAP" "END")
      (PRINC)
)