[编程交流] 为块指定值

(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.06 j))
       )
       ((eq (cdr (assoc 2 e)) "180DEG")
        (setq j (+ 0.12 j))
       )
       (t
        (eq (cdr (assoc 2 e)) "360DEG")
        (setq j (+ 0.23 j))
       )
     )
   )
 )
 (if (> j 0)
   (alert (strcat "Total Values : " (rtos j 2 4)))
 )
 (princ)
)