Check if block is annotative

[Aftertouch]

Hi All,

Is there a simple way to check if a block is annotative?

Seems like a very hard topic to find on the webs.

 

Thanks!

[rlx]

haven't tested this :

 

;; Added JB 1/27/2010. Used in the StripColumn function below.
  ;; by Ian Bryant
  ;; Return T if ename is annotative, otherwise nil.
  (defun IsAnnotative (e)
    (and e
      (setq e (cdr (assoc 360 (entget e))))
      (setq e (dictsearch e "AcDbContextDataManager"))
      (setq e (dictsearch (cdr (assoc -1 e)) "ACDB_ANNOTATIONSCALES"))
      (assoc 350 e)
    )
  ) ;end IsAnnotative

 

[Aftertouch]

Thanks! That works just fine.