程序增加求助

war5566sakura

(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)
)

試很多寫法都沒有成功    懇求高手幫忙

原地踏步

遍历SS，得到每个对象，取得图元名，若有ELLIPS, SPLINE，改色，并设个 flg 为T。循环完后，再检查 flg，为T 就不执行下面的程序，否则执行。

Lisphk

(setq
SS (ssget
  '((0 . "REGION,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC,INSERT"))      <====想在選取後 有ELLIPS, SPLINE 就不能執行下一段程序
  )     

你不想有 ellpse,和spline，你就别列里面呗

改

(setq
SS (ssget
  '((0 . "REGION,CIRCLE,LINE,*POLYLINE,ARC,INSERT"))   
  )     

war5566sakura

Lisphk 发表于 2020-9-7 19:10
(setq
SS (ssget
  '((0 . "REGION,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC,INSERT"))

我的程序是SAVE  DXF   用意是希望設計師save的時候能提前發現雲形線. 所以不能刪除

pxr201419

(setq ss (ssget '((0 . "REGION,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC,INSERT"))))
(setq i 0 lst '())
(while (< i (sslength ss))
   (setq lst (cons (ssname ss i) lst)
         i   (1+ i)))
(if (setq se (vl-remove-if-not '(lambda(x)(member (cdr (assoc 0 (entget x))) '("SPLINE" "ELLIPSE"))) LST))
   (foreach x se (vl-cmdf "_chprop" x "" "c" 1 ""))
   (progn
      (        )))