홈/ 질문/Q 79349
다음
진행 중
Lv.0
등록일: 2008-12-11T18:41:44+09:00 카테고리:

고수님들 리습 수정 좀 해주세요

이 리습을 업로드하고 라인을 지정하고 클릭을 하면, 텍스트로 길이가 나타난는데 만약에 10,000mm인 길이를 10.0M로 표현되게 하고 싶습니다.
그리고 표현되는 방법이 “L=10.0M”로 표현되게 하고 싶습니다.(10.0M <—–미터와 소수점이 표시되게)
현재는 “L=10000″로 표현됩니다.
고수님의 능력을 보여주세요~~~
아참 그리고 텍스트 크기도 수정할 수 있는지 궁금합니다

공유

    관련 있는 질문들

    3 답변

    1. aalan
    2. Lv.8

      (defun c:lle (/ ent n dis ent_l #a #ad #as )
      (setvar “cmdecho” 0)
      (setq ent (ssget ‘((0 . “LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE”))))
      (setq n 0 dis 0)
      (repeat (sslength ent)
      (setq ent_l (ssname ent n))
      (command “lengthen” ent_l “”)
      (setq dis (+ dis (GETVAR “PERIMETER”)))
      (setq n (1+ n))
      )
      (setq #a (strcat ” L = ” (rtos (* 0.001 dis) 2 1) “M”)) ;==> 수정
      (prompt (strcat “n” #a))
      (vl-load-com)
      (setq #ad(vla-get-activedocument(vlax-get-acad-object)))
      (setq #as
      (if (> (vla-get-activespace #ad) 0)
      (vla-get-modelspace #ad)
      (vla-get-paperspace #ad)
      );;if
      );;setq
      (vla-addtext #as #a (vlax-3d-point(getpoint “n≫≫≫Pick text point:”))(* (getvar “textsize”)2.5))
      ;;==> textsize 값에서 2,5를 곱해서 글자크기를 정하니까 2.5를 수정하면 글자 크기가 바뀜.

      (mapcar ‘vlax-release-object (list #as #ad))
      (princ)
      (setvar “cmdecho” 1)
      )

      • 0

    3. 따라지 햄 잠수 끝?

      • 0

    4. 따라지님 너무 고맙습니다.~~~

      • 0