캐드(AutoCAD)에서 AutoLisp 강좌 예제 - 좌표값을 도면에 지시선으로 표시
AutoLisp 강좌 예제 - 좌표값을 도면에 지시선으로 표시
AutoCAD에서 AutoLISP을 이용하여, 특정 위치의 좌표를 지시선으로 도면에 작성할 수 있습니다.
이 예제에서는 기본적인 좌표를 표시하는 Lisp 프로그램을 설명합니다.
QLEADER를 활용하여 첫번째 지점의 좌표를 XY형식의 문자로 도면에 표시하는 구문이며, Command문을 이용하여 작성합니다.
다음은 AutoLISP 코드를 이용한 좌표값을 도면에 지시선으로 표시(xyt)을 작성하는 예제입니다:
예제코드:
;================================================
; 좌표값을 도면에 지시선으로 표시
;================================================
(defun c:xyt()
(princ "좌표값를 지시선으로 표시....\n")
(setq pt1 (getpoint "좌표 지점:"))
(setq pt2 (getpoint pt1 "다음점:"))
(setq px (car pt1))
(setq py (cadr pt1))
(setq pxtext (strcat "X:" (rtos px 2 2))) ;x좌표값 문자 소숫점 2자리
(setq pytext (strcat "Y:" (rtos py 2 2))) ;y좌표값 문자 소숫점 2자리
(command "QLEADER" pt1 pt2 "" "" pxtext pytext "");리더를 이용한 화살표 구현
(princ)
)
설명:
1. getpoint를 이용하여 기준점(문자로 표시될 좌표점)을 클릭합니다.
2. getpoint를 이용하여 좌표 문자표시 위치를 클립합니다.
3. car과 strcat, rtos를 활용하여, 좌표의 소수2자리까지 표시합니다.
4. Command 함수를 이용하여 QLEADER를 이용하여 지시선으로 표시하고, MText로 좌표를 작성합니다.
사용 방법1:
1. 이 코드를 AutoCAD의 VisualLISP 편집기에서 입력하고, 저장 후 로드합니다.
2. 명령창에 xyt를 입력 합니다.
3. 작성할 좌표 기준점과 문자가 표시될 위치를 클릭합니다.
사용 방법2:
1. 원하는 이름.lsp 파일을 만들고, 위의 코드를 작성합니다.
2. Appload 명령을 이용하여 (원하는 이름.lsp)파일을 선택하여 load 합니다.
3. 명령창에 xyt를 입력 합니다.
4. 작성할 좌표 기준점과 문자가 표시될 위치를 클릭합니다.
이 코드를 활용하면 쉽게 좌표를 문자로 표시하고, 다른 리습프로그램을 응용할 수 있습니다.
AutoLisp을 예제와 함수를 연습할 수 있습니다.