块属性提取？？

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章

块属性提取？？

发表回复

精选推荐