Question

lisp这个数据如何提取呀?

我想提取“属性”中的“空调插座”和“K”。
恳请大师帮忙！

Answer 1

(setq sjb '("abcd" 1234 ... 20.88))
(setq a (nth 0 sjb) ; a (car sjb)
b (nth 1 sjb); b (cadr sjb)
...
c (nth (1- (length sjb)) sjb); c (last sjb)
)
(princ "\na的值=")(princ a)
(princ "\b的值=")(princ b)
(princ "\nc的值=")(princ c)

用以下程序：
提取块参照的属性值
(defun c:test()
(vl-load-com)
(while (setq ent (car (entsel)))
(setq vob (vlax-ename->vla-object ent)
name (vlax-get vob "ObjectName")
)
(if (= name "AcDbBlockReference")
(if (setq attlist (vlax-invoke vob "GetAttributes"))
(progn
(setq fhz nil)
(foreach att attlist
(setq fhz (cons (list (vlax-get att "TagString")
(vlax-get att "TextString")
) fhz
)
)
)
(princ "\n属性值列表:")(princ fhz)
)
(alert "你选取的块不带有属性，请选取带有属性的块!")
)
(alert "你选取的不是块，请选取带有属性的块!")
)
)
(princ)
)