``` LISP

(defun c:exo2 ()
  (setvar "cmdecho" 0)
  (setq p1 (getpoint "\n첫번째 점 : "))
  (setq p2 (getpoint p1 "\n두번째 점 : "))

  (command "line" p1 p2 "")
  ; (command "chprop" "l" "" "c" pause "")
  (command "circle" "2p" p1 p2)
  (command "chprop" "l" "" "c" 2 "")
  (command "rectang" p1 p2 "")
  (command "chprop" "l" "" "c" "green" "")
  
  (princ)
  
)

```

- setvar
> 시스템 변수의 값을 나열하거나 변경합니다
> ![[Pasted image 20221228170541.png]]

- getpoint
> point 입력받음

- command
> 커맨드 실행

- pause
> 커맨드 일시정지후 해당 값 입력 받음(커맨드에서 입력, 예제에서는 색상)

- getpoint p1 ...
> p1을 기준으로 러버밴드를 표시함

- commend의 ""
> 엔터명령