홈/ 질문/Q 190420
다음
진행 중
익명
등록일: 2024-06-20T18:04:43+09:00 카테고리:

치수선 합계 계산식으로 나오는 리습

★치수선★의 합계를 계산식으로 만들어주는 리습 혹시 있으신분 있으신가요 ㅠㅠ
(예. 2.5+1.5+3.5+1.5 = 9.0 이렇게 나오는..)
몇년전에 잘 매우 잘 쓰던 리습인데, 아무리 검색하고 찾아봐도 안보이네요 ㅠ (그냥 폴리선 길이 합계리습은 많이 보이는데 ㅜㅜ)
리습명은 요거였어요 —->> 000◆LN_(치수의_합을_계산식으로)

혹시 있으신분 있으시면 너무너무 감사하겠습니다 (굽신굽신)

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    2 답변

    1. Lv.24

      (defun c:TEST()
      (princ “Dim치수 + 계산식 포함 합계 :”)
      (setq ss1 (ssget ‘((0 . “DIMENSION”))))
      (setq i 0 tot 0.0 calc-str “”)
      (while (< i (sslength ss1))
      (setq edat (entget (ssname ss1 i)))
      (setq val (cdr (assoc 42 edat)))
      (setq tot (+ tot val))
      (setq calc-str (strcat calc-str (rtos val 2 2)))
      (if (< i (1- (sslength ss1)))
      (setq calc-str (strcat calc-str "+"))
      )
      (setq i (1+ i))
      )
      (setq calc-str (strcat calc-str "=" (rtos tot 2 2)))
      (princ (strcat "nDim 합계 : " calc-str))
      (setq sc (getvar "ltscale"))
      (setq scl (* 2 sc))
      (setq pt (getpoint "n 위치를 클릭하시오. "))
      (command "text" pt scl "0" calc-str)
      (princ)
      ) ;_ end of defun 객체 선택:

      • 0