求不用晓东工具箱就能使用的动态块匹配插件

souhu1230

有哪位大神会这样的插件？帮帮忙呗。

lovezp

souhu1230 发表于 2019-5-7 23:12
兄弟，你这个好像需要那个工具箱啊，上次我用那个工具箱，19版本的cad直接奔溃了，重新装的系统。重装cad ...

这可是源码，不需要晓东工具箱你把这个加载到CAD,在命令行输入!XD::BLOCK:Setdynpropvalue
有返回值就表示可以用

bonny123

计算匹配的过程有点慢

yangjian001

谢谢楼主分享

Lisphk

请不要在每日插件论坛发求助帖子。

souhu1230

bonny123 发表于 2019-5-2 21:38
计算匹配的过程有点慢

慢不要紧啊，关键有吗

souhu1230

yangjian001 发表于 2019-5-2 21:56
谢谢楼主分享

你有吗？谢谢分享啊。

souhu1230

Lisphk 发表于 2019-5-2 22:17
请不要在每日插件论坛发求助帖子。

好的，下次不会了。谢谢

souhu1230

bonny123 发表于 2019-5-2 21:38
计算匹配的过程有点慢

兄弟你有吗，最好是框选和点选两种方式都有的最好，这个有点像填充了。

aisong220

souhu1230

aisong220 发表于 2019-5-3 14:53

怎么了？兄弟

yangjian001

谢谢楼主分享

souhu1230

yangjian001 发表于 2019-5-4 00:07
谢谢楼主分享

亲，不是谢谢啊，你有吗？分享给我一下呗

lovezp

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

(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 />   )

借助上面marting大师的子程序，应该可以实现。

souhu1230

lovezp 发表于 2019-5-5 10:07
借助上面marting大师的子程序，应该可以实现。

兄弟，你这个好像需要那个工具箱啊，上次我用那个工具箱，19版本的cad直接奔溃了，重新装的系统。重装cad都解决不了了。