mumarenczy1 发表于 2002-11-9 20:19:00

块属性提取？？

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

陈伯雄 发表于 2002-11-10 08:29:00

这样做...

用下面的模拟程序就能够提取指定块的属性数据 (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 发表于 2002-11-10 15:35:00

在2002版本里好像可以直接实现

页: [1]
查看完整版本: 块属性提取？？