CAFE

★ CAD/LISP/분과 Q&A

[[Lisp]]색상변경 리습 수정부탁드립니다~ ㅡㅡ;;

작성자호당|작성시간10.10.08|조회수704 목록 댓글 15

 

성심 성의껏 질문을 작성하여 주세요, 대충하시면 답변도 대충작성합니다.^^

 

 - 제목 작성시 금지어

   만들어주세요? 해주세요? 안되는데 이렇게 변경해주세요? 등등

- 특정분과 질문은 제목에 분과삽입 [건축] 

   좋은예) [분과]무엇에 대해 문의합니다. /[분과]B로 바꾸는 방법을 알고싶습니다.

- 말머리 필수 

 ① CAD 종류   : autocad

② VERSION   : 2008

③ 운영 체제    : 윈도우xp

  

④ 질문내용 및 스크린샷(동영상)

    주말농부님께 감사드리며.....

    리습실행 후 바로 색상창이 뜨는데요~ 색상창 뜨기 전에 화면에 있는 객체를 선택하여 선택한 객체와 같은 색상으로 바꾸고자 합니다. 화면에 원하는 색상이 없을경우 스페이스바를 한번 더치면 색상창이 뜨도록 할 수 있었으면 하네요~ 화면에 있는 객체와 같은 색으로 바꾸고자 할경우에는 불편점이 있어서 그렇습니다.

MATCHPROP를 하면 레이어까지 같아져 버려서요~(텍스트일 경우에는 각도까지 같아지네용 ㅜ..ㅜ)

환절기에 건강관리 잘하시구요~ 잘 부탁 드려용~~~ ^^;;

 

이번에는 양식에 잘 맞게 했는지요~ ^^

 

 

 

⑤ 파일첨부 (LISP/DWG) - DWG 첨부시 보다 정확한 답변을 얻을수 있습니다.

 

 

;;=====================================================
;  색상바꾸기(2002.03 주말농부)
;  ->현재레이어 또는 선택객체의 색상을 바꾸는 명령어
;  ->선택객체바꾸기 추가(2008.1.6)
;;------ color change ---------------------------------
(defun c:cc(/ cl ss ocn ncn)
   (setq cl (getvar "clayer"))
   (prompt "\n색상변경할 객체선택<현재레이어 변경>->")
   (setq ss (ssget))
   (if ss
      (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))

 

 

 

 

 

※ 유의사항

 

 - ①말머리 : 말머리를 달아야 구분이 쉽겠죠^^

 - ②Screenshot : 이해를 돕기위해 삽입요망.

 - ③파일 첨부 : 상위버전에서 테스트할 파일이 아니면 가급적 하위버전으로 저장후 첨부.

                          해당리습/해당파일(DWG) 도 같이 첨부하여 주세요.

 - ④       목 : 질문 내용 반영(개략적인 내용),       예) 해치를 만들고 싶어요, pline을 연결할려면?

 - ⑤질문글 삭제금지 : 질문후 댓글이 달린글은 삭제금지.

    여러 리플러들이 소중한 시간을 내어서 고민한후 댓글을 작성한 이상 "강력조치" 토록 하겠음. 

 

※ 정답만이 댓글은 아닙니다. 그 답이 맞던 틀리던 그건 그 댓글로서 존중되어야 합니다.

    회원님들이 글을 읽었다는것과 댓글을 달았다는건 그만큼 관심을 가지고 있고 또 그 답을 해주기 위해

    검색도 해보고 도움말도 보고 고민도 하는 일련의 과정을 거치면서 나오기 때문이죠.

    이에 대한 고마움과 감사함을 모르는 테러행위(?)는 없었으면 합니다.

 

 

 

 

다음검색
현재 게시글 추가 기능 열기

댓글

댓글 리스트
  • 작성자3:16 | 작성시간 10.10.08 댓글 쓰는란이 좋아지니까...답글보단 댓글이 더 많아 진거 같네요^^*
  • 답댓글 작성자『형진`s』 | 작성시간 10.10.08 제작품은 완성이 되었나요?^^
  • 작성자3:16 | 작성시간 10.10.08 초고수분들의 대화를 지켜보는 1인^^;;; ㅎㅎ
  • 답댓글 작성자하얀제비 | 작성시간 10.10.08 전 초고수아닌데여? ㅎㅎ 초고수님은 3:16님이잖습니까? ㅋㅋㅋ
  • 답댓글 작성자Crony | 작성시간 10.10.08 하얀제비님 말씀에 동감합니다^^
댓글 전체보기
맨위로

카페 검색

카페 검색어 입력폼