38 lines
759 B
Markdown
38 lines
759 B
Markdown
``` 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의 ""
|
|
> 엔터명령 |