因为有的是直接从ACAD块中调入。而不是当前的块。
所以讲做好属性块带字段的新做一个块。也就是新块嵌套一个属性带字段的块。。 现在有结果没 很详细,又学到了知识。 不开对话框 怎样控制“字段”里面的内容 用lisp。 详解...... 谢谢学习到了字段的应用了 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
Lst = 点表 '(("Tag1" . "Val1")...)
返回值:nil 好厉害,确实很实用 很详细的教学,顶!
页:
1
[2]