홈/ 질문/Q 107880
다음
진행 중
검은콩두부
Lv.0
등록일: 2017-01-25T20:12:15+09:00 카테고리:

해치면적 리습 텍스트 산출 수정 부탁드리겠습니다.

곧 구정인데 설 잘보내시길 바랍니다.
제가 해결하지 못하는 부분이 있어 다른 고수분들에게 부탁드리고자 합니다.

해치 면적을 구하는 리습을 찾아서 발견은 했지만, 텍스트가 명령어창에만 나오고 산출이 되지 않습니다(면적구하기 처럼)

텍스트가 산출될수 있도록 할 수 있을까요??
공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.0

      메론님 답글이 늦었지만 정말 감사드립니다^^

      • 0
    3. Lv.1
      (defun c:sea( / total objs ss uflag ) (vl-load-com)
          (setq total nil objs nil)
         
          (setq total (lambda (objects prop conv)
                          (apply
                              (function +)
                              (mapcar
                                  (function
                                      (lambda (x)
                                          (* conv (vlax-get-property x prop))
                                      )
                                  )
                              objects
                              )
                          )
                      )
          )
         
          (if (ssget ‘((0 . “HATCH”)))
              (progn
                  (setq uFlag
                      (not
                          (vla-StartUndoMark
                              (setq doc
                                  (vla-get-ActiveDocument
                                      (vlax-get-acad-object)
                                  )
                              )
                          )
                      )
                  )
                  (vlax-for
                      obj
                      (setq ss (vla-get-ActiveSelectionSet doc))
                      (setq Objs (cons obj Objs))
                  )
                  (vla-delete ss)
         (princ(strcat “Area: ” (rtos (total Objs ‘Area 1.) 2 2)))
              )
          )
          (setq uFlag (vla-EndUndomark doc))(princ)
      )
      재꺼리습은 어떻게해야 텍스트로나올까요 ㅜㅜ
      • 0