SetDynPropertyValue设置动态块属性

eachy

;;Obj ---- blockref & DynamicBlockProperties & DynamicBlockProperty
;;lst ---- '((PropertyName1 value1) (PropertyName2 Value2) ....)
;;Eq. (setdynpropertyvalue (vlax-ename->vla-object (car (entsel))) '(("左右镜像" 1) ("门尺寸" 800.)))

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

菜瓜瓜

积分不够看不了。找了很久，终于找到类似的函数，亲测有效，同时附上函数出处：
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))))
        )
    )
)

我的我啊我

这个好！！！

st788796

这个应该是用在程序中设定好动态块的参数，通过函数一次调整Insert dynblock的参数

对已经插入的动态块用快捷面板修改或者夹点修改

XDSoft

st788796 发表于 2013-9-27 22:09
这个应该是用在程序中设定好动态块的参数，通过函数一次调整Insert dynblock的参数

对已经插入的动态块 ...

也不尽然，批量修改还是很有意义的，只有批量才体现效率。

st788796

没有试过刷子可不可以匹配动态块，这个函数倒是可以做一个出来

q3_2006

(
   (AllowedValues (全部 无节点))
   (Description . )
   (PropertyName . 可见性1)
   (ReadOnly . :vlax-false)
   (Show . :vlax-true)
   (UnitsType . 0)
   (Value . 全部)
)
用GETDYNALLPROPERTIES查询动态块的参数
在这里怎么用。。不懂，求范例！
附上动态DWG图

st788796

q3_2006 发表于 2013-10-11 16:39
(
   (AllowedValues (全部 无节点))
   (Description . )

记住几点，一只有非ReadOnly的才可以修改，二所有修改只有一个接口Value，三如果有AllowdValues值，修改的Value必须在AllowedValues内，Description是说明注释，也可以做版权说明，AllowedValues就是那些隐藏选项，Show就是是否显示动态参数，建议你把Help中的动态块操作命令看一遍，然后对照这几个函数，肯定就把DYN搞通了

q3_2006

st788796 发表于 2013-10-11 17:14
记住几点，一只有非ReadOnly的才可以修改，二所有修改只有一个接口Value，三如果有AllowdValues值，修 ...

做比较好理解。。文字。。。头疼！

st788796

q3_2006 发表于 2013-10-11 17:32
做比较好理解。。文字。。。头疼！

DYN部分，本论坛应该说VLA部分的代码都有了，再方便就用XDAPI，获取修改更直接方便，再就是用2011+的Get/Setpropertyvalue，不推荐VLA，毕竟VBA前途未卜，不过那个ActiveX帮助还是很有益的，对Lisper可能没机会接触ARX C#，com也算是面向对象的，不敢说触类旁通吧至少了解深入了对alisp也有大帮助

st788796

q3_2006 发表于 2013-10-11 16:39
(
   (AllowedValues (全部 无节点))
   (Description . )

对这个动态块只有两个Value，在AllowedValue中，函数应用就是("可见性"  "全部") 或者("可见性" "无节点")

zww170

很想学一下，居然看不到。

52幕墙设计

这个不错，动态快还不会

xiagood

好函数，谢谢

zeng7659

:):):):):):):):):):):):):):):):):):):)

xxxxxxxxx123

:(:(:(:(:(:(想看 。。。积分不够呀