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

souhu1230

lovezp 发表于 2019-5-8 09:49
这可是源码，不需要晓东工具箱你把这个加载到CAD,在命令行输入!XD::BLOCK:Setdynpropvalue
有返回值就表 ...

兄弟，不能用啊

lovezp

souhu1230 发表于 2019-5-10 13:03
兄弟，不能用啊

这只是个子函数而已，你想要现成的还不把你的动态块上传上来？

souhu1230

lovezp 发表于 2019-5-10 13:25
这只是个子函数而已，你想要现成的还不把你的动态块上传上来？

我就一个柜门板而已，没啥用，就是为了画图快点

lovezp

souhu1230 发表于 2019-5-12 12:03
我就一个柜门板而已，没啥用，就是为了画图快点

不知道你的动态块的参数名称，还有块的插入点，这几个不知道的话怎么去写程序？
来自: 微社区

137407536

lovezp 发表于 2019-5-12 19:39
不知道你的动态块的参数名称，还有块的插入点，这几个不知道的话怎么去写程序？

http://bbs.xdcad.net/thread-715101-1-1.html
这里有类似的，但是插入动态块基点如何控制在左下角？
附件为墙体动态块

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:cs.rar 
下载次数:9  文件大小:84.04 KB 
下载权限: 不限 以上  [免费赚D豆]

lovezp

137407536 发表于 2019-5-14 11:18
http://bbs.xdcad.net/thread-715101-1-1.html
这里有类似的，但是插入动态块基点如何控制在左下角？
...

你的动态块插入多段线内部是无法识别墙厚的，你是想插入的时候输入墙厚，还是整个插入完之后修改？

lovezp

2. (defun c:tt1 (/ *error* pi90 mspase mycaddoc pt ent pt1 pt2 dx dy)
   
3.   (defun *error* (msg)
   
4.     (vla-endundomark mycaddoc)
   
5.   )
   
6.   (setq pi90 (* pi 0.5))
   
7.   (setq mycaddoc (vla-get-activedocument (vlax-get-acad-object)))
   
8.   (setq mspace (vla-get-modelspace mycaddoc) )
   
9.   (vla-startundomark mycaddoc)
   
10.   (while (setq pt (getpoint "\n点选要填充的区域:"))
    
11.   (command "-boundary" pt "")
    
12.   (setq ent (vlax-ename->vla-object (entlast)))
    
13.   (vla-getboundingbox ent 'zx 'ys)
    
14.   (entdel (entlast))
    
15.   (setq        pt1 (vlax-safearray->list zx);左下角点
    
16.         pt2 (vlax-safearray->list ys);右上角点
    
17.         dy  (- (cadr pt2)(cadr pt1));竖向距离
    
18.         dx  (- (car pt2)(car pt1));横向距离
    
19. ;;;        pt1 (polar pt1 pi90 dy);insertpoint
    
20.         pt1 (vlax-3d-point pt1)
    
21.   ) ;_ 结束setq
    
22.   (vla-insertblock mspace pt1 "qq" 1 1 1 0)
    
23.   (setq ent (vlax-ename->vla-object (entlast)))
    
24.   (XD::BLOCK:Setdynpropvalue ent "距离1" dx)
    
25.   (XD::BLOCK:Setdynpropvalue ent "距离2" dy)
    
26.     )
    
27.   (vla-endundomark mycaddoc)
    
28.   (princ)
    
29. ) ;_ 结束defun
    
30. ;;;;;;;;;;;;;;;;;;;;;
    
31. ;;子函数源自http://bbs.xdcad.net/
    
32. ;;子函数作者：marting
    
33. (defun XD::BLOCK:Setdynpropvalue (blk prp val)
    
34.   (setq prp (strcase prp))
    
35.   (vl-some
    
36.     '(lambda (x)
    
37.        (if (= prp (strcase (vla-get-propertyname x)))
    
38.          (progn
    
39.            (vla-put-value
    
40.              x
    
41.              (vlax-make-variant
    
42.                val
    
43.                (vlax-variant-type (vla-get-value x))
    
44.              ) ;_ 结束vlax-make-variant
    
45.            ) ;_ 结束vla-put-value
    
46.            (cond (val)
    
47.                  (t)
    
48.            ) ;_ 结束cond
    
49.          ) ;_ 结束progn
    
50.        ) ;_ 结束if
    
51.      ) ;_ 结束lambda
    
52.     (vlax-invoke blk 'getdynamicblockproperties)
    
53.   ) ;_ 结束vl-some
    
54. ) ;_ 结束defun
    

(defun c:tt1 (/ *error* pi90 mspase mycaddoc pt ent pt1 pt2 dx dy)<br />   (defun *error* (msg)<br />     (vla-endundomark mycaddoc)<br />   )<br />   (setq pi90 (* pi 0.5))<br />   (setq mycaddoc (vla-get-activedocument (vlax-get-acad-object)))<br />   (setq mspace (vla-get-modelspace mycaddoc) )<br />   (vla-startundomark mycaddoc)<br />   (while (setq pt (getpoint "\n点选要填充的区域:"))<br />   (command "-boundary" pt "")<br />   (setq ent (vlax-ename->vla-object (entlast)))<br />   (vla-getboundingbox ent 'zx 'ys)<br />   (entdel (entlast))<br />   (setq        pt1 (vlax-safearray->list zx);左下角点<br />         pt2 (vlax-safearray->list ys);右上角点<br />         dy  (- (cadr pt2)(cadr pt1));竖向距离<br />         dx  (- (car pt2)(car pt1));横向距离<br /> ;;;        pt1 (polar pt1 pi90 dy);insertpoint<br />         pt1 (vlax-3d-point pt1)<br />   ) ;_ 结束setq<br />   (vla-insertblock mspace pt1 "qq" 1 1 1 0)<br />   (setq ent (vlax-ename->vla-object (entlast)))<br />   (XD::BLOCK:Setdynpropvalue ent "距离1" dx)<br />   (XD::BLOCK:Setdynpropvalue ent "距离2" dy)<br />     )<br />   (vla-endundomark mycaddoc)<br />   (princ)<br /> ) ;_ 结束defun<br /> ;;;;;;;;;;;;;;;;;;;;;<br /> ;;子函数源自http://bbs.xdcad.net/<br /> ;;子函数作者：marting<br /> (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<br />              x<br />              (vlax-make-variant<br />                val<br />                (vlax-variant-type (vla-get-value x))<br />              ) ;_ 结束vlax-make-variant<br />            ) ;_ 结束vla-put-value<br />            (cond (val)<br />                  (t)<br />            ) ;_ 结束cond<br />          ) ;_ 结束progn<br />        ) ;_ 结束if<br />      ) ;_ 结束lambda<br />     (vlax-invoke blk 'getdynamicblockproperties)<br />   ) ;_ 结束vl-some<br /> ) ;_ 结束defun<br />

137407536

lovezp 发表于 2019-5-14 12:49

很不错，结合加上选择图块图块，就完美很多了

souhu1230

lovezp 发表于 2019-5-14 12:49

这个我也试过了，还是不行喔，我上传动态柜门，能试一下吗。

lovezp

137407536 发表于 2019-5-14 15:37
很不错，结合加上选择图块图块，就完美很多了

选择 图块图块?

souhu1230

souhu1230 发表于 2019-5-14 17:04
这个我也试过了，还是不行喔，我上传动态柜门，能试一下吗。

明白了，块名要对应是吧，但是我有好多种动态块啊，这样比较麻烦呢，

lovezp

souhu1230 发表于 2019-5-14 17:04
这个我也试过了，还是不行喔，我上传动态柜门，能试一下吗。

你的动态块好像没有设置好，手动改参数你就会发现竖向尺寸有问题。你的块名比较奇葩，应该是别的软件自动生成的，按理来说设置的应该不会有问题，或者是我的CAD版本问题。
很多种是多少种？10种还是几十种还是过百？

souhu1230

lovezp 发表于 2019-5-14 18:13
你的动态块好像没有设置好，手动改参数你就会发现竖向尺寸有问题。你的块名比较奇葩，应该是别的软件自动 ...

我的块名是复制粘贴为块的，所以名字有点特殊，cad自动命名的，我动态块是一个家具库啊，估计过百了吧，你说的我不太明白，我不是很懂代码，做室内每天做重复的工作，所以想要一个动态块填充的，这样画图快一些。动态块改尺寸以前觉得挺快，现在还是感觉很慢，动态块填充或者点选感觉更快。

lovezp

你把你的动态块重新设置一下，我把你的动态块改了之后是可以用的。再把程序里的动态块名改成你的，你再看一下动态块里的属性，名称好像是距离和距离1，分别对应dy和dx


来自: 微社区

137407536

lovezp 发表于 2019-5-14 17:04
选择 图块图块?

就是可以选择其他动态块，进行填充