cad 动态块参数批量修改

嘎嘎嘎123

同一个块插入多次后，想批量修改拉伸的长度，使拉伸的长度等于属性的值，怎么处理，求指点。

嘎嘎嘎123

多次插入同一个拉伸块后，怎么批量修改参数，使拉伸的参数等于属性的值。。

marting

嘎嘎嘎123 发表于 2018-12-3 22:42
多次插入同一个拉伸块后，怎么批量修改参数，使拉伸的参数等于属性的值。。

下面是VLA使用ACTIVEX的代码，你参考下，修改到VBA

1. (defun XD::BLOCK:Setdynpropvalue ( blk prp val )
   
2.     (setq prp (strcase prp))
   
3.     (vl-some
   
4.        '(lambda ( x )
   
5.             (if (= prp (strcase (vla-get-propertyname x)))
   
6.                 (progn
   
7.                     (vla-put-value x (vlax-make-variant val (vlax-variant-type (vla-get-value x))))
   
8.                     (cond (val) (t))
   
9.                 )
   
10.             )
    
11.         )
    
12.         (vlax-invoke blk 'getdynamicblockproperties)
    
13.     )
    
14. )
    

(defun XD::BLOCK:Setdynpropvalue ( blk prp val )<br />     (setq prp (strcase prp))<br />     (vl-some<br />        '(lambda ( x )<br />             (if (= prp (strcase (vla-get-propertyname x)))<br />                 (progn<br />                     (vla-put-value x (vlax-make-variant val (vlax-variant-type (vla-get-value x))))<br />                     (cond (val) (t))<br />                 )<br />             )<br />         )<br />         (vlax-invoke blk 'getdynamicblockproperties)<br />     )<br /> )<br />

嘎嘎嘎123

大神能不能帮忙修改成vba的代码，本**白，对这些毫无基础。。。拜托了

longer88

这个功能不错。

marting

嘎嘎嘎123 发表于 2018-12-4 07:47
大神能不能帮忙修改成vba的代码，本**白，对这些毫无基础。。。拜托了

楼主，你既然没基础，那么还是推荐你去学和用VLISP吧

嘎嘎嘎123

marting 发表于 2018-12-4 13:16
楼主，你既然没基础，那么还是推荐你去学和用VLISP吧

大神，能不能把代码逐行添加个注释啊，，我这几天一直在看介绍lisp的书，里面没有你用的几个函数，最关键的是帮助文件是英文的，实在看不懂

bonny123

那么多重引线的注释块呢？如何得到？