색바꾸기

 
               AutoCAD에서 entity의 색을 바꾸는 방법은 몇가지가 있습니다. chprop, ddchpro등
               이 그것입니다. 하지만 이런 명령들을 사용하여 색을 바꾸려면 한번의 키입력을 
               더 해줘야 원하는 색으로 바꿀 수 있습니다. 이러한 불편을 없애고 빠르게 색을 
               바꿀 수 있도록 아래와 같은 프로그램을 만들었습니다.        

                  CH1, CH2, CH3, CH4, CH5, CH6, CH7

 
               사용예 
               command: ch1                    [entity의 색을 빨간색(color=1)으로 바꾸기]
               Select objects: {entity선택}       
               Select objects:                 [entity선택 끝냄] 
               
               CH1이라고 세글자까지 타이핑하는 것도 귀찮다면 c:\acad\support방의 acad.lsp를 
               열고 CH1명령을 정의한 부분을 아래와 같이 고쳐서 1와 같이 한큐(?)에 명령
               을 내릴 수 있도록 할 수도 있습니다.
               

(defun C:CH1()      →  (defun C:1()
  (setvar "CMDECHO" 0)
  (setq ss (ssget))
  (command "CHPROP" ss "" "C" "1" "")
  (setvar "CMDecho" 1)
  (princ)
) ;of defun