홈/ 질문/Q 107977
다음
진행 중
Lv.0
등록일: 2017-02-15T09:26:05+09:00 카테고리:

객체 면적을 구한뒤 값을 곱하고 텍스트 출력이 되는 리습 구합니다.

고수님들께 부탁 좀 드리겠습니다.
리습을 만들 실력이 안되서  필요한걸 받아서 사용하고는 있는데…
이래저래 손이 많이 갑니다. 양이 적을때는 괜찮은데 양이 많은때는… ㅠㅁㅠ
힘든건 괜찮은데 시간에 쫓기다 보니 이렇게 부탁드립니다…


객체를 2~3개를 선택한뒤 소수3자리까지 면적을 구하고
곱하기0.00785 한뒤 텍스트로 출력을 하고 싶습니다.


….단축키-스페이스-객체선택-스페이스-클릭(텍스트출력)


처음엔 면적리습으로 수정해볼까하고 열어봤는데 도무지 알아볼수가 없네요.
염치 없지만 꼭 좀 부탁드리겠습니다.

공유

    관련 있는 질문들

    2 답변

    1. aalan

    2. 확인은 못해봤지만 이렇게 시간내어주셔서 정말감사합니다.

      • 0

    3. (vl-load-com)
      (setq laArea 0)
      (if (setq selObj (ssget))
       (progn
        (setq doc (vla-get-activedocument (vlax-get-acad-object)))
        (vla-startundomark doc)
        (setq index 0)
        (repeat (sslength selObj)
         (setq e (ssname selObj index))
         (setq obj (vlax-ename->vla-object e))
         (setq ara (vlax-get obj ‘Area))
         (setq laArea (+ laArea ara))
         (setq index (1+ index))
        )
       )
      )
      (setq laArea (* laArea 0.00785))
      (setq pt (getpoint (strcat “n텍스트 출력 포인트 클릭n> ” (rtos laArea 2 2) )))
      (command “text” pt “3” “0” (rtos laArea 2 2))

      이런느낌?
      텍스트 출력시 명령어 순서는 캐드 환경마다 다르니 알아서 수정
      단축 명령어 지정은 하실수 있으시겠죠..?

      * 테스트 안해봐서 될지 안될지는 몰라요 ㅋㅅㅋ

      • 0