캐드(AutoCAD)에서 AutoLisp 강좌 예제- 사각형(Rectangle) 그리기
AutoLisp 강좌 예제- 사각형(Rectangle) 그리기
AutoCAD에서 AutoLISP을 이용하여 사용자가 입력한 길이와 높이를 기준으로 사각형을 작성하는 프로그램을 작성할 수 있습니다. 이 예제에서는 기본적인 사각형 형태의 사각형을 그리는 방식으로 설명할 것입니다. 사각형을 그릴 때 기본적으로 길이와 높이를 입력받고, 직사각형 형태로 사각형을 그린 후, 사각형에 대한 간단한 형태를 추가합니다.
다음은 AutoLISP 코드를 이용한 사각형(rectangle)을 작성하는 예제입니다:
(defun c:Createrec ()
(setq doorLength (getdist "\n가로 길이를 입력하세요: ")) ; 사각형 길이 입력
(setq doorHeight (getdist "\n세로 높이를 입력하세요: ")) ; 사각형 높이 입력
(setq doorPosition (getpoint "\n사각형을 배치할 시작점을 클릭하세요: ")) ; 배치 시작점 선택
(if (and doorLength doorHeight) ; 길이와 높이가 유효한 값일 때
(progn
;; 외형을 그리기 위한 사각형을 생성
(command "RECTANGLE" doorPosition (list (+ (car doorPosition) doorLength) (+ (cadr doorPosition) doorHeight)))
(princ (strcat "\n길이 " (rtos doorLength 2 2) "와 높이 " (rtos doorHeight 2 2) "로 사각형이 생성되었습니다."))
)
(princ "\n길이 또는 높이가 유효하지 않습니다.")
)
(princ)
(princ "\nCreaterec 명령이 로드되었습니다. 명령을 실행하려면 'Createrec' 를 입력하세요.")
(princ)
)
사용 방법1:
- 1. 이 코드를 AutoCAD의 VisualLISP 편집기에서 입력하고, 저장 후 로드합니다.
- 2. 명령창에 Createrec를 입력 합니다.
- 3. 사각형의 가로 길이와 세로 길이, 위치를 입력하여 사각형을 그립니다.
- 사용 방법2:
- 1. 원하는 이름.lsp 파일을 만들고, 위의 코드를 작성합니다.
- 2. Appload 명령을 이용하여 (원하는 이름.lsp)파일을 선택하여 load 합니다.
- 3. 명령창에 Createrec를 입력 합니다.
- 4. 사각형의 가로 길이와 세로 길이, 위치를 입력하여 사각형을 그립니다.
- 이 코드를 활용하면 쉽게 사각형과 응용한 사각형을 그리고, AutoLisp을 연습할 수 있습니다.
