[AutoLISP 강의] 유튜버 엠찌캐드_나도해 LISP #2 복습

'setvar'
시스템 변수를 설정하는 명령(함수)
<형식>
(setvar "시스템변수" 값)
→ 시스템변수를 값으로 설정하라.

 

'getpoint'
좌표를 입력 받는 명령(함수)
<형식>
(getpoint)
→ 좌표를 입력 받아라.
※ 활용예...) (setq p1 (getpoint "\n첫번째 점 입력하세요... : "))
                → 줄바꾸고 "첫번째 점 입력하세요"라는 문구를 띄우고, 좌표를 입력받아서, 그 좌표를 p1에 저장해라.

 

'command'
지정한 명령을 순차적으로 실행시키는 명령(함수)
<형식>
(command A B C D...)
→ A실행 → B실행 → C실행 → D실행 ...

 

코드
(defun c:exo2 ()

  (setvar "cmdecho" 0)
  (setq p1 (getpoint "\n첫번째 점 입력하세요... : "))
  (setq p2 (getpoint p1 "\n두번째 점 입력하세요... : "))
  (setq p3 (getpoint p1 "\n3번째 점 입력하세요... : "))
  (setq p4 (getpoint p1 "\n4번째 점 입력하세요... : "))

  (command "line" p1 p2 "")
  (command "chprop" "l" "" "c" 1 "")
  (command "circle" "2p" p1 p2 )
  (command "chprop" "l" "" "c" 2 "")
  (command "rectang" p1 pause)
  (command "chprop" "l" "" "c" 3 "")

  (princ)

)