如何实现autolisp将变量内容赋于属性块的属性值

petty

请教各位大哥，用atuolisp如何实现将变量的内容值赋于属性块以替代属性块中的属性值，应该用什么函数?

alin

The following codes has been pasted here for N times.... ;;; EXAMPLE: (vlex-ChangeAttributes (list blk (cons "tag" "new-value"))) ;;;
;;;***************************************************************************;;;
;;; Arguments:
;;; A list containing one atom and one or more dotted pairs.
;;; The atom is the entity name of the block to change.
;;; The dotted pairs consist of the attribute tag and the new value for that attribute.
;;;
;;; Notes:
;;; Modifies the specified attribute in the specified block reference
;;;***************************************************************************;;; (vl-load-com)
(defun vlex-ChangeAttributes (lst / blk itm atts)
(setq blk (vlax-Ename->vla-Object (car lst))
lst (cdr lst)
)
(if (= (vla-Get-HasAttributes blk) :vlax-true)
(progn
(setq atts (vlax-SafeArray->list
(vlax-Variant-Value (vla-GetAttributes blk))
)
); setq
(foreach item lst
(mapcar
'(lambda (x)
(if (= (strcase (car item)) (strcase (vla-Get-TagString x)))
(vla-Put-TextString x (cdr item))
); endif
)
atts
); mapcar
); foreach
(vla-Update blk)
)
); endif
)

龙龙仔

PETTY

直接修改屬性塊中的屬性值不好嗎?看來你對AUTOCAD的<圖元名稱>不太了解

无痕

首先要搞清楚是同时改一个块中多个属性值，还是改块中多个属性中的一个（用点取还是用特征）或是一个块只有一个属性。


如果调用命令，用 attedit