程序添加求助

倫到不行

(defun C:sCC (/ ss a b d)
(command "-layer" "m" "0" "c" "7" "" "")
(command "-layer" "OFF" "DIM"  "OFF" "HID" "OFF" "CEN"  "")


  (setq
SS (ssget
  '((0 . "REGION,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC,INSERT"))      <====想在選取後 有ELLIPS, SPLINE 就不能執行下一段程序
  )                                                                                                                                 並且 ELLIPS, SPLINE 變成紅色
  )                                                                                                                 假如 沒有ELLIPS , SPLINE  可以直接執行                                                  




  (prompt "選取圖號: ")
(setq a (entsel))  
(setq b (entget (car a)))  
(setq d (assoc 1 b))

  (setq w2 (print (cdr d)))
(if(findfile (SETQ w3 (STRCAT "d:/N/" w2 ".dxf" )) )
    (alert(strcat w3"已存在"))
(progn


  (command "filedia" "0")
(command "dxfout" w3 "O" SS "" "v" "R12" "")

(command "filedia" "1")))
(princ)
)

試很多寫法都沒有成功    懇求高手幫忙發錯地發不好意思