Obsidian/Recognition/Tools/AutoCAD/autoCAD 선,원그리기.md

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의 ""
> 엔터명령