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