baitang36：(DEFUN SCXTZB (C4 / JJ J J1 Q1 Q2)  (setq JJ (LENGTH C4))
  (setq J 0)
  (setq Q1 0)
  (setq Q2 0)
  (setq JJK nil)
  (while (and (< J JJ))
    (setq J1 (NTH J C4))
    (if (= Q1 0)
      (PROGN (setq JJK (APPEND JJK (LIST J1))))
      (PROGN (FOREACH X JJK
        (if (AND (EQUAL (CAR (CAR J1)) (CAR (CAR X)) 0.1)
   (EQUAL (CADR (CAR J1)) (CADR (CAR X)) 0.1)
     )
   (PROGN (setq Q2 1))
        )
      )
      (if (= Q2 0)
        (PROGN (setq JJK (APPEND JJK (LIST J1))))
      )
      (setq Q2 0)
      )
    )
    (setq Q1 1)
    (setq J (1 J))
  )
  (PRINC)
)
(DEFUN ZFCL (A / A1 A2 A3 A4 B)
  (setq A1 (STRLEN A))
  (setq A2 (- A1 1))
  (setq B "")
  (while (and (>= A2 0))
    (setq A3 (VL-STRING-ELT A A2))
    (if (OR (AND (>= A3 48) (<= A3 57)) (= A3 46))
      (PROGN (setq B (STRCAT (CHR A3) B)))
      (PROGN (setq A2 -1))
    )
    (setq A2 (1- A2))
  )
  (setq JH1 B)
  (setq A4 (STRLEN JH1))
  (setq JH2 (SUBSTR A 1 (- A1 A4)))
  (PRINC)
)