线圆打缺口有问题，

吴外安放

会出现错误求改正   参数类型错误: lselsetp nil
;打缺口
(defun c:tt ()
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setq qn (getreal "\n缺口数量:<1>"))
        (if (= qn nil)
          (setq qn 1))
  (setq qk (getreal "\n缺口宽度<4>"))
        (if (= qk nil)
          (setq qk 4))
  (prompt "\n选择线")
  (setq ss (ssget))
  (setq ab (ssadd))
  (setq i 0)
  (while (< i (sslength ss))
    (setq aab (ssname ss i))
    (setq bb (cdr (assoc 0 (entget aab))))

    (cond ((= bb "LINE")
     (setq st (cdr (assoc 11 (entget aab))))
     (setq qed (cdr (assoc 10 (entget aab))))
     (setq ad (distance st qed)
     dd (angle st qed)
     de (angle qed st)
     )


     (cond ((= qn 1)
      (setq aj (/ (- ad qk) 2.0))
     )
     )
     (cond ((> qn 1)
                  (setq ej (/(* (/ (- ad (* qk qn)) (+ qn 1)) 2) 3))
      (setq aj ej)
     )
     )
     (setq xa (polar st dd aj))
     (setq j 1)
     (while (<= j qn)
       (cond ((>= j 2)
        (setq
          aj (/ (- (- ad (* ej 2)) (* qk qn)) (- qn 1))
        )
        (setq
          xa (polar z2 dd aj)
        )
       )
       )
       (setq j (+ j 1))
       (setq
         z1 (polar xa dd 0)
         z2 (polar xa dd qk)
       )
       (command "break" z1 z2)
     )
    )
    )
    (setq i (+ 1 i))

    )
  (setvar "cmdecho" 1)
  (setvar "osmode" 11)
  (princ)
  )

lijiao

把“(while (sslength ss)”改为“(while (< i (sslength ss))”