SetDynPropertyValue设置动态块属性

lzj511 · 发表于 2016-10-18 23:32:38

学习了！！！！mark

yjch · 发表于 2016-10-19 14:30:00

好好学习天天向上

飞鸟凉 · 发表于 2016-11-8 14:55:21

确实是难得好帖啊，顶先

gmstcn · 发表于 2016-11-22 13:29:56

本帖隐藏的内容需要积分高于 30 才可浏览，您当前积分为 1

菜瓜瓜 · 发表于 2018-1-10 22:36:55

本帖隐藏的内容需要积分高于 30 才可浏览，您当前积分为 11

菜瓜瓜 · 发表于 2018-1-10 23:32:17

积分不够看不了。找了很久，终于找到类似的函数，亲测有效，同时附上函数出处：
http://www.lee-mac.com/dynamicblockfunctions.html#setdynamicprops  还有其他相关动态块函数
;; Set Dynamic Block Properties  -  Lee Mac
;; Modifies values of Dynamic Block properties using a supplied association list.
;; blk - [vla] VLA Dynamic Block Reference object
;; lst - [lst] Association list of ((<Property> . <Value>) ... )
;; Returns: nil

(defun LM:setdynprops ( blk lst / itm )
(setq lst (mapcar '(lambda ( x ) (cons (strcase (car x)) (cdr x))) lst))
(foreach x (vlax-invoke blk 'getdynamicblockproperties)
      (if (setq itm (assoc (strcase (vla-get-propertyname x)) lst))
         (vla-put-value x (vlax-make-variant (cdr itm) (vlax-variant-type (vla-get-value x))))
      )
)
)

sicky111 · 发表于 2018-1-11 00:03:17

谢谢楼主分享。

ych8208 · 发表于 2018-10-6 22:02:28

挺好的，非常有帮助

王子 · 发表于 2018-10-8 07:16:07

学习一下，动态块是什么意思。

lxw0320 · 发表于 2019-9-23 12:40:46

最近学习动态块的操控

Meng_UJhy2 · 发表于 2020-3-6 15:18:49

学习学习,学习

晨曦CAD · 发表于 2020-9-30 15:23:46

学习学习，积分不够

sj800918 · 发表于 2022-9-26 14:00:01

学习学习，关于动态块的内容太少了

账号		自动登录	找回密码
密码			立即注册

[原创] SetDynPropertyValue设置动态块属性

浏览过的版块