I found this code from one of the forums and it works nicely, I just need it to inlcude more properties from the dynamic block such as the "Name", x,y,z & "Visibility" state. (The bnames are to extract data from those blocks only). Please help Thank in advance!
(defun c:out-att () (load "attout") (setq fna "C:\\att.txt") (setq data nil bnames "blk01,blk02,blk03,`*J*" ss (ssget "_X" (list '(0 . "INSERT") '(66 . 1) (cons 2 bnames)) ) ) (bns_attout fna ss) )
The code is partnered with ATTIN as I need the data be extracted and imported back into the blocks.
(defun c:in-att (/ tmpn) (load "attout") (setq #bns_attin_modified 0) (if (setq tmpn (findfile "C:\\att.txt" ) ) (bns_attin tmpn nil) ) )
Hello from France
I am not at all a developper but I have posted in the past updated (Support of Dynamic Blocks) routines for ATTIN / ATTOUT coming from a French Developper (from Brice/Bryce - already posted on a French Cad Foum - cadxp.com) ... Maybe it could help you !?
Patrice BRAUD