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

(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

시스템 변수의 값을 나열하거나 변경합니다 !

• getpoint

point 입력받음

• command

커맨드 실행

• pause

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

• getpoint p1 ...

p1을 기준으로 러버밴드를 표시함

• commend의 ""

엔터명령