리습 if ,and 조건문에 어려움이 있어 자문을 구합니다. 해결사 요청합니다
컨텐츠 정보
- 246 조회
- 5 댓글
- 0 추천
- 0 비추천
- 목록
본문
숫자로 구성된 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
관련자료
hsunbae님의 댓글
오타을 수정하였고 조건식에 대입한 숫자을 오류가 나야 되는데 정상 실행 합니다 어떠게 해야 하나요???? 도와 주세요…. (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) )
상큼메론90님의 댓글
progn을 이용해 보세요~
(defun c:test () (setq a 1 b 2) (setq c 1 d 3)
(if (and (>= a b)(= c d));;;;; 조건문 a가 b보다 크거나 같을때 만족하고, c 와 d가 같을때 다음 명령을 실행함 (progn (setq pt1 (getpoint " 1st Pick Point: ")) (setq pt2 (getpoint pt1 " 2nd Pick Point: ")) (Command "Line" Pt1 Pt2 "")) (progn (prompt " ; 오류: no function definition"))
) ;if (princ "n <<< ok >>>") (princ) )