홈/ 질문/Q 109075
다음
진행 중
Lv.0
등록일: 2017-11-08T16:41:40+09:00 카테고리:

반지름 치수, 반지름 갯수 파악 리습

안녕하세요.
다름이 아니라 요청을 하고 싶은게 있어서 글 남기는데요.
반지름 치수 및 지름 갯수를 파악할수 있는 리습을 요청을 하고 싶습니다.


마우스로 객체를 선텍을 하면, 반지름 중심값에 램덤으로 문자를 적어주고
표를 만들어서 치수와 문자를 표현 했으면 좋겠습니다.

파일도 같이 첨부 하겠습니다. 


 

공유

    관련 있는 질문들

    3 답변

    1. aalan

    2. ;리습

      • 0

    3. 댓글 달아 주셔서 감사합니다. 도면이 왜 안열렸는지 모르겠지만.
      도면파일 다시 첨부 했습니다. 한번만 다시 봐 주시겠어요????

      • 0

    4. (defun c:d3()
       (setvar “cmdecho” 0)
       (setq k 1)
       (setq ob (ssget)) ;치수만 선택하세요
       (setq n (sslength ob) i 0)
       (while (< i n)
              (setq mytext (cdr (assoc 42 (entget (ssname ob i)))))
              (setq mytext (rtos mytext 2 0)) ; 맨끝에 0은 소수점 자리수에요
              (setq pt (cdr (assoc 11 (entget (ssname ob i)))))
              (setq k (itoa k))
              (command “text” pt 100 0 (strcat k “.” mytext “”)) ; 글자크기 100으로 세팅 –  변경하세요
              (princ (strcat k “. ” mytext “n”))
              (princ)
              (setq k (atoi k))
              (setq k (+ 1 k))
              (setq i (+ 1 i))
       );while
       (textpage)
      )

      도면이 안열리네요

      • 0