[编程交流] 把事情搞混了

  (if (= *esp* nil)
     (if (= (getvar 'LUNITS) 2)
                (setq *esp* 400)
                (setq *esp* 16)
                )
 )    
 
 (setq *esp*
 (cond
     (
      (getint
          (strcat "\nModify span<" (itoa *esp*) ">: ")
      ) ;_ Fin de getkword
     )
     (itoa *esp*)
 ) ;_ Fin de cond
 ) ;_ Fin de setq
   
 (initget 1)
 (setq pt1 (getpoint "\nPick a starting point : "))
(initget 1)
 (setq pt2 (getpoint pt1 "\nPick an end point : "))
 

(if
 (and
   (progn
     (while
       (progn
         (initget 128)
         (setq pt1
           (getpoint
             (strcat
               "\nPick start point or specify span <"
               (itoa *esp*)
               ">: "
             )
           )
         )
         (cond
           ( (and
               (eq (type pt1) 'STR)
               (= (atoi pt1) (distof pt1))
             )
             (setq *esp* (atoi pt1))
           )
           ( (eq (type pt1) 'STR)
             (princ "\nInvalid number.")
           )
         )
       )
     )
     pt1
   )
   (setq pt2 (getpoint pt1 "\nPick an end point : "))
 )
 (progn
   ;do you stuff
   (print (list pt1 pt2))
 )
)