비밀번호를 잊으셨나요?

비밀번호를 잊으셨나요? 비밀번호를 재설정하려면 이메일 주소를 입력해주세요.

계정이 있나요? 로그인

You must login to ask a question.

비밀번호를 잊으셨나요?

아직 계정이 없으신가요? 회원가입 하기

해당 질문을 신고하는 이유를 간단히 입력해주세요.

해당 답변을 신고하는 이유를 간단히 입력해주세요.

해당 유저를 신고하는 이유를 간단히 입력해주세요.

로그인회원가입

고캐드 – 캐드(CAD) 정보의 중심

고캐드 – 캐드(CAD) 정보의 중심 Logo 고캐드 – 캐드(CAD) 정보의 중심 Logo

고캐드 – 캐드(CAD) 정보의 중심 Navigation

  • Q&A
    • AutoCAD & CADian
    • Inventor & Solidworks
    • Revit & ArchiCAD
    • 자유질문
    • 기타
  • 커뮤니티
    • 오늘의이슈
    • 자유게시판
    • 익명게시판
    • 건의게시판
  • 자료실
    • 자료요청
    • 일반파일
    • 도면샘플
    • 유틸리티
    • 기타
  • 작품 갤러리
    • 그래픽
    • 캐드도면
    • 3D모델
    • 기타
  • 뉴스&이벤트
    • 공지사항
    • 뉴스
    • 전시/행사
    • 이벤트
    • 기타
검색
질문하기

Mobile menu

닫기
질문하기
  • 홈
  • 카테고리
    • 자료요청
    • 일반파일
    • 도면샘플
    • 유틸리티
    • 기타
  • 커뮤니티 그룹
  • Q&A
    • AutoCAD & CADian
    • Inventor & Solidworks
    • Revit & ArchiCAD
    • 자유질문
    • 기타
  • 커뮤니티
    • 오늘의이슈
    • 자유게시판
    • 익명게시판
    • 건의게시판
  • 자료실
    • 자료요청
    • 일반파일
    • 도면샘플
    • 유틸리티
    • 기타
  • 작품 갤러리
    • 그래픽
    • 캐드도면
    • 3D모델
    • 기타
  • 뉴스&이벤트
    • 공지사항
    • 뉴스
    • 전시/행사
    • 이벤트
    • 기타

숫자합계 sum 리습 수정부탁합니다

자료요청
작성자
재간
작성일
2023-07-03 14:40
조회
2350
인쇄
문자삽입점 지정 후 문자 높이 선택을 ⇒ 문자높이 선택 후 문자 삽입점 지정으로 수정 부탁드립니다.

(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

댓글을 남기려면 로그인하세요.
소셜 로그인
naver kakao google
« 대형카페 철골계단 및 목재 디딤판 상세 구합니다
정화조도면 »
목록보기
전체
번호 제목 작성자 작성일 조회
공지사항
[공지] 글꼴은행 - 캐드 글꼴 442종 압축 파일 NOTICE
gocad | 2022.09.01 | 조회 113458
gocad 2022.09.01 113458
13783
1000.shx 폰트 찾습니다.
박소영 | 2025.06.25 | 조회 61
박소영 2025.06.25 61
13782
dxf파일 오픈 오류 수정 쫌 부탁드리겠습니다
오또기 | 2025.05.14 | 조회 379
오또기 2025.05.14 379
13781
arcbig03.shx 폰트 요청드립니다
아빠의전설 | 2025.04.23 | 조회 556
아빠의전설 2025.04.23 556
13780
캐드 한글 폰트를 만들었습니다.
준 | 2025.04.10 | 조회 609
준 2025.04.10 609
13779
블록 이름 다 똑같이 맞출 수 있는 리습 있을까요?
이민성 | 2025.04.08 | 조회 512
이민성 2025.04.08 512
13778
갠트리크레인 도면 "급" 구합니다
샤인 | 2025.04.01 | 조회 535
샤인 2025.04.01 535
13777
스크린 골프장 도면을 부탁드립니다!
썐206 | 2025.03.28 | 조회 640
썐206 2025.03.28 640
13776
ISO LISP 또는 프로그램 부탁드립니다.
박기범 | 2025.03.14 | 조회 849
박기범 2025.03.14 849
13775
GSG1 글꼴
오인권 | 2025.03.14 | 조회 832
오인권 2025.03.14 832
13774
아파트 현관 신발장 상세도 부탁드립니다
다큐3일 | 2025.02.13 | 조회 867
다큐3일 2025.02.13 867
13773
굵은돋움체(Takeo) 부탁드립니다.
박기석 | 2025.02.04 | 조회 889
박기석 2025.02.04 889
13772
소방 배관. 피팅. 밸브 도면 모음집 있으시면 주시면 안딜까요? ㅜ.ㅜ
고고고태 | 2025.01.15 | 조회 1146
고고고태 2025.01.15 1146
13771
판금전개 리습 공유
김다래 | 2025.01.10 | 조회 1199
김다래 2025.01.10 1199
13770
CadPlus_Plot ( 멀티플롯 / 일괄출력 / 외부파일 출력) (6)
캐드플러스 | 2024.12.27 | 조회 1416
캐드플러스 2024.12.27 1416
13769
캐드 기초 연습도면 부탁드립니다 (1)
홍보석 | 2024.12.23 | 조회 1245
홍보석 2024.12.23 1245
13768
승마장 도면 구합니다!!
연세찬 | 2024.12.02 | 조회 1014
연세찬 2024.12.02 1014
13767
자동차 등각도면 구합니다
김성훈 | 2024.11.22 | 조회 1024
김성훈 2024.11.22 1024
13766
카페 평면, 단면 등을 구합니다
박민지 | 2024.11.17 | 조회 1023
박민지 2024.11.17 1023
13765
소형창고도면 있으면 부탁드립니다.
풀나무 | 2024.11.16 | 조회 1146
풀나무 2024.11.16 1146
13764
라인 길이의 합
전경삼 | 2024.11.14 | 조회 1111
전경삼 2024.11.14 1111
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • »
  • 마지막
Powered by KBoard

Sidebar

질문하기
공지사항

  • AI CAD의 미래! 캐디안 2025 1+1 프로모션 안내 2025-05-14

Adv 234x60

aalan

Adv 234x60

aalan

Adv 120x600

aalan

Explore

  • 홈
  • 카테고리
    • 자료요청
    • 일반파일
    • 도면샘플
    • 유틸리티
    • 기타
  • 커뮤니티 그룹
aalan

Footer

Support

  • 회사 및 서비스 소개
  • 자주 묻는 질문
  • 문의하기

Guide

  • 제휴/협업 안내
  • 광고 서비스 안내

Policy

  • 서비스 이용약관
  • 개인정보 처리방침
  • 광고성 정보 수신 동의

Contents

  • 고밍스토리
  • 리습 시리즈

정소프트 | 사업자등록번호 : 677-40-00198 | 대표 : 정은숙 | 이메일 : gocad.manager@gmail.com
주소 : 서울특별시 강서구 양천로 400-12, 6층 614,615,617호(등촌동, 더리브골드타워)
Copyright. 2012-2024 GOCAD All rights reserved