홈/ 질문/Q 108995
다음
진행 중
Lv.0
등록일: 2017-10-16T14:35:44+09:00 카테고리:

(lisp문의)숫자 입력은 되는데 크기 입력을 하면 에러가 나는거 같습니다.

오토캐드 맵3D 사용하고있습니다 교육을 받다가 처음 lisp 배웠는데 하나가 안되어서 질문 드립니다.(이 자료는 강사님한테 받은거입니다. 완전 초보이니 자세히 설명 부탁드리겠습니다.)

입력창에 numinc 입력하면 사용이 되는데 numinc1 입력하면 숫자와 문자크기를입력하는데 문자크기 입
력하는 부분에서 문자 크기를 입력하면 에러가 뜨네요…뭐가 문제인지 봐주시면 감사하겠습니다.
(defun c:numInc (/ startNum Esc insPt)
  (setq startNum (getint “n시작 숫자를 입력하세요.”))
  (setq Esc “Esc”)
  (while Esc
    (Setq insPt (getpoint “n종료(Enter)/숫자 삽입점을 지정:”))
    (If (/= insPt nil)
      (progn
        (command “text” insPt “1” “0” (itoa startNum))
        (Setq startNum (1+ startNum))
      )
      (Setq Esc nil);insPt에 
    )
  )
)
(defun c:numInc1 (/ startNum Esc insPt)
  (setq startNum (getint “n시작 숫자를 입력하세요.”))
  (Setq txtHgt (getreal “n문자 높이:”))
  ;(문자 작성 레이어 검색 및 만들기);도면층 상태관리자… 활용도 가능
  (If (not f:makeLayer)(load “makeLayer”))
  (f:makeLayer “text” 2 “continuous”)
  ;(문자 양식 만들기)
  (If (not f:makeStyle)(load “makeStyle”))
  (f:makeStyle “text” “돋움.ttf” “” 1)
  (setq Esc “Esc”)
  (while Esc
    (Setq insPt (getpoint “n종료(Enter)/숫자 삽입점을 지정:”))
    (If (/= insPt nil)
      (progn
        ;(command “text” insPt “1” “0” (itoa startNum))
        (entmakex
  (list
    (cons 0 “TEXT”)
    (cons 7 “text”)
            (cons 10  insPt)
            (cons 11  insPt)
            (cons 40 txtHgt)
            (cons 50 0);문자 각도.
            (cons 72 1)
            (cons 73 2)
            (cons 1 (itoa startNum))
          )
)
        (Setq startNum (1+ startNum))
      )
      (Setq Esc nil);insPt에 
    )
  )
)
공유

    관련 있는 질문들

    3 답변

    1. aalan
    2. Lv.21

      f:makeLayer   f:makeStyle 

      저 두개의 함수가 캐드 지원 폴더에 위치 하지 않는거 같네요 저 두함수를 찾아서 캐드 지원폴더에 넣으세요 
      • 0
    3. Lv.21
      (defun c:numInc1 (/ *error* f:makeLayer f:makeStyle lay startNum Esc insPt)
        (defun f:makeLayer (Nme co lin)
             (entmakex (list (cons 0 “LAYER”)
                            (cons 100 “AcDbSymbolTableRecord”)
                            (cons 100 “AcDbLayerTableRecord”)
                            (cons 2 Nme)
                            (cons 6 lin)
                            (cons 62 co)
                            (cons 70 0))
              )
         )
        (defun f:makeStyle (nam font co)
         (entmake
            (list
                 ‘(0 . “STYLE”)
                 ‘(100 . “AcDbSymbolTableRecord”)
                 ‘(100 . “AcDbTextStyleTableRecord”)
                 (cons 2 nam) ;;Style name
                 (cons 62 co)
                 ‘(70 . 0) ;;Standard flag values (bit-coded values)
                 ‘(40 . 0) ;;text height
                 ‘(41 . 1.0) ;;width factor
                 ‘(50 . 0.0) ;;oblique angle
                 ‘(71 . 0) ;;text generation “0” normal text
                 ‘(42 . 0) ;;last height used
                 (cons 3 font) ;;font file name
                 ‘(4 . “”) ;;bigfont (blank for no)
            );end LIST
         );end entmake
        )
        (setq lay(getvar ‘clayer))
        (setq startNum (getint “n시작 숫자를 입력하세요.”))
        (Setq txtHgt (getreal “n문자 높이:”))
        ;(문자 작성 레이어 검색 및 만들기);도면층 상태관리자… 활용도 가능
        (If (not (tblsearch “LAYER” “text”)) ;;
         (f:makeLayer “text” 2 “continuous”)
        )
        ;(문자 양식 만들기)
        (If (not (tblsearch “STYLE” “text”))
         (f:makeStyle “text” “돋움.ttf” 1)
        )
        (setq Esc “Esc”)
        (while Esc
          (Setq insPt (getpoint “n종료(Enter)/숫자 삽입점을 지정:”))
          (If (/= insPt nil)
            (progn
              ;(command “text” insPt “1” “0” (itoa startNum))
              (entmakex
        (list
          (cons 0 “TEXT”)
          (cons 7 “text”)
                  (cons 10  insPt)
                  (cons 11  insPt)
                  (cons 40 txtHgt)
                  (cons 50 0);문자 각도.
                  (cons 8 “text”);text layer
                  (cons 72 1)
                  (cons 73 2)
                  (cons 1 (itoa startNum))
                )
      )
              (Setq startNum (1+ startNum))
            )
            (Setq Esc nil);insPt에 
          )
        )
        (princ)
      )
      • 0

    4. 정말 감사드립니다. 배워 놓고 못쓰나했는데..덕분에 빨리 업무를 할수 있을 거 같습니다.

      • 0