홈/ 질문/Q 108574
다음
진행 중
Lv.0
등록일: 2017-06-23T18:25:28+09:00 카테고리:

더하는 리습을 짜고 있습니다(독학중).

(defun c:sum()
 (setq ob (ssget))
 (setq n (sslength ob))
 (setq i 0)
 (while (< i n)
  (setq a (cdr (assoc 1 (entget (ssname ob i)))))
 (princ a)
 (setq i (+ 1 i))
 )
)

제목 그대로 더하기 리습입니다.

어찌어찌 해서 문자(값)에 대한 숫자를 추출했는데

2개 이상일 때 더하는걸 어떻게 적용을 해야 하는건가요…

아직 너무 초급 단계라.. 처음부터 잘못된건가요?

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.21
      (defun c:sum(/ ob n sum i num sum str);변수는 특별한 경우가아니면 지역변수로 등록하세요 나중에 사용하는 리습이 
                                            ;; 늘어나면 변수끼리 충돌예방이 됩니다 .
       (setq ob (ssget))
       (setq n (sslength ob) sum 0)
       (setq i 0)
       (while (< i n)
        (setq a (cdr (assoc 1 (entget (ssname ob i)))))
        (setq num(atof a)) ;문자를 실수로 변환 ; atoi 문자를 정수로변환 
        (setq sum(+ sum num)) ;sum에 더하기 
        (setq i (+ 1 i))
       )
       (setq str(rtos sum 2 1)) ;결과값을(실수 또는 정수) 문자로 변환 ;
       (command “_Text” (getpoint “n문자위치 선택:”) “” “” str )
       (princ)
      )
      • 0

    3. 좋은 말씀 감사드립니다.

      변수가 똑같으면 충돌이 되는지는 몰랐습니다.

      지금 테스트 해보니 아주 잘됩니다.

      다만 여러줄 문자의 경우는 숫자로 인식이 안되서 그런지 제외되더군요..

      여러줄 문자의 경우 MTEXT라고 알고 있는데 여러줄 문자에도 숫자가 들어가 있으면

      더해주는 명령어는 없는지요?

      • 0
    4. Lv.21
      왜 안되는지는 돌김님이 만드신 코드로 출력해보시면 알겁니다 atof나atoi는 문자내용이 “숫자형식”으로
      돼있어야 한답니다  eg. “1234” 이런식은 ok~!!  “a1234” 이런형식은 No~!!

      여러줄 문자 같은경우는 사용자 마다 양식이 다르기 때문에 사용자 양식에 맞춘 코드를 짜야 합니다 

      그래서 보통 사용자들이 특정한 조건을 얘기 하시고 그것에 맞춰서 만들어 달라고 요청하는 경우가 
      많죠.. 가령 3줄 문자인데 가운데 줄의 숫자를 바꾸고 싶다거나 하는식으로  
      독학(물론 거의 대부분 독학이시지만 ^^)하신다면 일단 리습관련 커뮤니티를 추천드립니다  사이트 광고가 될수도 있으니 
      쪽지주시면 알려 드리겠습니다 보통 이곳 고캐드에서 활동하시는 분이 그곳에서도 활동하시는데 
      일단 그곳은 리습강좌와 리습이 정리 돼있어서 초보들 연구하기에 좋습니다 
      • 0

    5. 리습관련 커뮤니티는 몇군데 알고 있긴 합니다.

      그래도 혹시 모르니 쪽지 좀 부탁드리겠습니다.

      여러줄 문자는 말씀하신대로 a1234라고 하면 1234만 인식하게끔 할 예정입니다.

      제가 쓰고 있는 여러줄 문자들은 속성만 여러줄문자이며 실제로는 1줄로 사용되고 있습니다.

      좋은 정보 감사드립니다!!

      • 0