求助！

3kd

怎样才能提出块中定义的属性值？然后作为字符串。
在图元属性中怎么没有呀？班主！快快告诉我吧，我等着急用呀！

龙龙仔

;;VxGetAtts - Reads all attribute values from a block
;; -- Function VxGetAtts
;; Reads all attribute values from a block
;; Copyright:
;;   ?000 MENZI ENGINEERING GmbH, Switzerland
;; Arguments [Typ]:
;;   Obj = Object [VLA-OBJECT]
;; Return [Typ]:
;;   > Dotted pair list '(("Tag1" . "Val1")...) [LIST]
;; Notes:
;;   None
;; usage: (vxgetatts (vlax-ename->vla-object (car (entsel))))
(defun VXGETATTS (OBJ)
  (mapcar
    '(lambda (ATT)
       (cons (vla-get-tagstring ATT)
             (vla-get-textstring ATT)
       )
     )
    (vlax-invoke OBJ "GetAttributes")
  )
)

3kd