(DEFUN C:ds(/ eg egl n l ne entname entn p1 p2 l2 radi l_ength)
      (SETVAR “cmdecho” 0)
 (SETQ EG (SSGET))
 (SETQ EGL (SSLENGTH EG))
 (SETQ N 0)
 (setq l 0)
 (setq ne 0)
 (WHILE (< N EGL)
  (SETQ ENTN (SSNAME EG N))
  (SETQ ENT (ENTGET ENTN))
  (setq entname (assoc 0 ent))
  (setq entname (cdr entname))
  (if (= entname “LINE”)
   (progn
    (SETQ p1 (ASSOC 10 ENT))
    (SETQ p2 (ASSOC 11 ENT))
    (SETQ p1x (car (CDR p1)))
    (SETQ p1y (CaDdR p1))
    (SETQ p2x (car (CDR p2)))
    (SETQ p2y (CaDdR p2))
    (setq l2 (sqrt (+ (expt (- p1x p2x) 2) (expt (- p1y p2y) 2)))) 
    (setq l (+ l l2))
    (setq  ne (+ ne 1))
   )
  )
  (if (= entname “CIRCLE”)
   (progn
    (SETQ p1 (ASSOC 40 ENT))
    (SETQ radi (cdr p1))
    (setq l2 (* 2 (* pi radi)))
    (setq l (+ l l2))
    (setq  ne (+ ne 1))
   )
  )
  (if (= entname “ARC”)
   (progn
    (SETQ p1 (ASSOC 40 ENT))
    (SETQ radi (cdr p1))
    (SETQ p1 (ASSOC 50 ENT))
    (SETQ p2 (ASSOC 51 ENT))
    (SETQ p1R (CDR p1))
    (SETQ p2R (CDR p2))
    (SETQ TH (ABS (- P1R P2R)))
    (setq l2 (* RADI TH))
    (setq l (+ l l2))
    (setq  ne (+ ne 1))
   )
  )
            (if (or (= entname “LWPOLYLINE”)(= entname “POLYLINE”))
                  (progn
                   (command “area” “e” entn)
                   (setq l2 (getvar “perimeter”))
    (setq l (+ l l2))
    (setq  ne (+ ne 1))
             )
            )
  (SETQ N (+ 1 N))
 )
 (princ “n >>>>> “)
 (if (> egl ne)
  (progn
   (princ ne)(princ ” of “)(princ egl)
   (princ ” objects are measured // “)
  )
 )
 (princ ” Total length is  “)
 (setq l_ength (rtos (/ l 1000) 2 2))
 (prin1 l_ength)
        (setq pt (getpoint “nText Point: “))
               (setq h (getvar “textsize”))
               (prompt “nText Height: “)
               (princ H)
               (princ ”  : “)
               (setq z (getdist))
               (if z
                   (setq h z)
               )
               (command “text”
                        (setq z pt)
                        (setq z h)
                        (setq z 0.0)
                        (setq z l_ength)
               )
 (setvar “cmdecho” 1)
 (setvar “blipmode” 1)
 (princ)
)

현재 미터단위인데 이걸 밀리미터 단위로 좀 바꿔주세요 ㅠㅠ

본 사이트에서 구한 리습인데요 길이 단위를 미터 단위로 바꿀려면 어딜 손대야 하는지

제가 이것 저것 건드리니까 오류가 나네요 ^^;

또 지금은 “***** 선택 객체수 = “(rtos n)” 길이합계 = ” (rtos dis) 이렇게 텍스트가 정해져 있는데

이걸 쓸때마다 다르게 입력해서 할려면 어떻게 수정해야 하죠 리습은 너무 어려워서