[编程交流] 组合多行长度a

(defun c:Test  (/ BlkName *error* ad IsAttributed l ss s p w d str st g  ent)
;;;===---{ Author : Tharwat Al Shoufi }---===;;;
;;;===---{ Date   : 20. May. 2013     }---===;;;
 (defun *error* (x)
   (if ad
     (setvar 'attdia ad)
   )
   (if st
     (entdel st)
   )
   (princ "\n*Cancel*")
 )
 (setq BlkName "MyAttributedBlock")    ; Name of the Attributed Block ;
 (setq ad (getvar 'attdia))
 (setvar 'attdia 0)
 (or Doc
     (setq Doc (vla-get-ActiveDocument (vlax-get-acad-object)))
 )
 (defun IsAttributed (Doc name / n)
   (setq n 0)
   (vlax-for o (vla-item (vla-get-blocks Doc) name)
     (if (eq "AcDbAttributeDefinition" (vla-get-objectname o))
       (setq n (1+ n))
     )
   )
   n
 )
 (cond
   ((eq 4
        (logand
          4
          (cdr
            (assoc 70 (entget (tblobjname "LAYER" (getvar 'clayer))))
          )
        )
    )
    (progn (alert "Current Layer is LOCKED !!") (exit))
   )
   ((not (tblsearch "BLOCK" BlkName))
    (progn (alert (strcat "The Attributed Block name < "
                          BlkNmae
                          " > is not found in the drawing !!"
                  )
           )
           (exit)
    )
   )
   ((not (eq (IsAttributed Doc BlkName) 3))
    (progn
      (alert
        (strcat
          "The Block name <"
          BlkName
          " > is not Attributed or doesn't have three attributes !!"
        )
      )
      (exit)
    )
   )
 )
 (if
   (and
     (progn (princ "\n Select lines to measure them :")
            (setq l  0.
                  ss (ssget '((0 . "LINE")))
            )
     )
     (progn (princ "\n Pick one Text only :")
            (setq s (ssget "_+.:S:E:L" '((0 . "*TEXT") (1 . "#*x*#"))))
     )
   )
    (progn
      ((lambda (j / sn e)
         (while (setq sn (ssname ss (setq j (1+ j))))
           (setq e (entget sn))
           (setq
             l (+ l (distance (cdr (assoc 10 e)) (cdr (assoc 11 e))))
           )
         )
       )
        -1
      )
      (setq p (vl-string-search
                "x"
                (setq str (cdr (assoc 1 (entget (ssname s 0)))))
              )
            w (substr str 1 p)
            d (substr str (+ 2 p))
      )
      (command "_.-insert"
               BlkName
               "_none"
               "\"
               "1.0"
               "0"
               (strcat "Length :" (rtos l 2 0))
               (strcat "Depth  :" d)
               (strcat "Width  :" w)                 
      )
      (setq st (entlast))
    )
 )
 (setvar 'attdia ad)
 (princ "\n Written by Tharwat Al Shoufi")
 (princ)
)
(vl-load-com)

ss (ssget '((0 . "LINE")))

ss (ssget '((0 . "LINE,ARC")))

(progn
      ((lambda (j / sn e)
         (while (setq sn (ssname ss (setq j (1+ j))))
           (setq e (entget sn))
           (setq
             l (+ l (distance (cdr (assoc 10 e)) (cdr (assoc 11 e))))
           )
         )
       )
        -1
      )