홈/ 질문/Q 113378
다음
진행 중
Lv.0
등록일: 2021-10-06T14:20:40+09:00 카테고리:

길이합 리습인데요, 자리수가 안맞습니다

(defun c:lle ()
(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))
)
(prompt (strcat “n***** 선택 객체수 = “(rtos n)” 길이합계 = ” (rtos dis)))(princ)
(setvar “cmdecho” 1)
)
이게 리습내용인데요..
캐드에서 units에서 소수점자리수를 1개 이상하면 객체길이 합이 정확히 나옵니다
근데 units에서 소수점자리수를 없이 하면 객체길이 합이 자리수가 하나더 나옵니다
ex) 1000mm 짜리 두개 직선을 더하면 2000mm가 나와야하는데 20001mm가 산출됩니다
  끝에 1이라는 숫자가 더 붙더라구요..
 
이거 해결할수 없나요?
공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. (defun c:lle ()
      (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))
      (vl-cmdf “lengthen” ent_l “”)
      (setq dis (+ dis (GETVAR “PERIMETER”)))
      (setq n (1+ n))
      )
      (prompt (strcat “n***** 선택 객체수 = “(rtos n)” 길이합계 = ” (rtos dis)))
      (setvar “cmdecho” 1)
      (princ)
      )
      • 0

    3. 감사합니다~ 좋은하루되세요~

      • 0