[AutoLisp]오토캐드 AutoLisp 강좌 예제 - 오토리습을 이용한 사각형(Rectang) 만들기 예제

AutoLisp을 공부하는 분들께 도움이 되고자, 사각형(Rectang)을 그리는 Lisp 예제를 만들어 보았습니다.
아래의 내용을 이해해 주시고, 문법 및 함수는 [AutoLisp 문법 설명 참조]를 확인바랍니다.

Rectang.lsp

0.00MB

Rectang 사각형 그리기를 Lisp으로 구현함.
(defun c:rec1()
(setq ptLB(getpoint "\n좌측 하단점:"))
(setq ptRT(getcorner ptLB "\n우측 상단점:"))
(setq ptLT(list (car ptLB) (cadr ptRT) 0))
(setq ptRB(list (car ptRT) (cadr ptLB) 0))
(command "pline" ptLB ptLT ptRT ptRB "c")
(princ)
)

Rectang.lsp

0.00MB

코드 설명 :
1. GetPoint : 사용자에게 Point(좌표)를 받는다.
2. GetCorner : 사용자에게 사각 Drag형식으로 Point(좌표)를 받는다.
3. List : 리스트를 정의한다. (각각의 좌표의 x, y, z)값을 좌표 리스트로 만든다.
4. Command : AutoCAD 명령을 수행한다.

AutoLisp 문법 설명은 아래의 링크를 참조하세요.
[AutoLisp 문법 설명 참조]

사용 방법1:

1. 이 코드를 AutoCAD의 VisualLISP 편집기에서 입력하고, 저장 후 로드합니다.
2. 명령창에서 ChangeTextFont 명령을 입력합니다.
3. 폰트 이름을 입력합니다. (예: test)
4. 폰트 스타일 변경하고자 하는 Text, MText를 모두 선택합니다.
5. 변경된 폰트 스타일을 확인합니다.

사용 방법2:

1. Rectang.lsp 파일을 다운받아 원하는 위치에 복사합니다.
2. Appload 명령을 이용하여 ( Rectang .lsp)파일을 선택하여 load 합니다.
3. 명령창에서 rec1명령을 입력합니다.
4. 좌측하단 점 클릭, 우측상단 점 클릭

• AutoCAD에서 AutoLisp 로드 Appload 자세히 알아보기