홈/ 질문/Q 331
다음
진행 중
tirandecad
Lv.0
등록일: 2022-07-05T10:31:42+09:00 카테고리:

리습 질문드립니다.

아래와 같이 특정 색상을 선택하여 삭제하는 리습을 구했습니다.

삭제 말고 선택한 상태를 유지하고 싶은데.. 선택 후 레이어 변경 등 하려고요..
어떻게 바꾸면 될까요? command “erase” 부분을 “select” 로 바꾸긴 했는데
선택된 상태를 유지하지는 않습니다..ㅠㅠ

(defun c:ec(/ ss OS en ent obj col color layobj sss smemeber color2 ssno num sslen sss )

(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os) (command “clayer” “0”) (princ) )
(setq os (getvar “osmode”))

;(vl-load-com)
(sssetfirst)
(setq sss nil sss (ssadd))
(setq en (car (entsel “컬러필터링 삭제 – 기준컬러 객체를 선택”)))

(WHILE ( = EN NIL)
(setq en (car (entsel “n 컬러필터링 삭제 – 기준컬러 객체를 선택”)))
)  ;WHILE END

(setq ent (entget en) color (cdr (assoc 62 ent)) layer (cdr (assoc 8 ent)))

(if (= nil color)

(progn  ;;;;;;; bylayer 인 경우의 처리
(setq obj(vlax-ename->vla-object en))
(setq col (vla-get-TrueColor obj))
(setq color(vlax-get col ‘Colorindex))

(if (= color 256)
(progn
(setq layobj (vlax-ename->vla-object (tblobjname “LAYER” (vlax-get obj ‘LAYER))))
(setq layobj (vla-get-TrueColor layobj))
(setq color (vla-get-ColorIndex layobj))
(PRINC “n ColorIndex = “)
(PRINC COLOR)
)
);if end

);progn end

;;————————-

(progn   ;;;;;;; bylayer가 아닌경우의 처리
(PRINC “n ColorIndex = “)
(PRINC COLOR)
);progn end

); if end

;;;;;;;;;;;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;;;;;;;;;;;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;;;;;;;;;;;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
(prompt “n객체범위를 선택”)
(while (/= (setq ss (ssget)) nil)
(progn
(if ( = ss nil)
(exit)
)
(setq sslen (sslength ss)
ssno 0
num 0)

(while (/= sslen ssno) ;while bbb
(progn
(setq smember (ssname ss ssno))
(setq ssno (+ ssno 1))
(setq color2 (cdr (assoc 62 (entget smember))))

(if (= nil color2)

(progn  ;;;;;;; bylayer 인 경우의 처리
(setq obj (vlax-ename->vla-object smember))
(setq col (vla-get-TrueColor obj))
(setq color2 (vlax-get col ‘Colorindex))

(if (= color2 256)
(progn
(setq layobj (vlax-ename->vla-object (tblobjname “LAYER” (vlax-get obj ‘LAYER))))
(setq layobj (vla-get-TrueColor layobj))
(setq color2 (vla-get-ColorIndex layobj))

);progn end
);if end
) ;progn end
) ; if end

(if (= color color2)
;(command “erase” smember “” )
(ssadd smember sss)
)   ; if end

);progn end
);while-bbb end

(command “erase” sss “”)
);progn end
);while end

) ;defun end

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    2 답변

    1. aalan
    2. Lv.0

      (command “erase” sss “”)
      ==> (sssetfirst nil sss)
      함수를 사용하면 될 것 같긴한데….

      • 0
    3. Lv.0

      (defun c:TTT(/ entdata entcolour colour layer layerlist layercolourlist layernamefilter strlayer strlayerlen filter)
      (setq entdata (entget (car (entsel “nPls select object color.”))))
      (if (setq entcolour (cdr (assoc 62 entdata)))
      (setq colour entcolour)
      (setq colour (cdr (assoc 62 (tblsearch “layer” (cdr (assoc 8 entdata))))))
      )
      (setq layer (tblnext “layer” T))
      (while layer
      (setq layerlist (append layerlist (list layer)))
      (setq layer (tblnext “layer”))
      )
      (while layerlist
      (if
      (/= colour (cdr (assoc 62 (nth 0 layerlist))))
      (setq layerlist (cdr layerlist))
      (progn
      (setq layercolourlist (append (list (cdr (assoc 2 (nth 0 layerlist)))) layercolourlist))
      (setq layerlist (cdr layerlist))
      )
      )
      )
      (if (= layercolourlist nil)
      (setq filter (list (cons 62 colour) (cons -4 “”)))
      (progn
      (setq strlayer “”)
      (while (car layercolourlist)
      (setq strlayer (strcat strlayer (car layercolourlist) “,”))
      (setq layercolourlist (cdr layercolourlist))
      )
      (setq strlayerlen (strlen strlayer))
      (setq layernamefilter (substr strlayer 1 (1- strlayerlen)))
      (setq filter (list (cons -4 “<or") (cons -4 "”) (cons 62 colour) (cons -4 “or>”) (cons -4 “”)))
      )
      )
      (prompt “nPls select object.”)
      (sssetfirst nil (ssget filter))
      (princ)
      )

      색상 선택 리습입니다..
      선택유지됩니다

      • 0
    호떡ㅋ
    Lv.0
    등록일: 2021-01-28T11:48:20+09:00 카테고리:

    리습 질문드립니다.

    아래와 같이 특정 색상을 선택하여 삭제하는 리습을 구했습니다.

    삭제 말고 선택한 상태를 유지하고 싶은데.. 선택 후 레이어 변경 등 하려고요..
    어떻게 바꾸면 될까요? command “erase” 부분을 “select” 로 바꾸긴 했는데
    선택된 상태를 유지하지는 않습니다..ㅠㅠ

    (defun c:ec(/ ss OS en ent obj col color layobj sss smemeber color2 ssno num sslen sss )

    (defun *error* (msg)(princ “error: “)(princ msg)
    (setvar “osmode” os) (command “clayer” “0”) (princ) )
    (setq os (getvar “osmode”))

    ;(vl-load-com) 
            (sssetfirst)
            (setq sss nil sss (ssadd))
     (setq en (car (entsel “컬러필터링 삭제 – 기준컬러 객체를 선택”)))
           
            (WHILE ( = EN NIL)
                (setq en (car (entsel “n 컬러필터링 삭제 – 기준컬러 객체를 선택”)))
     )  ;WHILE END 
     
     (setq ent (entget en) color (cdr (assoc 62 ent)) layer (cdr (assoc 8 ent)))

    (if (= nil color)

    (progn  ;;;;;;; bylayer 인 경우의 처리
     (setq obj(vlax-ename->vla-object en))
     (setq col (vla-get-TrueColor obj))
     (setq color(vlax-get col ‘Colorindex))

       (if (= color 256)
        (progn
           (setq layobj (vlax-ename->vla-object (tblobjname “LAYER” (vlax-get obj ‘LAYER))))
           (setq layobj (vla-get-TrueColor layobj))
           (setq color (vla-get-ColorIndex layobj))
           (PRINC “n ColorIndex = “)
           (PRINC COLOR)
        )
       );if end

    );progn end

     
      ;;————————-

    (progn   ;;;;;;; bylayer가 아닌경우의 처리
      (PRINC “n ColorIndex = “)
      (PRINC COLOR)
    );progn end

     ); if end 
     
     
    ;;;;;;;;;;;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ;;;;;;;;;;;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ;;;;;;;;;;;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    (prompt “n객체범위를 선택”)
    (while (/= (setq ss (ssget)) nil)
    (progn
      (if ( = ss nil)
        (exit)
      )
        (setq sslen (sslength ss)
       ssno 0
              num 0)
       
    (while (/= sslen ssno) ;while bbb
    (progn
    (setq smember (ssname ss ssno))
    (setq ssno (+ ssno 1))
    (setq color2 (cdr (assoc 62 (entget smember))))
     
    (if (= nil color2)

    (progn  ;;;;;;; bylayer 인 경우의 처리
     (setq obj (vlax-ename->vla-object smember))
     (setq col (vla-get-TrueColor obj))
     (setq color2 (vlax-get col ‘Colorindex))
     
       (if (= color2 256)
         (progn
           (setq layobj (vlax-ename->vla-object (tblobjname “LAYER” (vlax-get obj ‘LAYER))))
           (setq layobj (vla-get-TrueColor layobj))
           (setq color2 (vla-get-ColorIndex layobj))
         
         );progn end
        );if end
    ) ;progn end
    ) ; if end

     
      (if (= color color2)
         ;(command “erase” smember “” )
         (ssadd smember sss)
      )   ; if end

    );progn end 
    );while-bbb end 

           (command “erase” sss “”)
     );progn end
     );while end

    ) ;defun end

    공유

      관련 있는 질문들

      2 답변

      1. Lv.0

        (command “erase” sss “”)
         ==> (sssetfirst nil sss)
        함수를 사용하면 될 것 같긴한데….

        • 0
      2. Lv.11

        날짜가 오래 되 아직도 구하시는지는 모르겠지만…

        (defun c:TTT(/ entdata entcolour colour layer layerlist layercolourlist layernamefilter strlayer strlayerlen filter)
         (setq entdata (entget (car (entsel “nPls select object color.”))))
         (if (setq entcolour (cdr (assoc 62 entdata)))
          (setq colour entcolour)
          (setq colour (cdr (assoc 62 (tblsearch “layer” (cdr (assoc 8 entdata))))))
         )
         (setq layer (tblnext “layer” T))
         (while layer
          (setq layerlist (append layerlist (list layer)))
          (setq layer (tblnext “layer”))
         )
         (while layerlist
          (if
           (/= colour (cdr (assoc 62 (nth 0 layerlist))))
           (setq layerlist (cdr layerlist))
           (progn
            (setq layercolourlist (append (list (cdr (assoc 2 (nth 0 layerlist)))) layercolourlist))
            (setq layerlist (cdr layerlist))
           )
          )
         )
         (if (= layercolourlist nil)
          (setq filter (list (cons 62 colour) (cons -4 “<not”) (cons 0 “insert”) (cons -4 “not>”)))
          (progn
           (setq strlayer “”)
           (while (car layercolourlist)
            (setq strlayer (strcat strlayer (car layercolourlist) “,”))
            (setq layercolourlist (cdr layercolourlist))
           )
           (setq strlayerlen (strlen strlayer))
           (setq layernamefilter (substr strlayer 1 (1- strlayerlen)))
           (setq filter (list (cons -4 “<or”) (cons -4 “<and”) (cons 8 layernamefilter) (cons 62 256) (cons -4 “and>”) (cons 62 colour) (cons -4 “or>”) (cons -4 “<not”) (cons 0 “insert”) (cons -4 “not>”)))
          )
         )
         (prompt “nPls select object.”)
         (sssetfirst nil (ssget filter))
         (princ)
        )
        색상 선택 리습입니다..
        선택유지됩니다
        • 0