캐드 원 중심선 리습 - kaedeu won jungsimseon liseub


CAD,LISP

선택한 원의 중심선 그려주기

2019. 1. 12. 13:34

파 일 명 : CenterLine.lsp

기     능 : 선택한 원의 중심선 그려주기

명 령 어 : CL1

사 용 법 :>> Select circle :   중심선을 그려줄 원을 선택합니다.

선택한 원의 중심선을 그려줍니다.

출처 : https://zwcad.co.kr:48193/SupportBoard3/4635

오토캐드 2018 이후 버전의 중심표식 및 중심선 넣기

오토캐드 2018버전이후에서는 아래 그림과 같이 주석 명령에 중심선 탭이 생기고 중심표식과 중심선이라는 메뉴가 생겼습니다. 사용법 역시 아주 간단합니다.

캐드 원 중심선 리습 - kaedeu won jungsimseon liseub

원일 경우는 중심표식 아이콘을 클릭하거나 명령어 CENTERMARK(단축키 : CM)를 입력후 엔터를 치고 원의 일부를 선택합니다.

캐드 원 중심선 리습 - kaedeu won jungsimseon liseub

원을 클릭과 동시에 십자형태의 중심표식이 생기게 됩니다. 선의 종류역시 CENTER2로 변경되며 원의 바깥쪽으로 연장되는 선의 길이는 3.5로 고정되어 있습니다.

캐드 원 중심선 리습 - kaedeu won jungsimseon liseub


AutoCAD, autocad lisp, CADIAN, circle, LISP, 레이어, 리습, 중심선, 중심선 넣기, 캐디안

반응형

캐드 원 중심선 리습 - kaedeu won jungsimseon liseub

 원의 중심선 넣는 리습입니다. 다른거 많이 써봤는데 이게 제일 직관적이고 쉽습니다. 자동으로 중심선 생성되는 리습도 찾아봤습니다만, 블록처럼 객체 특성이 원이나 호로 되어있지 않으면 안되는 것들이 많더라구요. 이 리습은 객체특성 상관없이 중심선을 넣을 수 있는 리습입니다.


원 중심선 넣는 리습


캐드 원 중심선 리습 - kaedeu won jungsimseon liseub

cc 중심점 클릭 스페이스 길이 적당한곳에 클릭
cc  중심점 클릭 → x (수평선 억제원할경우)  스페이스  길이 적당한곳에 클릭
cc  중심점 클릭 → y (수직선 억제원할경우)  스페이스  길이 적당한곳에 클릭

  명령어는 cc입니다. 중심선을 만들어서 돌리고 잘라내고 하는 과정을 생략할 수 있어 아주 편리하게 사용중인 리습입니다. 

중심선 넣기.lsp

0.00MB

반응형

저작자표시비영리변경금지

'빠른퇴근 프로젝트 > 캐드 팁' 카테고리의 다른 글

캐드 빠르게 하기  (2) 2021.01.05
선 쉽게 늘리는 리습  (3) 2021.01.04
절반만 offset 하는 리습  (0) 2020.12.30
치수선 및 치수보조선 가시성 제어 리습  (2) 2020.12.30
Grid, Dimscale, LineTypeSCale, Snap을 한가지 명령어로 셋팅하기  (0) 2020.12.29

NAME

PASSWORD

HOMEPAGE

SECRET

출처 : http://www.theswamp.org/

원에 중심 표시를 하는 리습인데 중심 표시가 원과 연관되어 원을 움직이면 중심 표시도 따라 움직입니다.
아래 그림을 보시면 어떤 리습인지 바로 이해가 될듯하네요.
그림에 나오지는 않지만 원의 크기를 조절해도 중심 표시 크기가 함께 변경됩니다.
중심 표시는 원의 지름 1.25배로 설정되어 있습니다.

명령어 : ACL

아무래도 자기 입맛에 딱 맞게 그려지지 않는다면 아래를 보시고 수정해보세요.
수정은 리습파일을 더블 클릭해서 메모장에서 수정하면 됩니다.
수정 후엔 리습을 다시 로드해야합니다.
appload에 올려져 있다면 다시 로드할 필요없이 새 도면부터 바로 수정사항이 적용됩니다.

중심 표시 비율을 수정하려면
리습 맨위에 아래 빨간색 부분을 원하는 숫자로 수정하세요 (현재는 1.25배)
(setq cl:ratio

1.25 cl:app "LMAC_CL")

특정 레이어에 중심 표시가 그려지게 하고 싶다면
(list (cons 0 "LINE") (cons 10 p1) (cons 11 p2) (cons 6 "center") 이 부분을 찾아 뒤에
(cons 8 "A") 라고 붙이면 A 레이어에 중심 표시가 그려집니다.
즉, 아래 같이 수정하면 됩니다.
(list (cons 0 "LINE") (cons 10 p1) (cons 11 p2) (cons 6 "center") (cons 8 "A")

Center라인이 아닌 다른 라인 타입으로 하고 싶다면
리습 맨 위에 아래 빨간색을 원하는 라인 타입 이름으로 고치고
(if (= (tblsearch "ltype" "

center") nil)
  (command "linetype" "l" "center" "acad.lin" "")
)
아래 빨간 부분도 원하는 라인 타입 이름으로 고치세요
(list (cons 0 "LINE") (cons 10 p1) (cons 11 p2) (cons 6 "center")

라인 축척을 지정하고 싶다면
(list (cons 0 "LINE") (cons 10 p1) (cons 11 p2) (cons 6 "center") 이 부분 뒤에
(cons 48 0.1) 라고 붙이면 선 축척이 0.1이 됩니다.
즉, 아래 같이 수정하면 됩니다.
(list (cons 0 "LINE") (cons 10 p1) (cons 11 p2) (cons 6 "center") (cons 48 0.1)

위에 설정했던 레이어를 설정했다면 함께 적어도 됩니다.(= 이어 붙여 추가하면 됩니다)
(list (cons 0 "LINE") (cons 10 p1) (cons 11 p2) (cons 6 "center") (cons 8 "A")  (cons 48 0.1)

중심선의 색상을 ByLayer가 아닌 임의의 색상으로 그리고 싶다면
(list (cons 0 "LINE") (cons 10 p1) (cons 11 p2) (cons 6 "center")
이부분을
(list (cons 0 "LINE") (cons 10 p1) (cons 11 p2) (cons 6 "center") (cons 62 2)
이렇게 하면 노란색으로 그려집니다.
(cons 62 2) 에서 2를 1로 하면 빨간색, 3으로하면 녹색이 되겠죠.
제가 리습을 잘 몰라서 박성우님 도움을 받았습니다.