;;;=================================================================*;;; 通用函数 *;;;功能:属性块中属性文字的修改 *;;;参数: EN -----包含属性的块的图元名称 *;;; AttName -----属性名称 *;;; int -----修改的组码编号 *;;; Value -----修改为的值 *;;;返回:T表示修改成功;否则返回nil *;;;日期:zml84 于 2012-07-23 *
(defun ZL-INSERT-SETATT (EN ATTNAME int VALUE / RETURN E TEST ENT)