홈/ 질문/Q 109231
다음
진행 중
Lv.0
등록일: 2017-12-18T18:05:27+09:00 카테고리:

lisp 뭐가 잘못된것인지 좀 봐주세요

(defun c:pt-tap()
(setq pt (getstring “Enter pt-tap size”)
(if (= pt 1-8) (command “insert” “c:/lisp/pt-tap/pt1-8s.dwg” pause “1” “1” “0”))
(if (= pt 1-4) (command “insert” “c:/lisp/pt-tap/pt1-4s.dwg” pause “1” “1” “0”))
      ))
이렇게 만들었는데 로드가 되지 않네요

공유

    관련 있는 질문들

    5 답변

    1. aalan

    2. / -> //

      • 0

    3.  (command “insert” “c:/lisp/pt-tap/pt1-8s.dwg” pause “1” “1” “0”) 이줄 다른 리습에서 동작이 되는 것입니다. 함수가 잘못지정된거 같은데 잘모르겠습니다.

      • 0
    4. Lv.21

      문자로 받았으니 비교를 문자로 해야 합니다 

      (defun c:pt-tap()
      (setq pt (getstring “Enter pt-tap size”))
      (if (= pt “1-8”) (command “insert” “c:/lisp/pt-tap/pt1-8s.dwg” pause “1” “1” “0”))
      (if (= pt “1-4”) (command “insert” “c:/lisp/pt-tap/pt1-4s.dwg” pause “1” “1” “0”))
       )
      만약에 경로를 못 찾으면 뭐하남님 댓글 참고 하시구요 
      • 0

    5. 감사합니다. 하나 더 알려주세여 여기서 insert 한것을 각도를 입력받으려면 어떻게 하는건가요?

      • 0
    6. Lv.21
      (defun c:pt-tap()
      (setq pt (getstring “Enter pt-tap size”))
      (setq ro(getreal “n각도 입력:”))
      (if (= pt “1-8”) (command “insert” “c:/lisp/pt-tap/pt1-8s.dwg” “r”  ro pause “1” “1” “0”))
      (if (= pt “1-4”) (command “insert” “c:/lisp/pt-tap/pt1-4s.dwg” “r” ro  pause “1” “1” “0”))
       )
      • 0