리습을 실행하면, 이렇게 뜨는데 수정 좀 부탁드립니다.
알 수 없는 명령 “VB”. 도움말을 보려면 F1을 누르십시오.
(defun c:vb()
(setvar “cmdecho” 0)
(setq a (getint “(평면도 0/ 우측정면도 1/ 좌측정면도 2/ 배면도 3): “))
(cond ((= a 0) (command “vpoint” “0,0,1” “”)) ;조건0 (a=0)일경우만 수행
((= a 1) (command “vpoint” “1,-1.2,1” “”)) ;조건1 (a=1)일경우만 수행
((= a 2) (command “vpoint” “1,1.2,1” “”)) ;조건2 (a=2)일경우만 수행
((= a 3) (command “vpoint” “-1.2,-1,1” “”)) ;조건3 (a=3)일경우만 수행
(t (prompt “Out of range.”))
(setvar “cmdecho” 1)
)
(princ))