안녕하세요 날씨가 아직도 춥내요 ㅎㅎ
캐드 번호키로 색상 넣는 리습인데요
현재는 번호키로 색상 및 레이어까지 같이 변합니다.
예를 들어서 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”)
정말 감사드립니다.!!많은 도움 되었습니다.