为什么用空格不能退出循环

淮上

(defun nssget (msg filt fun / ss)
  (if fun
    (while (progn (princ msg) (not ss))
      (if filt
        (setq ss (ssget ":S" filt))
        (setq ss (ssget ":S"))
      ) 
      (mapcar fun (ss->lst ss))
    )
  )
)

;; 返回选择集的图元表
(defun ss->lst (ss / enamep)
  (setq enameP '(lambda (x) (= (type x) 'ename)))
  (vl-remove-if-not enameP (mapcar 'cadr (ssnamex ss)))
)

;;;;(nssget "\n选择需要定距的尺寸" '((0 . "DIMENSION")) '(lambda (x) (alert "a")))

狂刀无痕

用了我的代码记得注我的名，要不下次不帮了

(defun c:tt (/ ss)
  (while (if (not(setq ss (ssget ":s"))) (= 0 (getvar "errno")))
    (princ "\n 练好基本功！路都走不好就别老想着跑")
  )
  ss
)

狂刀无痕

你先看看cad帮助while的用法在来问