게시판 아무리 뒤져도 제가원하는것을 찾기가 어려벤요.
하나선택한후 지정해주면 그걸로 다 바뀌는건 찾았는데
제가 찾는것은
이를테면 layerchange라고 치면
dim레이어의 색깔이 흰색, 두께는 0.09mm로 바뀌고
layerundo 뭐 이런식으로 입력하면
dim레이어가 연두색, 두께는 0.3mm로 바뀌는겁니다.
간단한 리습일수도있는데 초보이다보니…어렵네요..
제가 구한 리습소스를 올리면 아래와같습니다.
(defun c:cch ()
(_> (setq ent (car (entsel “nOBJECT SELECT.. : “)))
(_> (if (= ent nil)
((_> (progn
(((_> (alert “n객체가 선택되지 않았습니다.”)
(((_> (setq ent (car (entsel “nOBJECT SELECT.. : “)))
(((_> )
((_> (progn
(((_> (setq get (entget ent))
(((_> (setq lay (cdr (assoc 8 get)))
(((_> (setq tar (ssget “x” (list (cons 8 lay))))
(((_> )
((_> )
(_> (setq tar_c (acad_colordlg 1))
(_> (command “chprop” tar “” “c” tar_c “”)
(_> (princ)
(_> )
부탁드려요