캐드 분류
치수선 합계 계산식으로 나오는 리습
컨텐츠 정보
- 179 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
★치수선★의 합계를 계산식으로 만들어주는 리습 혹시 있으신분 있으신가요 ㅠㅠ
(예. 2.5+1.5+3.5+1.5 = 9.0 이렇게 나오는..)
몇년전에 잘 매우 잘 쓰던 리습인데, 아무리 검색하고 찾아봐도 안보이네요 ㅠ (그냥 폴리선 길이 합계리습은 많이 보이는데 ㅜㅜ)
리습명은 요거였어요 —->> 000◆LN_(치수의_합을_계산식으로)
혹시 있으신분 있으시면 너무너무 감사하겠습니다 (굽신굽신)
관련자료
댓글 2
/ 1 페이지
주왕님의 댓글
(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 객체 선택:
