求助！

3kd · 发表于 2003-6-10 18:56:00

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

龙龙仔 · 发表于 2003-6-11 08:12:00

;;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")
  )
)

求助！

发表回复

精选推荐