(defun c:HYP
(/ BLK TAG ss n ob# sh al
) (setq BLK
"BL-PLAN-RIGHT" ; change to correct block name TAG "PAGE-NR" ; change to correct attribute tag
)
'((0 . "INSERT"))
)
)
)
)
(vla-Get-EffectiveName
)
)
)
)
)
(setq sh
(LM:vl
-GetAttributeValue ob# TAG
)) )
)
)
)
)
"Wrong markers:\n"
)
)
)
)
(princ "\n** No section markers in drawing **") )
)
;;----------------=={ Get Attribute Value }==-----------------;;
;; ;;
;; resurns the attribute value associated with the specified ;;
;; tag, within the supplied block, if present. ;;
;;------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2010 - www.lee-mac.com ;;
;;------------------------------------------------------------;;
;; Arguments: ;;
;; block - VLA Block Reference Object ;;
;; tag - Attribute TagString ;;
;;------------------------------------------------------------;;
;; resurns: Attribute TextString, else nil ;;
;;------------------------------------------------------------;;
(defun LM:vl
-GetAttributeValue
( block tag
) )
)
)
)
)