CAD/자료2011. 2. 18. 12:43


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

이 리습은 객체를 선택하여 면적을 표기하는 리습입니다.
리액터가 적용되어 있어 객체의 그립점을 변경하면 변경된 면적이 자동으로 변경 표기됩니다.



주의 사항
1. 객체는 LW폴리선이어야합니다.(2D 폴리선, 3D 폴리선은 안됩니다)
2. 객체를 선택하기 전에 면적을 표기할 문자가 미리 써져 있어야 합니다.

실행 과정
1. Select polyline to get area of : 면적을 산출할 객체를 선택합니다.
2. Select text of hold area value : 면적을 표기할 문자를 선택합니다.

소수점은 두자리로 산출되며 소수점을 변경하려면 메모장 등으로 리습 파일을 열어
(vla-put-TextString TextObj (rtos SqFt 2 2))  빨간 부문 문자를 고치고 다시 로드하면됩니다.

기타 수정 사항은 제가 리습을 몰라 수정이 안되니 캐드 커뮤니티 사이트나 카페 등에 요청하시면 될것같습니다.

명령어 : ARER

ARER.lsp
다운로드

 

면적 산출 단위를 수정하려면
예를들어 1000 x 1000 사각형을 그린 경우  리습으로 면적을 구하면
면적이 1,000,000이 나옵니다
그런데 토목, 기계, 구조, 건축 등 분야별로 다 면적 단위 표기 달라서
1000 x 1000 사각형의 면적이 1 로 나오게 하고 싶다면
리습 파일을 열어
(setq SqFt (vla-get-Area PolyObj)) 이 부분을 아래처럼 고치고 저장 후 다시 로드하면됩니다.
(setq SqFt (/ (vla-get-Area PolyObj) 1000000))
즉, 구해진 면적(vla-get-Area PolyObj)을 1000000 으로 / 하겠다는 것이죠.다른 예로 곱하기 1000을 하고 싶다면
(setq SqFt (* (vla-get-Area PolyObj) 1000)) 으로 고치면됩니다.

 

MM 도면용으로 수정된 것은 아래 파일 참고해보세요.

 

ARER2.lsp
다운로드

 

M 도면 평으로 수정된 것은 아래 파일 참고해보세요.

ARER3.lsp
0.01MB

MM 도면 평으로 수정된 것은 아래 파일 참고해보세요.

ARER4.lsp
0.01MB

'CAD > 자료' 카테고리의 다른 글

원의 외곽 접선을 그리는 리습  (0) 2011.02.20
객체 변형 리습  (10) 2011.02.18
레이어별 객체의 길이 산출 리습  (4) 2011.02.18
간편한 객체 필터 선택 리습  (0) 2011.02.18
폴리선 정점에 객체 삽입 리습  (2) 2011.02.18
Posted by 아저씨~