홈/ 질문/Q 113590
다음
진행 중
Lv.0
등록일: 2022-01-23T21:54:54+09:00 카테고리:

리습 수정 문의 드립니다. QA리습_평,면적(m2),길이(mm)

안녕하세요 


오토캐드cad 리습lisp 관련 문의 및 요청 드립니다.

리습을 활용해서 물량산출 하다보니 조금더 편하게 할수 있는 방법을 찾아봤지만

없어서 고수님들의 도움을 받고자 이렇게 글을 올리게 되었습니다.

QA라는 리습_평,면적(m2),길이(mm)

이 리습을 바닥면적(m2), 벽체면적(m2), 길이(m)로 바꿀수 있는 방법이 있는지 있으면 수정해주실수 있는지요?

바닥면적(m2)은 기존에 면적(m2)에서 글자만 수정하시면 될거 같고

벽체면적(m2)추가는 명령어 입력후 높이값을 입력하면 길이x높이 결과값이 나오게 만들어주실수 있는지요? 

(QA명령어 입력후 객체선택을하면 텍스트 높이 입력 문구가 나옵니다. 값을 입력후
“길이에 적용할 높이”문구가 나와서 높이값을 기입하면 되게끔 설정 가능할지요?)

마지막 길이는 mm에서 m로 단위 변환만 하면 될것 같습니다.

이게 만들어 질수 있는지 의문이지만 될것도 같아서 하실수 있는분 부탁드립니다.

—————————————————————————————————–
(defun c:qa ( / doc space ss index obj mi mx minpt maxpt inspt area txtobj )
 (setvar “cmdecho” 0)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (cond
    ((= (vla-get-activespace doc) 1) (setq space (vla-get-modelspace doc)))
    ((= (vla-get-activespace doc) 0) (setq space (vla-get-paperspace doc)))
    )
  (if (setq ss (ssget (list (cons 0 “CIRCLE,ARC,*POLYLINE,LINE,ELLIPSE,SPLINE”))))
    (if (or (setq ts (getreal (strcat “n텍스트 높이 입력 <” (vl-princ-to-string (getvar “textsize”)) “>:”))) (setq ts (getvar “textsize”)))
      (progn
  (setvar “textsize” ts)
 (setq index 0)
 (repeat (sslength ss)
   (setq obj (vlax-ename->vla-object (ssname ss index)))
   (vla-getboundingbox obj ‘mi ‘mx)
   (setq minpt (vlax-safearray->list mi) maxpt (vlax-safearray->list mx))
   (setq inspt (polar minpt (angle minpt maxpt) (/ (distance minpt maxpt) 2)))
   (setq inspt (list (car inspt) (+ (cadr inspt) (* ts 2))))
   (setq area (vla-get-area obj) len (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)))
   (mapcar ‘(lambda (a b)
       (setq p (vlax-3d-point inspt))
       (setq txtobj (vla-addtext space (strcat a b) p ts))
       (vla-put-alignment txtobj 4)
       (vla-put-textalignmentpoint txtobj p)
       (setq inspt (polar inspt (/ (* 270 pi) 180) (* ts 2)))
       )
              ‘(“평 : ” “면적(㎡)  : ” “길이(mm) : ” ) (list (rtos (/ area 3305796.) 2 2) (rtos (/ area 1000000.) 2 3) (rtos len 2 2))
    )
   (setq index (1+ index))
   )
 (command “chprop” (ssget “x” ‘((0 . “TEXT”) (1 . “평*”))) “” “c” “7” “”)
 )
      )
    )
  (princ)
  )
(vl-load-com)
(prompt “n[ AAA ]”)
(princ)
공유

    관련 있는 질문들

    7 답변

    1. aalan
    2. Lv.21

      이 리습은 거짓말 살짝 보태서 한달에 한번은 올라오넹.. 

      ;;=======
      (defun c:qa ( / doc space ss th index obj mi mx minpt maxpt inspt area txtobj )
       (setvar “cmdecho” 0)
        (setq doc (vla-get-activedocument (vlax-get-acad-object)))
        (cond
          ((= (vla-get-activespace doc) 1) (setq space (vla-get-modelspace doc)))
          ((= (vla-get-activespace doc) 0) (setq space (vla-get-paperspace doc)))
          )
        (if(and (setq  ss (ssget (list (cons 0 “CIRCLE,ARC,*POLYLINE,LINE,ELLIPSE,SPLINE”))))
                (or (setq ts (getreal (strcat “n텍스트 높이 입력 <” (vl-princ-to-string (getvar “textsize”)) “>:”)))
                 (setq ts (getvar “textsize”)))
                 (setq th(getreal (strcat “n높이값입력:”)))
           )       
            (progn
        (setvar “textsize” ts)
       (setq index 0)
       (repeat (sslength ss)
         (setq obj (vlax-ename->vla-object (ssname ss index)))
         (vla-getboundingbox obj ‘mi ‘mx)
         (setq minpt (vlax-safearray->list mi) maxpt (vlax-safearray->list mx))
         (setq inspt (polar minpt (angle minpt maxpt) (/ (distance minpt maxpt) 2)))
         (setq inspt (list (car inspt) (+ (cadr inspt) (* ts 2))))
         (setq area (vla-get-area obj) len (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)))
         (mapcar ‘(lambda (a b)
             (setq p (vlax-3d-point inspt))
             (setq txtobj (vla-addtext space (strcat a b) p ts))
             (vla-put-alignment txtobj 4)
             (vla-put-textalignmentpoint txtobj p)
             (setq inspt (polar inspt (/ (* 270 pi) 180) (* ts 2)))
             )
             ‘(“평 : ” “바닥면적(㎡)  : ” “길이(M) : ” ) (list (rtos (/ area 3305796.) 2 2) (rtos (* th(/ area 1000000.)) 2 3) (rtos (* len 0.001) 2 2))
          )
         (setq index (1+ index))
         )
       (command “chprop” (ssget “x” ‘((0 . “TEXT”) (1 . “평*”))) “” “c” “7” “”)
       )
            )
          )
        (princ)
        )
      (vl-load-com)
      (prompt “n[ QA ]”)
      (princ)

      • 0

    3. 리습 수정해주신 점에 대해 감사드립니다.

      죄송하지만 올려주신 수식대로 리습에 적용하여 실행해봤는데….
      높이값 입력 문구는 나오지만 수식에 적용이 안되는것 같습니다.
      제가 요청드린 내용은 결론을 말씀드리면
      QA실행후 -> 객체선택 -> 텍스트 크기 입력 -> 길이에 적용할 높이값 입력 -> 결과값산출
      예를들어 리습실행후 가로2m 세로3m 사각형을 선택하고 길이에 적용할 높이값을 2m라고 입력시
      결과값이 선택객체 가운데에        바닥면적(m2) :  6 m2
                                             벽체면적(m2) : 20 m2
                                             길이(m2)       : 10 m     이렇게 나오게 수정가능하실까요?
      • 0
    4. Lv.1
      (defun c:qa ( / doc space ss th index obj mi mx minpt maxpt inspt area txtobj )
       (setvar “cmdecho” 0)
        (setq doc (vla-get-activedocument (vlax-get-acad-object)))
        (cond
          ((= (vla-get-activespace doc) 1) (setq space (vla-get-modelspace doc)))
          ((= (vla-get-activespace doc) 0) (setq space (vla-get-paperspace doc)))
          )
        (if(and (setq  ss (ssget (list (cons 0 “CIRCLE,ARC,*POLYLINE,LINE,ELLIPSE,SPLINE”))))
                (or (setq ts (getreal (strcat “n텍스트 높이 입력 <” (vl-princ-to-string (getvar “textsize”)) “>:”)))
                 (setq ts (getvar “textsize”)))
                 (setq th(getreal (strcat “n높이 값 입력(m):”)))
           )       
            (progn
        (setvar “textsize” ts)
       (setq index 0)
       (repeat (sslength ss)
         (setq obj (vlax-ename->vla-object (ssname ss index)))
         (vla-getboundingbox obj ‘mi ‘mx)
         (setq minpt (vlax-safearray->list mi) maxpt (vlax-safearray->list mx))
         (setq inspt (polar minpt (angle minpt maxpt) (/ (distance minpt maxpt) 2)))
         (setq inspt (list (car inspt) (+ (cadr inspt) (* ts 2))))
         (setq area (vla-get-area obj) len (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)))
         (mapcar ‘(lambda (a b)
             (setq p (vlax-3d-point inspt))
             (setq txtobj (vla-addtext space (strcat a b) p ts))
             (vla-put-alignment txtobj 4)
             (vla-put-textalignmentpoint txtobj p)
             (setq inspt (polar inspt (/ (* 270 pi) 180) (* ts 2)))
             )
             ‘(“바닥면적(㎡)  : ” “벽체면적(㎡)  : ” “길이(m) : “)
              (list (strcat (rtos (* area 0.000001) 2 2) “㎡”) (strcat (rtos (* (* len 0.001) th) 2 3) “㎡”) (strcat (rtos (* len 0.001) 2 2) “m”))
          )
         (setq index (1+ index))
         )
       (command “chprop” (ssget “x” ‘((0 . “TEXT”) (1 . “바닥*”))) “” “c” “7” “”)
       )
            )
          )
        (princ)
        )
      (vl-load-com)
      (prompt “n[ QA ]”)
      (princ)
      • 0
    5. 답변 감사합니다.
      올려주신데로 실행결과 잘 작동합니다.
      감사히 쓰겠습니다.
      • 0

    6. 닐수몹님께 개인적으로 쪽지 드렸습니다.

      확인부탁드립니다.
      • 0
    7. Lv.1

      쪽지 보내드렸고, 리습은 혼자 인터넷으로 공부 했습니다

      기본적인 명령들은 여기서 공부했고, 추가적인 건 그때그때 인터넷으로 찾아서 공부했어요
      • 0

    8. 답변 감사합니다.

      • 0