캐드 분류
캐드 번호키로 색상 넣기 수정 부탁 드립니다.
컨텐츠 정보
- 136 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요 날씨가 아직도 춥내요 ㅎㅎ
캐드 번호키로 색상 넣는 리습인데요
현재는 번호키로 색상 및 레이어까지 같이 변합니다.
예를 들어서 1번 적색 -0001레이어…
이런식으로요
근데 전 색상 만 변경 하고 싶어서요 레이어는 0번 레이어에 모두 넣고요 가능할까요?
추가로 선종류를 노랑색은 DASHED , 청색은 PHANTOM2 나머지 색상은 실선으로 하고싶습니다.
고수님들 부탁 드립니다.!!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:1()
;(COMMAND "-layer" "S" 0 "" "" )
(if (= nil (tblsearch "layer" "0001″))
(COMMAND "layer" "m" "0001″ "c" 1 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0001″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:2()
(if (= nil (tblsearch "layer" "0002″))
(COMMAND "layer" "m" "0002″ "c" 2 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0002″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:3()
(if (= nil (tblsearch "layer" "0003″))
(COMMAND "layer" "m" "0003″ "c" 3 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0003″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:4()
(if (= nil (tblsearch "layer" "0004″))
(COMMAND "layer" "m" "0004″ "c" 4 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0004″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:5()
(if (= nil (tblsearch "layer" "0005″))
(COMMAND "layer" "m" "0005″ "c" 5 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0005″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:6()
(if (= nil (tblsearch "layer" "0006″))
(COMMAND "layer" "m" "0006″ "c" 6 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0006″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:7()
(if (= nil (tblsearch "layer" "0007″))
(COMMAND "layer" "m" "0007″ "c" 7 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0007″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:8()
(if (= nil (tblsearch "layer" "0008″))
(COMMAND "layer" "m" "0008″ "c" 8 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0008″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:9()
(if (= nil (tblsearch "layer" "0009″))
(COMMAND "layer" "m" "0009″ "c" 9 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0009″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:11()
(if (= nil (tblsearch "layer" "0011″))
(COMMAND "layer" "m" "0011″ "c" 1 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0011″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:22()
(if (= nil (tblsearch "layer" "0022″))
(COMMAND "layer" "m" "0022″ "c" 2 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0022″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:33()
(if (= nil (tblsearch "layer" "0033″))
(COMMAND "layer" "m" "0033″ "c" 3 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0033″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:44()
(if (= nil (tblsearch "layer" "0044″))
(COMMAND "layer" "m" "0044″ "c" 4 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0044″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:55()
(if (= nil (tblsearch "layer" "0055″))
(COMMAND "layer" "m" "0055″ "c" 5 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0055″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:66()
(if (= nil (tblsearch "layer" "0066″))
(COMMAND "layer" "m" "0066″ "c" 6 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0066″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:77()
(if (= nil (tblsearch "layer" "0077″))
(COMMAND "layer" "m" "0077″ "c" 7 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0077″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:88()
(if (= nil (tblsearch "layer" "0088″))
(COMMAND "layer" "m" "0088″ "c" 8 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0088″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:99()
(if (= nil (tblsearch "layer" "0099″))
(COMMAND "layer" "m" "0099″ "c" 9 "" "l" "continuous" "" ""))
(setq ss (ssget))
(command "change" ss "" "p" "la" "0099″ ""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:ff()
(COMMAND "detlfind")
관련자료
댓글 2
.gif)
