Is there a lisp to run battman or attsync for ALL blocks in a dwg?

[ntroutmanRXPYE]

I constantly have to run battman or attsynce for most of my blocks that I insert for utilities etc. Instead of doing one by one is there a lisp or way to have CAD automatically sync all of the blocks within a dwg? 

[3wood]

You can try ATTSYNCALL.

[ntroutmanRXPYE]

Thanks! Do you know where I could find this in text form? 

[ronjonp]

@ntroutmanRXPYE 

Something like this?

(if (ssget "_X" '((0 . "INSERT")(66 . 1)))
  (command "_.attsync" "Name" "*")
)