Section Callout

[cmlucifer]

Need some attribute help, The company I work for uses this attached block for calling out sections. I would like to know if its possible to enter the variable once and both change at the same time or if there is completely new approach than the block I submitted?

Thanks

Carlo

Section Call.dwg

[Tharwat]

Are you about to change the value of the indication of that dynamic block ?

 

(defun c:TesT (/ st ss n e)
 ;; Tharwat 27. Sep. 2011 ;;
 (if (and (not (eq (setq st (getstring "\n Specify string :")) ""))
      (setq ss (ssget "_+.:S" '((0 . "INSERT") (66 . 1))))
     )
   (progn
     (setq n (entnext (ssname ss 0)))
     (while (not (eq (cdr (assoc 0 (setq e (entget n)))) "SEQEND"))
   (if (eq (cdr (assoc 0 e)) "ATTRIB")
     (entmod (subst (cons 1 st) (assoc 1 e) e))
   )
   (setq n (entnext n))
     )
   )
 )
 (princ)
)

[cmlucifer]

Sorry for late response I was out of town. The lisp is flawless and it serves my purpose.

Thanks

Carlo

[Tharwat]

Sorry for late response I was out of town. The lisp is flawless and it serves my purpose.

Thanks

Carlo

 

You're welcome Carlo