CAFE

★ CAD/LISP/분과 Q&A

[[Lisp]]숫자더하기리습

작성자스노포스|작성시간11.09.05|조회수1,894 목록 댓글 9

 

성심 성의껏 질문을 작성하여 주세요, 대충하시면 답변도 대충작성합니다.^^

 

 - 제목 작성시 금지어

   만들어주세요? 해주세요? 안되는데 이렇게 변경해주세요? 등등

- 특정분과 질문은 제목에 분과삽입 [건축] 

   좋은예) [분과]무엇에 대해 문의합니다. /[분과]B로 바꾸는 방법을 알고싶습니다.

- 말머리 필수 

 

① CAD 종류   : autocad

② VERSION   : 2006

③ 운영 체제    : windowsxp

  

④ 질문내용 및 스크린샷(이미지 및동영상)

숫자 더하기 리습입니다 결과값이 소수점첫째자리까지 표현되게 할수 있는지요? 

 

 

 

 

⑤ 파일첨부 (LISP/DWG) - DWG 첨부시 보다 정확한 답변을 얻을수 있습니다.

 

 (DEFUN C:TU()
 (PROMPT "\nSELECT TEXT :")
 (SETQ SS (SSGET)
   SN (SSLENGTH SS)
   INDEX 0
   SUM 0
 )
 (REPEAT SN
  (IF (= "TEXT" (CDR (ASSOC 0 (ENTGET (SSNAME SS INDEX)))))
   (PROGN
    (SETQ EN (ATOF (CDR (ASSOC 1 (ENTGET (SSNAME SS INDEX)))))
       INDEX (1+ INDEX)
       SUM (+ SUM EN)
     )
    )
    (SETQ INDEX (1+ INDEX))
   )
 )
 (PRIN1 SUM)
 (SETQ A (ENTGET (CAR (ENTSEL "\nSELECT TOTAL TEXT LOCATION :")))
    1T (ASSOC 1 A)
    2T (CONS 1 (RTOS SUM 2 1))
    A (SUBST 2T 1T A)
  )
  (ENTMOD A)
  )

첨부파일 TU(더하기).LSP

 

 

 

※ 유의사항

 - ①말머리 : 말머리를 달아야 구분이 쉽겠죠^^

 - ②Screenshot : 이해를 돕기위해 삽입요망.

 - ③파일 첨부 : 상위버전에서 테스트할 파일이 아니면 가급적 하위버전으로 저장후 첨부.

                          해당리습/해당파일(DWG) 도 같이 첨부하여 주세요.

 - ④       목 : 질문 내용 반영(개략적인 내용),       예) 해치를 만들고 싶어요, pline을 연결할려면?

 - ⑤질문글 삭제금지 : 질문후 댓글이 달린글은 삭제금지.

    여러 리플러들이 소중한 시간을 내어서 고민한후 댓글을 작성한 이상 "강력조치" 토록 하겠음. 

 

※ 정답만이 댓글은 아닙니다. 그 답이 맞던 틀리던 그건 그 댓글로서 존중되어야 합니다.

    회원님들이 글을 읽었다는것과 댓글을 달았다는건 그만큼 관심을 가지고 있고 또 그 답을 해주기 위해

    검색도 해보고 도움말도 보고 고민도 하는 일련의 과정을 거치면서 나오기 때문이죠.

    이에 대한 고마움과 감사함을 모르는 테러행위(?)는 없었으면 합니다.

 

 

 

다음검색
현재 게시글 추가 기능 열기

댓글

댓글 리스트
  • 답댓글 작성자3:16 | 작성시간 11.09.06 하얀제비님이 댓글 다시는 순간... 모든 권한은 그분께로..^^;;
  • 답댓글 작성자3:16 | 작성시간 11.09.06 오해마세요..^^ 저는 잘 몰라요.. ㅎㅎ
  • 작성자호빵몽 | 작성시간 11.10.12 리습~ 하나하나 배워가는데요~ ㅋ 이번에 덧셈두~ ㅋㅋ
    좋은 정보 이네요~^^ ㅋ
    감사~ ~
  • 작성자나루터 | 작성시간 13.09.15 좋은 정보 감사합니다.
  • 작성자케이엠플러스 | 작성시간 14.05.07 좋은정보 감사합니다. 잘쓸게요
댓글 전체보기
맨위로

카페 검색

카페 검색어 입력폼