숫자합계 sum 리습 수정부탁합니다
자료요청
작성자
재간
작성일
2023-07-03 14:40
조회
501
문자삽입점 지정 후 문자 높이 선택을 ⇒ 문자높이 선택 후 문자 삽입점 지정으로 수정 부탁드립니다.
(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
|
조회 22318
|
gocad | 2022.09.01 | 22318 |
13738 |
정화조도면
캐스터
|
2023.07.04
|
조회 442
|
캐스터 | 2023.07.04 | 442 |
13737 |
숫자합계 sum 리습 수정부탁합니다
재간
|
2023.07.03
|
조회 501
|
재간 | 2023.07.03 | 501 |
13736 |
대형카페 철골계단 및 목재 디딤판 상세 구합니다
미소수프
|
2023.06.28
|
조회 324
|
미소수프 | 2023.06.28 | 324 |
13735 |
다중출력(멀티플롯)리습 프로그램 업그레이드 (5)
캐드플러스
|
2023.06.27
|
조회 888
|
캐드플러스 | 2023.06.27 | 888 |
13734 |
revit 교재 가지고 있는분 공유 안되나요?
똥철이
|
2023.06.05
|
조회 372
|
똥철이 | 2023.06.05 | 372 |
13733 |
이 STL파일을 3DM파일로 변경해주실 수 있을까요..?
박건호
|
2023.06.04
|
조회 380
|
박건호 | 2023.06.04 | 380 |
13732 |
AutoCAD LT 2024에서 부품라이브러리 설치/실행
시골사람_1
|
2023.05.19
|
조회 765
|
시골사람_1 | 2023.05.19 | 765 |
13731 |
CadPlus_X 프로그램 요청하여 올립니다. (3)
캐드플러스
|
2023.05.05
|
조회 1206
|
캐드플러스 | 2023.05.05 | 1206 |
13730 |
AKKURAT BOLT 가지고 계신분 공유 부탁드립니다.
a친구
|
2023.04.12
|
조회 591
|
a친구 | 2023.04.12 | 591 |
13729 |
수도권 전철 노선도 구합니다.
또다른시작
|
2023.03.14
|
조회 670
|
또다른시작 | 2023.03.14 | 670 |
13728 |
[CATS] 다중플롯 기능 설명 영상 및 다운로드 !!!!
CATS_Developer
|
2023.03.10
|
조회 1357
|
CATS_Developer | 2023.03.10 | 1357 |
13727 |
전력 사업에 필요한 리습 부탁 드립니다
송주현
|
2023.03.10
|
조회 582
|
송주현 | 2023.03.10 | 582 |
13726 |
현장 가설사무실 도면 부탁드리겠습니다. (1)
굿럭가이
|
2023.02.22
|
조회 986
|
굿럭가이 | 2023.02.22 | 986 |
13725 |
다스베다 리습 프로그램 요청 답글
캐드플러스
|
2023.02.15
|
조회 780
|
캐드플러스 | 2023.02.15 | 780 |
13724 |
arcbig03 캐드 폰트 요청합니다.
김성찬
|
2023.02.14
|
조회 1231
|
김성찬 | 2023.02.14 | 1231 |
13723 |
CATS for SheetMetal (판금 전개 리습) v2.1.0 (캐디안 지원 추가)
CATS_Developer
|
2023.01.30
|
조회 1007
|
CATS_Developer | 2023.01.30 | 1007 |
13722 |
다중출력(멀티플롯)리습 프로그램 업그레이드 (9)
캐드플러스
|
2023.01.30
|
조회 1782
|
캐드플러스 | 2023.01.30 | 1782 |
13721 |
chtext 리습 요청
꺄오올
|
2023.01.19
|
조회 663
|
꺄오올 | 2023.01.19 | 663 |
13720 |
소방용 gs밸브 도면좀 구할수 있나요
허인규
|
2023.01.18
|
조회 730
|
허인규 | 2023.01.18 | 730 |
13719 |
방폭문, 방폭시설 도면 공유 부탁드립니다.
권오탁
|
2023.01.10
|
조회 628
|
권오탁 | 2023.01.10 | 628 |