원과 연관되는 중심 표시 리습

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

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

명령어 : ACL

ACL.lsp

아무래도 자기 입맛에 딱 맞게 그려지지 않는다면 아래를 보시고 수정해보세요.
수정은 리습파일을 더블 클릭해서 메모장에서 수정하면 됩니다.
수정 후엔 리습을 다시 로드해야합니다.
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으로하면 녹색이 되겠죠.
제가 리습을 잘 몰라서 박성우님 도움을 받았습니다.