[编程交流] 为块指定值

(defun c:Test (/ *error* IfBlockhasSingleTextObject _sum j ss i sn l)
 ;;--- Tharwat 31. March, 2013 ---;;
 (defun *error* (msg)
   (princ
     "\n*Cancelled by user or by coincidence ,Nothings more*"
   )
 )
 (defun IfBlockhasSingleTextObject (e / i)
   (setq i 0)
   (setq e (tblobjname "BLOCK" (cdr (assoc 2 (entget e)))))
   (while (and    (setq e (entnext e))
       (not (eq (cdr (assoc 0 (entget e))) "SEQEND"))
      )
     (if (wcmatch (cdr (assoc 0 (entget e))) "*TEXT")
   (setq i (1+ i))
     )
   )
   i
 )
 (defun _sum (en / sm)
   (setq sm 0.)
   (setq en (tblobjname "BLOCK" (cdr (assoc 2 (entget en)))))
   (while (and    (setq en (entnext en))
       (not (eq (cdr (assoc 0 (entget en))) "SEQEND"))
      )
     (if (and (wcmatch (cdr (assoc 0 (entget en))) "*TEXT")
          (numberp (read (cdr (assoc 1 (entget en)))))
     )
   (setq sm (+ (read (cdr (assoc 1 (entget en)))) sm))
     )
   )
   sm
 )
 (if (setq j  0.
       ss (ssget "_:L" '((0 . "INSERT")))
     )
   (repeat (setq i (sslength ss))
     (setq sn (ssname ss (setq i (1- i))))
     (if (eq (IfBlockhasSingleTextObject sn) 1)
   (setq j (+ (_sum sn) j))
   (setq l (cons sn l))
     )
   )
 )
 (if l
   (alert
     (strcat "You have < "
         (itoa (length l))
         " > Blocks doesn't have or have more than one Text entity "
     )
   )
 )
 (if (> j 0)
   (alert (strcat "Total Values : " (rtos j 2 4)))
 )
 (princ "\nWritten by Tharwat Al Shoufi")
 (princ)
)

(defun c:Test (/ *error* j ss i e)
 ;;--- Tharwat 31. March, 2013 ---;;
 (defun *error* (msg)
   (princ
     "\n*Cancelled by user or by coincidence ,Nothings more*"
   )
 )
 (if (setq j  0.
       ss (ssget "_:L" '((0 . "INSERT") (2 . "180DEG,360DEG,90DEG")))
     )
   (repeat (setq i (sslength ss))
     (setq e (entget (ssname ss (setq i (1- i)))))
     (cond ((eq (cdr (assoc 2 e)) "90DEG")
        (setq j (+ 0.12 j))
       )
       ((eq (cdr (assoc 2 e)) "180DEG")
        (setq j (+ 1.8 j))
       )
       (t
        (eq (cdr (assoc 2 e)) "360DEG")
        (setq j (+ 2.07 j))
       )
     )
   )
 )
 (if (> j 0)
   (alert (strcat "Total Values : " (rtos j 2 4)))
 )
 (princ)
)