캐드

면접 합계를 계산식으로 표기

바으메9 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 작성
작성일 2022.03.10 09:22

345 조회
10 댓글
0 추천
0 비추천
목록

아래 리습은 길이 합계를 계산식으로 표기될수 있게해주는 리습입니다만
면적 합계를 계산식으로 표기하고 싶습니다 ㅠ 도움 부탁드립니다.

(defun c:MM (/ ss sslist i index linelist linenumlist ent old10 old11 dist lnum count temp total total1 subtotal txt pt)
(vl-load-com) ;—->total1 추가함
(princ "n Eltity Length Sum")
(setvar "cmdecho" 0)

(setq ss (ssget (list (cons 0 "LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE"))))
(setq zzz (sslength ss))
(if ss
    (progn
      (setq index 0)
      (setq linelist nil)
      (setq linenumlist nil)
      (repeat (sslength ss)
        (setq ent (ssname ss index))
        (command "lengthen" ent "")
        (setq dist (GETVAR "PERIMETER"))
        (if (apply 'or (mapcar '(lambda (x) (equal dist x 1)) linelist))
          (progn
            (setq temp 0)
            (setq lnum nil)
            (foreach x linelist
              (if (equal dist x 1)
                (setq lnum temp)
              )
              (setq temp (1+ temp))
            )
            (setq count 0)
            (setq temp nil)
            (foreach x linenumlist
              (if (= count lnum)
                (setq temp (append temp (list (+ x 1))))
                (setq temp (append temp (list x)))
              )
              (setq count (1+ count))
            )
            (setq linenumlist temp)
          )
          (progn
            (setq linelist (append linelist (list dist)))
            (setq linenumlist (append linenumlist (list 1)))
          )
        )
        (setq index (1+ index))
      )
      (setq txt "")
      (setq count 0)
      (setq total 0)
      (setq subtotal 0)
      (repeat (length linelist)
        (if (= count 0)
          (if (> (nth count linenumlist) 1)

;;;;(setq txt (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개"))
;;;;(setq txt (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2)))

            (setq txt (strcat "nL = " (rtos (/ (nth count linelist) 1000.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개"))
            (setq txt (strcat "nL = " (rtos (/ (nth count linelist) 1000.0) 2 2)))
          )
          (if (> (nth count linenumlist) 1)

;;;;(setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개"))
;;;;(setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2)))

(setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1000.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개"))
 (setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1000.0) 2 2)))
 )
 )
 (setq subtotal (* (/ (nth count linelist) 1) (nth count linenumlist)))
 (setq total (+ subtotal total))
 (setq total1 (/ total 1000));————->추가함
 (setq count (1+ count))
 )
 ;;;;(setq txt (strcat txt " = " (rtos total 2 2) "m"))
 (setq txt (strcat txt " = " (rtos total1 2 2) "m"));——->total에서 total1 변경함
 (setq txt (strcat txt " : 객체수 " (rtos zzz 2 0) " 개"))
 (princ txt)
(if (not (setq tth (getreal (strcat "n현재 TextSize : <" (rtos(getvar "textsize") 2 1) "> 입니다. 원하는 Text 크기를 입력하세요 : "))))
 (setq tth (getvar "textsize"))
 (setvar "textsize" tth)
)
 (setq pt (getpoint "n 텍스트 삽입점 : "))

      (if pt (command "text" pt "" "" txt))

    )
)
(princ)
)

댓글 10 / 1 페이지

상큼메론90 이름으로 검색
작성일 2015.07.13 21:36

이 질문은 며칠전에 올라온것 같은데?????

수정했어요~~~ 테스트는 못해 봅니다.

잘 되는지 확인해 보세요

;;;;;;; (defun c:MM (/ ss sslist i index linelist linenumlist ent old10 old11 dist lnum count temp total total1 subtotal txt pt) (vl-load-com) ;—->total1 추가함 (princ "n Eltity Length Sum") (setvar "cmdecho" 0)

(setq ss (ssget (list (cons 0 "LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")))) (setq zzz (sslength ss)) (if ss (progn (setq index 0) (setq linelist nil) (setq linenumlist nil) (repeat (sslength ss) (setq ent (ssname ss index)) (command "area" "e" ent) (setq distt (/ (getvar "area") 1.0e+06)) (setq dist (* distt 0.3025)) ; (if (apply 'or (mapcar '(lambda (x) (equal dist x 1)) linelist)) (progn (setq temp 0) (setq lnum nil) (foreach x linelist (if (equal dist x 1) (setq lnum temp) ) (setq temp (1+ temp)) ) (setq count 0) (setq temp nil) (foreach x linenumlist (if (= count lnum) (setq temp (append temp (list (+ x 1)))) (setq temp (append temp (list x))) ) (setq count (1+ count)) ) (setq linenumlist temp) ) (progn (setq linelist (append linelist (list dist))) (setq linenumlist (append linenumlist (list 1))) ) ) (setq index (1+ index)) ) (setq txt "") (setq count 0) (setq total 0) (setq subtotal 0) (repeat (length linelist) (if (= count 0) (if (> (nth count linenumlist) 1)

;;;;(setq txt (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개")) ;;;;(setq txt (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2)))

(setq txt (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개")) (setq txt (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2))) ) (if (> (nth count linenumlist) 1)

;;;;(setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개")) ;;;;(setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2)))

(setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개")) (setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2))) ) ) (setq subtotal (* (/ (nth count linelist) 1) (nth count linenumlist))) (setq total (+ subtotal total)) (setq total1 (/ total 1000));————->추가함 (setq count (1+ count)) ) ;;;;(setq txt (strcat txt " = " (rtos total 2 2) "m")) (setq txt (strcat txt " = " (rtos total1 2 2) "평"));——->total에서 total1 변경함 (setq txt (strcat txt " : 객체수 " (rtos zzz 2 0) " 개")) (princ txt) (if (not (setq tth (getreal (strcat "n현재 TextSize : <" (rtos(getvar "textsize") 2 1) "> 입니다. 원하는 Text 크기를 입력하세요 : ")))) (setq tth (getvar "textsize")) (setvar "textsize" tth) ) (setq pt (getpoint "n 텍스트 삽입점 : "))

(if pt (command "text" pt "" "" txt)) ) ) (princ) )

;;;;;

<img alt=emoticon src="https://www.gocad.co.kr/qa_cad/modules/editor/components/emoticon/tpl/images/animated/animate_emoticon%20(36).gif"/>
이 질문은 며칠전에 올라온것 같은데?????
수정했어요~~~
테스트는 못해 봅니다.
잘 되는지 확인해 보세요
;;;;;;;
(defun c:MM (/ ss sslist i index linelist linenumlist ent old10 old11 dist lnum count temp total total1 subtotal txt pt)
  (vl-load-com)                                                                                            ;—->total1 추가함
  (princ "n Eltity Length Sum")
  (setvar "cmdecho" 0)
  (setq ss (ssget (list (cons 0 "LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE"))))
  (setq zzz (sslength ss))
  (if ss
    (progn
      (setq index 0)
      (setq linelist nil)
      (setq linenumlist nil)
      (repeat (sslength ss)
        (setq ent (ssname ss index))
(command "area" "e" ent)
(setq distt (/ (getvar "area") 1.0e+06))
(setq dist (* distt 0.3025)) ;
        (if (apply 'or (mapcar '(lambda (x) (equal dist x 1)) linelist))
          (progn
            (setq temp 0)
            (setq lnum nil)
            (foreach x linelist
              (if (equal dist x 1)
                (setq lnum temp)
              )
              (setq temp (1+ temp))
            )
            (setq count 0)
            (setq temp nil)
            (foreach x linenumlist
              (if (= count lnum)
                (setq temp (append temp (list (+ x 1))))
                (setq temp (append temp (list x)))
              )
              (setq count (1+ count))
            )
            (setq linenumlist temp)
          )
          (progn
            (setq linelist (append linelist (list dist)))
            (setq linenumlist (append linenumlist (list 1)))
          )
        )
        (setq index (1+ index))
      )
      (setq txt "")
      (setq count 0)
      (setq total 0)
      (setq subtotal 0)
      (repeat (length linelist)
        (if (= count 0)
          (if (> (nth count linenumlist) 1)
            ;;;;(setq txt (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개"))
            ;;;;(setq txt  (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2)))
            (setq txt (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개"))
            (setq txt  (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2)))
          )
          (if (> (nth count linenumlist) 1)
            ;;;;(setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개"))
            ;;;;(setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2)))
            (setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개"))
            (setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2)))
          )
        )
        (setq subtotal (* (/ (nth count linelist) 1) (nth count linenumlist)))
        (setq total (+ subtotal total))
        (setq total1 (/ total 1000));————->추가함
        (setq count (1+ count))
      )
      ;;;;(setq txt (strcat txt " = " (rtos total 2 2) "m"))
      (setq txt (strcat txt " = " (rtos total1 2 2) "평"));——->total에서 total1 변경함
      (setq txt (strcat txt " : 객체수 " (rtos zzz 2 0) " 개"))
      (princ txt)
(if (not (setq tth (getreal (strcat "n현재 TextSize : <" (rtos(getvar "textsize") 2 1) "> 입니다. 원하는 Text 크기를 입력하세요 : "))))
    (setq tth (getvar "textsize"))
    (setvar "textsize" tth) 
  )
      (setq pt (getpoint "n 텍스트 삽입점 : "))
      (if pt (command "text" pt "" "" txt))
      
    )
  )
  (princ)
)
;;;;;

싸후니 이름으로 검색
작성일 2015.07.14 08:45

네 ㅠㅠ 몇일전에 올렸어요.. 근데 해결점을 못찾아서요. 상큼메론님이 올려주신 방법으로도 해결이 안되네요 ㅠㅠ…

상큼메론90 이름으로 검색
작성일 2015.07.14 21:02

어떻게 해결이 안되는지도 알려주셔야지요. 그냥 무작정 안된다고 하면, 저도 알 수 가 없지요~

상세히 알려주셔야 그래야 저도 뭐가 문제인지 알수 있잖아요.

상큼메론90 이름으로 검색
작성일 2015.07.14 21:06

제가 수정한 것을 실행해 보니

합계부분이 / 1000 이 되어있네요, 이건 못 봤네요.

(command "area" "o" ent) 이부분을 아래와 같이 바꾸세요 (command "area" "e" ent)

(setq total1 (/ total 1000));————->추가함 이부분을 아래와 같이 바꾸세요 (setq total1 (/ total 1.0));————->

그러면 아래와 같이 실행될 겁니다.

싸후니 이름으로 검색
작성일 2015.07.15 09:51

감사합니다~^^ 상큼메론 덕분에 해결했습니다 ㅠㅠ 업무에 큰 도움이 될것같아요~ 정말 감사드려요~ ^^ 좋은하루되세요

싸후니 이름으로 검색
작성일 2015.07.15 14:46

도면적에 적용해보니 버그가 생겼습니다 ㅠㅠ 첨부사진과같이 1번 물량을 인식을 못하더라구요 평균값으로 이상하게 계산을해서 물량이 누락되는 현상이 발생합니다..ㅠㅠ 어디가 문제인지 찾질못하겠더라구요…

상큼메론90 이름으로 검색
작성일 2015.07.15 21:19

면적이 큰것은 제대로 나오는데 적은것은 그냥 묶어서 나와버리네요~~~

한번더 테스트 해 주세요~~~

(defun c:MM (/ ss sslist i index linelist linenumlist ent old10 old11 dist lnum count temp total total1 subtotal txt pt) (vl-load-com) ;—->total1 추가함 (princ "n Eltity Length Sum") (setvar "cmdecho" 0)

(command "area" "e" ent) (setq distt (/ (getvar "area") 1.0e+06)) (setq dist (* distt 0.3025)) ;평으로 환산 M²* 0.3025

(if (apply 'or (mapcar '(lambda (x) (equal dist x 0)) linelist)) (progn (setq temp 0) (setq lnum nil) (foreach x linelist (if (equal dist x 0) (setq lnum temp) ) (setq temp (1+ temp)) ) (setq count 0) (setq temp nil) (foreach x linenumlist (if (= count lnum) (setq temp (append temp (list (+ x 1)))) (setq temp (append temp (list x))) ) (setq count (1+ count)) ) (setq linenumlist temp) ) (progn (setq linelist (append linelist (list dist))) (setq linenumlist (append linenumlist (list 1))) ) ) (setq index (1+ index)) ) (setq txt "") (setq count 0) (setq total 0) (setq subtotal 0) (repeat (length linelist) (if (= count 0) (if (> (nth count linenumlist) 1)

;;;;(setq txt (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개")) ;;;;(setq txt (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2)))

;;;;(setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개")) ;;;;(setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2)))

(setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개")) (setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2))) ) ) (setq subtotal (* (/ (nth count linelist) 1) (nth count linenumlist))) (setq total (+ subtotal total)) (setq total1 (/ total 1.0));————->추가함 (setq count (1+ count)) ) ;;;;(setq txt (strcat txt " = " (rtos total 2 2) "m")) (setq txt (strcat txt " = " (rtos total1 2 2) "평"));——->total에서 total1 변경함 (setq txt (strcat txt " : 객체수 " (rtos zzz 2 0) " 개")) (princ txt) (if (not (setq tth (getreal (strcat "n현재 TextSize : <" (rtos(getvar "textsize") 2 1) "> 입니다. 원하는 Text 크기를 입력하세요 : ")))) (setq tth (getvar "textsize")) (setvar "textsize" tth) ) (setq pt (getpoint "n 텍스트 삽입점 : "))

(if pt (command "text" pt "" "" txt)) ) ) (princ) )

;;;

<img alt=emoticon src="https://www.gocad.co.kr/qa_cad/2893423/page/modules/editor/components/emoticon/tpl/images/animated/animate_emoticon%20(84).gif"/>
면적이 큰것은 제대로 나오는데
적은것은 그냥 묶어서 나와버리네요~~~
한번더 테스트 해 주세요~~~
(defun c:MM (/ ss sslist i index linelist linenumlist ent old10 old11 dist lnum count temp total total1 subtotal txt pt)
  (vl-load-com)                                                                                            ;—->total1 추가함
  (princ "n Eltity Length Sum")
  (setvar "cmdecho" 0)
  (setq ss (ssget (list (cons 0 "LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE"))))
  (setq zzz (sslength ss))
  (if ss
    (progn
      (setq index 0)
      (setq linelist nil)
      (setq linenumlist nil)
      (repeat (sslength ss)
        (setq ent (ssname ss index))
(command "area" "e" ent)
(setq distt (/ (getvar "area") 1.0e+06))
(setq dist (* distt 0.3025)) ;평으로 환산 M²* 0.3025
        (if (apply 'or (mapcar '(lambda (x) (equal dist x 0)) linelist))  
          (progn
            (setq temp 0)
            (setq lnum nil)
            (foreach x linelist
              (if (equal dist x 0)     
                (setq lnum temp)
              )
              (setq temp (1+ temp))
            )
            (setq count 0)
            (setq temp nil)
            (foreach x linenumlist
              (if (= count lnum)
                (setq temp (append temp (list (+ x 1))))
                (setq temp (append temp (list x)))
              )
              (setq count (1+ count))
            )
            (setq linenumlist temp)
          )
          (progn
            (setq linelist (append linelist (list dist)))
            (setq linenumlist (append linenumlist (list 1)))
          )
        )
        (setq index (1+ index))
      )
      (setq txt "")
      (setq count 0)
      (setq total 0)
      (setq subtotal 0)
      (repeat (length linelist)
        (if (= count 0)
          (if (> (nth count linenumlist) 1)
            ;;;;(setq txt (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개"))
            ;;;;(setq txt  (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2)))
            (setq txt (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개"))
            (setq txt  (strcat "nL = " (rtos (/ (nth count linelist) 1.0) 2 2)))
          )
          (if (> (nth count linenumlist) 1)
            ;;;;(setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개"))
            ;;;;(setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2)))
            (setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2) "*" (rtos (nth count linenumlist) 2 0) "개"))
            (setq txt (strcat txt " + " (rtos (/ (nth count linelist) 1.0) 2 2)))
          )
        )
        (setq subtotal (* (/ (nth count linelist) 1) (nth count linenumlist)))
        (setq total (+ subtotal total))
        (setq total1 (/ total 1.0));————->추가함
        (setq count (1+ count))
      )
      ;;;;(setq txt (strcat txt " = " (rtos total 2 2) "m"))
      (setq txt (strcat txt " = " (rtos total1 2 2) "평"));——->total에서 total1 변경함
      (setq txt (strcat txt " : 객체수 " (rtos zzz 2 0) " 개"))
      (princ txt)
(if (not (setq tth (getreal (strcat "n현재 TextSize : <" (rtos(getvar "textsize") 2 1) "> 입니다. 원하는 Text 크기를 입력하세요 : "))))
    (setq tth (getvar "textsize"))
    (setvar "textsize" tth) 
  )
      (setq pt (getpoint "n 텍스트 삽입점 : "))
      (if pt (command "text" pt "" "" txt))
      
    )
  )
  (princ)
)
;;;

싸후니 이름으로 검색
작성일 2015.07.16 09:14

드디어!! 완벽하게 작동됩니다!!!!+_+ 정말 감사드려요~~~~~ 행복한 하루되세요 ㅎㅎ

스마트노가다 이름으로 검색
작성일 2018.10.08 16:37

안녕하세요 .이거 평으로 출력되게하는거 말구요.m2으로 출력되게 하려면 어떤 부분 수정해야하는지 알수있을까요?

스마트노가다 이름으로 검색
작성일 2018.10.08 17:07

(setq distt (/ (getvar "area") 1.0e+06)) (setq dist (* distt 0.3025)) ;평으로 환산 M²* 0.3025 <——–이부분 1로 바꾸로 (setq txt (strcat txt " = " (rtos total1 2 2) "평"));——->total에서 total1 변경함 <—이부분 m2으로 출력하게수정했는데여 되긴되는데 이렇게하는거 맞나요??컴퓨터언어는 문외한이라…혼자 1시간 넘게 소스만 보구했는데….각 객체에 대한 면적 " + " 이거 사이에 m2 도 프린트 하고싶은데 그건 어캐하는건가요?

1(current)

로그인한 회원만 댓글 등록이 가능합니다.

작성자 정보

컨텐츠 정보

본문

관련자료