성심 성의껏 질문을 작성하여 주세요, 대충하시면 답변도 대충작성합니다.^^
- 제목 작성시 금지어
만들어주세요? 해주세요? 안되는데 이렇게 변경해주세요? 등등
- 특정분과 질문은 제목에 분과삽입 [건축]
좋은예) [분과]무엇에 대해 문의합니다. /[분과]B로 바꾸는 방법을 알고싶습니다.
- 말머리 필수
① CAD 종류 : 오토캐드
② VERSION : 2011
③ 운영 체제 :win7 64
(defun c:LT ( / ss )
(vl-load-com)
(if (setq ss (ssget))
(if (tblsearch "LAYER" "TAP")
(mapcar
'(lambda (x y)
(vla-put-layer x "TAP")
)
; (mapcar 'vlax-vla-object->ename
(mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
)
(vl-cmdf "layer" "n" "TAP" "c" 2 "TAP" "l" "CONTINUOUS" "TAP" "" "")
)
)
(princ)
)<===============TAP레이어로 바꾸는 구문(3:16)
(defun bcc(ents / ents ent entl laname)
(command "undo" "be")
(setvar "cmdecho" 0)
(prompt " (color, ltype) Bylayer를 레이어속성에 맞추어 변경하기")
(setq ents (ssget ":L"))
(defun dxf (id lst)(cdr (assoc id lst)))
(defun layer_cn (laname) (dxf 62 (tblsearch "layer" laname)))
(defun layer_lt (laname) (dxf 6 (tblsearch "layer" laname)))
(setq i 0)
(repeat (sslength ents)
(setq entl (entget (setq ent (ssname ents i))))
(if (= (dxf 62 entl) nil)
(progn
(setq laname (dxf 8 entl))
(setq entl (entmod (append entl (list (cons 62 (layer_cn laname))) )))
)
)
(if (= (dxf 6 entl) nil)
(progn
(setq laname (dxf 8 entl))
(setq entl (entmod (append entl (list (cons 6 (layer_lt laname))))))
)
)
(setq i (1+ i))
)
(command "undo" "end")
)<===============BYLAYER을 칼라로 바꾸는 리습(하얀제비님)
위 2가지 리습을 하나로 묶어서 객체를 선택하면 레이명은 "TAP" BYLAYER은 COLOR로 바뀌게 하고 싶습니다. 도움 부탁 드립니다.
수고하세요!!
⑤ 파일첨부 (LISP/DWG) - DWG 첨부시 보다 정확한 답변을 얻을수 있습니다.
※ 유의사항
- ①말머리 : 말머리를 달아야 구분이 쉽겠죠^^
- ②Screenshot : 이해를 돕기위해 삽입요망.
- ③파일 첨부 : 상위버전에서 테스트할 파일이 아니면 가급적 하위버전으로 저장후 첨부.
해당리습/해당파일(DWG) 도 같이 첨부하여 주세요.
- ④제 목 : 질문 내용 반영(개략적인 내용), 예) 해치를 만들고 싶어요, pline을 연결할려면?
- ⑤질문글 삭제금지 : 질문후 댓글이 달린글은 삭제금지.
여러 리플러들이 소중한 시간을 내어서 고민한후 댓글을 작성한 이상 "강력조치" 토록 하겠음.
※ 정답만이 댓글은 아닙니다. 그 답이 맞던 틀리던 그건 그 댓글로서 존중되어야 합니다.
회원님들이 글을 읽었다는것과 댓글을 달았다는건 그만큼 관심을 가지고 있고 또 그 답을 해주기 위해
검색도 해보고 도움말도 보고 고민도 하는 일련의 과정을 거치면서 나오기 때문이죠.
이에 대한 고마움과 감사함을 모르는 테러행위(?)는 없었으면 합니다.
