리습해석좀 부탁드립니다.

bom표 중량 구하는 lisp인데 bom 표 size?? 달라서 다른 도면에서는 lisp이
안되는것 같습니다.  아래 lisp 해석좀 부탁드립니다.
어느 부분을 어떻게 고쳐야 bom 표에 맞게 lisp이 될까요?
고수님들 부탁드립니다.

;=======================
;  Serch the Length
;=======================
(defun _lngth ()
   (progn
     (setq lng nil ii -1)
     (while ii
       (if (setq en (ssname lngss (setq ii (1+ ii))))
         (progn
           (setq ed (entget en))
           (if (< (* fa -2) (- sp (caddr (assoc 10 ed))) (* fa 2))
               (setq lng (atof (cdr (assoc 1 ed))) ii nil)
           )
         )
         (setq ii nil)
       )
     )
   )
)
;==================================
;  Search in the external data fie
;==================================
(defun xptrs (pre prgno / j n)
  (setq sym (substr sz 1 (1- pre))
        sz (substr sz pre)
        pno prgno
  )
  (while (= ” ” (substr sz 1 1))
    (setq sz (substr sz 2))
  )
  (setq j 0 x1 nil x2 nil x3 nil x4 nil
        n (1- (strlen sz))
  )
  (while (/= n j)
    (if (= “X” (substr sz (setq j (1+ j)) 1))
      (if x1 
        (if x2
          (if x3 (setq x4 j)
            (setq x3 j)
          )
          (setq x2 j)
        )
        (setq x1 j)
      )
    )
  )
)