숫자합계 sum 리습 수정부탁합니다
자료요청
작성자
재간
작성일
2023-07-03 14:40
조회
451
문자삽입점 지정 후 문자 높이 선택을 ⇒ 문자높이 선택 후 문자 삽입점 지정으로 수정 부탁드립니다.
(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
댓글을 남기려면 로그인하세요.
자료요청
번호 | 제목 | 작성자 | 작성일 | 조회 |
1564 |
버스(대형 관광버스) 입면과 평면도(2D) 도면 찾습니다
이충화
|
2024.04.26
|
조회 18
|
이충화 | 2024.04.26 | 18 |
1563 |
캐드 2008 문의 (키젠)
김현승
|
2024.04.25
|
조회 20
|
김현승 | 2024.04.25 | 20 |
1562 |
나눔고딕체 공유좀 부탁드립니다..
H.H
|
2024.03.20
|
조회 101
|
H.H | 2024.03.20 | 101 |
1561 |
한전 맨홀도
송주현
|
2024.01.15
|
조회 138
|
송주현 | 2024.01.15 | 138 |
1560 |
pump 외형도 부탁드립니다
장동현
|
2024.01.08
|
조회 129
|
장동현 | 2024.01.08 | 129 |
1559 |
문자 수정시 등호(=) 이후 부터 수정가능한 리습 없을까요?ㅜㅜ
조상흠
|
2023.11.23
|
조회 129
|
조상흠 | 2023.11.23 | 129 |
1558 |
인벤터 알루미늄 프로파일 라이브러리 파일 요청드립니다. (2)
오뚜기진라면
|
2023.11.15
|
조회 250
|
오뚜기진라면 | 2023.11.15 | 250 |
1557 |
혹시 치수 자동 산출 리습을 만들 수 있을까요? (4)
이기영
|
2023.09.29
|
조회 508
|
이기영 | 2023.09.29 | 508 |
1556 |
잔도교 또는 잔도길 관련 단면도면 요청드립니다
보칼리지
|
2023.09.15
|
조회 212
|
보칼리지 | 2023.09.15 | 212 |
1555 |
zw cad 담장 그려주는 리습 있으신분 계십니까??
한동민
|
2023.08.31
|
조회 333
|
한동민 | 2023.08.31 | 333 |
1554 |
MoeumT 폰트 있으신분 있나요 ㅠ?
미소
|
2023.07.14
|
조회 320
|
미소 | 2023.07.14 | 320 |
1553 |
사각형 여러개를 가로와세로 치수만 나오는 리습 요청드립니다.
이경재
|
2023.07.11
|
조회 382
|
이경재 | 2023.07.11 | 382 |
1552 |
정화조도면
캐스터
|
2023.07.04
|
조회 401
|
캐스터 | 2023.07.04 | 401 |
1551 |
숫자합계 sum 리습 수정부탁합니다
재간
|
2023.07.03
|
조회 451
|
재간 | 2023.07.03 | 451 |
1550 |
대형카페 철골계단 및 목재 디딤판 상세 구합니다
미소수프
|
2023.06.28
|
조회 300
|
미소수프 | 2023.06.28 | 300 |
1549 |
revit 교재 가지고 있는분 공유 안되나요?
똥철이
|
2023.06.05
|
조회 351
|
똥철이 | 2023.06.05 | 351 |
1548 |
이 STL파일을 3DM파일로 변경해주실 수 있을까요..?
박건호
|
2023.06.04
|
조회 355
|
박건호 | 2023.06.04 | 355 |
1547 |
AKKURAT BOLT 가지고 계신분 공유 부탁드립니다.
a친구
|
2023.04.12
|
조회 549
|
a친구 | 2023.04.12 | 549 |
1546 |
수도권 전철 노선도 구합니다.
또다른시작
|
2023.03.14
|
조회 650
|
또다른시작 | 2023.03.14 | 650 |
1545 |
전력 사업에 필요한 리습 부탁 드립니다
송주현
|
2023.03.10
|
조회 561
|
송주현 | 2023.03.10 | 561 |