숫자로 구성된 a,b,c,d값 모두 조건이 만족할 때 다음명령어 실행하려고 하는데 조건문에 어려움이 있어 자문을 구합니다
(defun c:test()
(setq a 5 b 2)
(setq c 3 b 3)
(if (and (>= a b)(= c d));;;;; 조건문 a가 b보다 크거나 같을때 만족하고, c 와 d가 같을때 다음 명령을 실행함
(prompt ” ; 오류: no function definition”))
(setq pt1 (getpoint ” 1st Pick Point: “))
(setq pt2 (getpoint pt1 ” 2nd Pick Point: “))
(Command “Line” P1 P2 “”)
(princ “n <<< ok >>>”)
(princ)
) ; end of defun
공유
(progn
…..
)
을 쓰지 안고 상기 조건식을 만족하여 프로그램이 시작되는 첫줄에서
실행이 되어 만족하면 다음명령어을 실행하고
만족하지 못하면 프로르램을 빠져나가는
방식으로 되는 리습에 자문을 구합니다 감사합니다
감사합니다 집에 가서 해봐야 겠습니다……즐거운 하루 되세요…
오타을 수정하였고 조건식에 대입한 숫자을 오류가 나야 되는데 정상 실행 합니다
어떠게 해야 하나요???? 도와 주세요….
(defun c:test()
(setq a 1 b 2)
(setq c 1 d 3)
(if (and (>= a b)(= c d));;;;; 조건문 a가 b보다 크거나 같을때 만족하고, c 와 d가 같을때 다음 명령을 실행함
(prompt ” ; 오류: no function definition”))
(setq pt1 (getpoint ” 1st Pick Point: “))
(setq pt2 (getpoint pt1 ” 2nd Pick Point: “))
(Command “Line” Pt1 Pt2 “”)
(princ “n <<< ok >>>”)
(princ)
)
오타났네요