属性块字段表达式

edata

因为某些块库插入会丢失信息。
因为有的是直接从ACAD块中调入。而不是当前的块。
所以讲做好属性块带字段的新做一个块。也就是新块嵌套一个属性带字段的块。。

zyun0169

现在有结果没

chg

很详细，又学到了知识。

flowerson

不开对话框 怎样控制“字段”里面的内容 用lisp。

xfjiamy

详解......

zhangcan0515

谢谢学习到了字段的应用了

wzg356

flowerson 发表于 2018-7-1 17:33
不开对话框 怎样控制“字段”里面的内容 用lisp。

设置块中属性
函数代码：
(defun VxSetAtts (Obj Lst / AttVal)
  (mapcar
    '(lambda (Att)
       (if (setq AttVal (cdr (assoc (vla-get-TagString Att) Lst)))
(vla-put-TextString Att AttVal)
       )
     )
    (vlax-invoke Obj "GetAttributes")
  )
  (vla-update Obj)
  (princ)
)
语法：(VxSetAtts Obj Lst)
参数： Obj = Object [VLA-OBJECT]
    Lst = 点表 '(("Tag1" . "Val1")...) [LIST]
返回值：nil

jixiezhang

好厉害，确实很实用

jkop

很详细的教学，顶！