숫자합계 sum 리습 수정부탁합니다
자료요청
작성자
재간
작성일
2023-07-03 14:40
조회
2508

문자삽입점 지정 후 문자 높이 선택을 ⇒ 문자높이 선택 후 문자 삽입점 지정으로 수정 부탁드립니다.
(defun c:sum (/ z ss sno no tno sum x entity etype num h pt)
(setvar "cmdecho" 0)
(prompt "nSelect Text: ")
(setq ss (ssget))
(setq sno (sslength ss))
(setq no 0)
(setq sum 0.0)
(setq tno 0)
(repeat sno
(setq x (ssname ss no))
(setq etype (cdr (assoc 0 (entget x))))
(if (= etype "TEXT")
(progn
(setq entity (entget x))
(setq num (cdr (assoc 1 entity)))
(setq num (atof num))
(setq sum (+ sum num))
(setq tno (1+ tno))
)
)
(setq no (1+ no))
)
(setq tno (itoa tno))
(setq sum (rtos sum 2 3))
(princ "nAdding ")
(princ tno)
(princ " nTexts: ")
(princ "nThe Result is: ")
(princ sum)
(princ " ")
(princ "n도면에 기록할까요? ")
(setq z (strcase (getstring)))
(if (or (= z "") (= z "Y"))
(progn
(setq pt (getpoint "n문자 삽입점 지정: "))
(setq h (getvar "textsize"))
(prompt "n문자 높이: ")
(princ H)
(princ " : ")
(setq z (getdist))
(if z
(setq h z)
)
(command "text"
(setq z pt)
(setq z h)
(setq z 0.0)
(setq z sum)
)
)
)
(setvar "cmdecho" 1)
(setvar "blipmode" 1)
(prin1))
(defun c:sum (/ z ss sno no tno sum x entity etype num h pt)
(setvar "cmdecho" 0)
(prompt "nSelect Text: ")
(setq ss (ssget))
(setq sno (sslength ss))
(setq no 0)
(setq sum 0.0)
(setq tno 0)
(repeat sno
(setq x (ssname ss no))
(setq etype (cdr (assoc 0 (entget x))))
(if (= etype "TEXT")
(progn
(setq entity (entget x))
(setq num (cdr (assoc 1 entity)))
(setq num (atof num))
(setq sum (+ sum num))
(setq tno (1+ tno))
)
)
(setq no (1+ no))
)
(setq tno (itoa tno))
(setq sum (rtos sum 2 3))
(princ "nAdding ")
(princ tno)
(princ " nTexts: ")
(princ "nThe Result is: ")
(princ sum)
(princ " ")
(princ "n도면에 기록할까요? ")
(setq z (strcase (getstring)))
(if (or (= z "") (= z "Y"))
(progn
(setq pt (getpoint "n문자 삽입점 지정: "))
(setq h (getvar "textsize"))
(prompt "n문자 높이: ")
(princ H)
(princ " : ")
(setq z (getdist))
(if z
(setq h z)
)
(command "text"
(setq z pt)
(setq z h)
(setq z 0.0)
(setq z sum)
)
)
)
(setvar "cmdecho" 1)
(setvar "blipmode" 1)
(prin1))
전체 0
댓글을 남기려면 로그인하세요.
전체
번호 | 제목 | 작성자 | 작성일 | 조회 |
공지사항 |
[공지] 글꼴은행 - 캐드 글꼴 442종 압축 파일 NOTICE
gocad
|
2022.09.01
|
조회 118608
|
gocad | 2022.09.01 | 118608 |
13787 |
고기집 도면 좀 부탁드려요
조성욱
|
2025.07.17
|
조회 35
|
조성욱 | 2025.07.17 | 35 |
13786 |
플랜터 벤치 디테일 자료 구해봅니다ㅜㅜ
윤기영
|
2025.07.17
|
조회 35
|
윤기영 | 2025.07.17 | 35 |
13785 |
아파트 지하주차장 캐노피 도면 요청드립니다
한서방
|
2025.07.11
|
조회 79
|
한서방 | 2025.07.11 | 79 |
13784 |
font 찿습니다
하얀달빛
|
2025.07.03
|
조회 110
|
하얀달빛 | 2025.07.03 | 110 |
13783 |
1000.shx 폰트 찾습니다.
박소영
|
2025.06.25
|
조회 117
|
박소영 | 2025.06.25 | 117 |
13782 |
dxf파일 오픈 오류 수정 쫌 부탁드리겠습니다
오또기
|
2025.05.14
|
조회 410
|
오또기 | 2025.05.14 | 410 |
13781 |
arcbig03.shx 폰트 요청드립니다
아빠의전설
|
2025.04.23
|
조회 629
|
아빠의전설 | 2025.04.23 | 629 |
13780 |
캐드 한글 폰트를 만들었습니다.
준
|
2025.04.10
|
조회 646
|
준 | 2025.04.10 | 646 |
13779 |
블록 이름 다 똑같이 맞출 수 있는 리습 있을까요?
이민성
|
2025.04.08
|
조회 551
|
이민성 | 2025.04.08 | 551 |
13778 |
갠트리크레인 도면 "급" 구합니다
샤인
|
2025.04.01
|
조회 568
|
샤인 | 2025.04.01 | 568 |
13777 |
스크린 골프장 도면을 부탁드립니다!
썐206
|
2025.03.28
|
조회 693
|
썐206 | 2025.03.28 | 693 |
13776 |
ISO LISP 또는 프로그램 부탁드립니다.
박기범
|
2025.03.14
|
조회 891
|
박기범 | 2025.03.14 | 891 |
13775 |
GSG1 글꼴
오인권
|
2025.03.14
|
조회 874
|
오인권 | 2025.03.14 | 874 |
13774 |
아파트 현관 신발장 상세도 부탁드립니다
다큐3일
|
2025.02.13
|
조회 905
|
다큐3일 | 2025.02.13 | 905 |
13773 |
굵은돋움체(Takeo) 부탁드립니다.
박기석
|
2025.02.04
|
조회 928
|
박기석 | 2025.02.04 | 928 |
13772 |
소방 배관. 피팅. 밸브 도면 모음집 있으시면 주시면 안딜까요? ㅜ.ㅜ (1)
고고고태
|
2025.01.15
|
조회 1202
|
고고고태 | 2025.01.15 | 1202 |
13771 |
판금전개 리습 공유
김다래
|
2025.01.10
|
조회 1243
|
김다래 | 2025.01.10 | 1243 |
13770 |
CadPlus_Plot ( 멀티플롯 / 일괄출력 / 외부파일 출력) (7)
캐드플러스
|
2024.12.27
|
조회 1479
|
캐드플러스 | 2024.12.27 | 1479 |
13769 |
캐드 기초 연습도면 부탁드립니다 (1)
홍보석
|
2024.12.23
|
조회 1285
|
홍보석 | 2024.12.23 | 1285 |
13768 |
승마장 도면 구합니다!!
연세찬
|
2024.12.02
|
조회 1039
|
연세찬 | 2024.12.02 | 1039 |