-> 4-15 wc.lsp=wall center draw (벽체 중심선 그리기) -> 수정(2007.7.1)

[주말농부]

4-15 wc.lsp=wall center draw (벽체 중심선 그리기) -> 수정(2007.7.1)
       두선의 중간에 중심선을 그리는 명령어 (평행유무에 관계없음)

       중심선 레이어 선택기능 추가 (2007.7.1)

       라인일 때만 인식됨 / 연속선택 기능

특정레이어로 고정시...아래부문을 변경하세요.

-->

   (setq en3 (car (entsel "\n중심선레이어 선택<현재레이어>: ")))
   (if (= en3 nil) (setq ln cl)
       (setq ln (cdr (assoc 8 (entget en3)))) )
   (setvar "clayer" ln)

<--요 부분을 아래와 같이 고치세요

;   (setq en3 (car (entsel "\n중심선레이어 선택<현재레이어>: ")))
;   (if (= en3 nil) (setq ln cl)
;       (setq ln (cdr (assoc 8 (entget en3)))) )
   (setvar "clayer" "center") ;->center부분에 원하는 레이어을 적으세요...

앞에 ;(세미콜론)을 표기하면 뒤에 나오는 구문이 무시됩니다. 위에서 3줄에 ;을 표기하거나 삭제하셔도

됩니다. 단 마지막 줄은 레이어의 정의부분이니 원하는 레이어을 표기하세요^^

첨부파일첨부된 파일이 2개 있습니다.

• png 파일 wc.png
• etc 파일 wc.lsp

[남극빙산]

수정 감사합니다. 한가지 만 더 질문!! 현재 레이어선택으로 되어 있는데 이부분을 1번이나 제가 지정한 레이어로 고정 할려면 어떻게 해야 하나요?

[주말농부]

사용법 아래에 추가했습니다.^^