块属性提取？？

mumarenczy1

我在定义了一个块属性，并定为不可见，可如何运用lisp进行提取？望大家帮忙！！

陈伯雄

用下面的模拟程序就能够提取指定块的属性数据 (T505.LSP) ：
(Defun C:SBlockA ()
           (SetQ bn (Car (EntSel "\n指定带属性的块: ")))
           (If (Assoc 66 (EntGet bn))
                     (Progn (SetQ bn (EntNext bn)
                                     bl (EntGet bn)
                         )
                                 (While (= "ATTRIB" (Cdr (Assoc 0 bl)))
                                      (Alert (StrCat "属性名: " (Cdr (Assoc 2 bl))
                                                                 "\n属性值: " (Cdr (Assoc 1 bl))
                                                         )
                                             )
                                      (SetQ bl (EntGet (SetQ bn (EntNext bn))))
                         )
                    )  
                    (Alert "没有属性...")
            )
)

摘自《Visual LISP程序设计——技巧与范例》第5章

canon75