Re:Re:색상변경 리습 수정부탁드립니다~ ㅡㅡ;;

[하얀제비]

확인해보세요...
;;=====================================================
;  색상바꾸기(2002.03 주말농부)
;  ->현재레이어 또는 선택객체의 색상을 바꾸는 명령어
;  ->선택객체바꾸기 추가(2008.1.6)
;;------ color change ---------------------------------
(defun c:cc(/ cl ss ocn ncn en ent )
   (setq cl (getvar "clayer"))
   (prompt "\n색상변경할 객체선택<현재레이어 변경>->")
   (setq ss (ssget))
   (if ss
      (progn
         (setq ent (nentsel "\n색상참조할 객체선택->"))
(if ent
   (progn
     (setq en (car ent))
     (setq ncn (cdr (assoc 62 (entget en))))
     (if (or (= ncn nil) (= ncn 256))
       (setq ncn (abs (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 (entget en))))))))
     )
     (if (= ncn 0) (setq ncn "byblock"))
   )
   (progn
     (setq ocn 256)
     (setq ncn (acad_colordlg ocn))
     (if (= ncn 256) (setq ncn "bylayer"))
     (if (= ncn 0) (setq ncn "byblock"))
   )
)
         (vl-cmdf "change" ss "" "p" "c" ncn "")
      )
      (progn
         (setq entl (tblsearch "layer" cl))
         (setq ocn (cdr (assoc 62 entl)))
         (setq ncn (acad_colordlg ocn nil))
         (vl-cmdf "layer" "c" ncn cl "")
      )
   )
(prin1))

cc.lsp

첨부파일첨부된 파일이 1개 있습니다.

• etc 파일 cc.lsp

[호당]

하얀제비님 정말 감사합니다~~~ 즐거운 주말 보내세요~~~~~ ^^

[날자!♡신신애♡]

수고하셨습니다.

[매운고추]

감사합니다 잘 쓸쎄요~~

[Wizard]

선택창에서 트루컬러 추가 가능할까요?

[自由天地]

(setq ent (nentsel "\n색상참조할 객체선택->")) 에서 객체선택이 않되면 색상선택 다이얼로그박스가 뜨게끔 되어있는 구조입니다