[编程交流] 为什么需要按下空白sp

(defun c:test (/ ss ang ANG1 ssl e lst)
(mapcar 'setvar '("cmdecho""blipmode")'(0 0))
 (while (progn
          (prompt "\nPlease choose dimension to flip text <exit>: ")
          (setq ss (ssget '((0 . "DIMENSION")))))
   (setq ssl (sslength ss))
   (while (> ssl 0)
     (setq e   (ssname ss (setq ssl (1- ssl)))
           lst (entget e)
           ang (dxf 51 lst)
           ang1(if (and (>= pi ang)(> ang 0)) 0 pi))
     (entmod (subst (cons 51 ang1)(assoc 51 lst) lst))
   )
 )
 (mapcar 'setvar '("cmdecho""blipmode")'(1 1))
 (princ)
)
(defun dxf (key dxfcod / )
 (cdr (assoc key dxfcod))
 )

(defun c:test ( / a e i s )
   (if (setq s (ssget '((0 . "DIMENSION"))))
       (repeat (setq i (sslength s))
           (setq e (entget (ssname s (setq i (1- i))))
                 a (cdr (assoc 51 e))
           )
           (if (and (< (* pi 0.5) a) (<= a (* pi 1.5)))
               (entmod (subst (cons 51 (+ pi a)) (cons 51 a) e))
           )
       )
   )
   (princ)
)