如何将设置好的拉伸动态块一键匹配到指定位置大小？

7762777

第一次发帖，不知道问题描述的清不清楚

我希望可以很快速的将设置好的拉伸动态块，快速的匹配到指定位置的矩形内，不知道这个功能是否可以实现？

请点击此处下载

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

您的用户组是：游客

文件名称:源文件 
下载次数:43  文件大小:0 Bytes 
下载权限: 不限 以上  [免费赚D豆]

请点击此处下载

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

您的用户组是：游客

文件名称:动态块门板合集 
下载次数:40  文件大小:998 KB 
下载权限: 不限 以上  [免费赚D豆]

st788796

2. 
   
3. (defun c:tt (/ ms _box pt w h p1 p2 blk props)
   
4.   (defun _box (ptl / minx maxy maxx miny xl yl)
   
5.     (setq xl   (mapcar 'car ptl)
   
6.           yl   (mapcar 'cadr ptl)
   
7.           minx (apply 'min xl)
   
8.           maxx (apply 'max xl)
   
9.           maxy (apply 'max yl)
   
10.           miny (apply 'min yl)
    
11.     )
    
12.     (list (list minx maxy 0.) (- maxx minx) (- maxy miny))
    
13.   )
    
14.   (setq        ms (vla-get-modelspace
    
15.              (vla-get-activedocument (vlax-get-acad-object))
    
16.            )
    
17.   )
    
18.   (while (and (setq p1 (getpoint "\n基点: "))
    
19.               (setq p2 (getcorner p1 "\n对角点: "))
    
20.          )
    
21.     (mapcar 'set '(pt w h) (_box (list p1 p2)))
    
22.     (setq
    
23.       blk (vla-insertblock ms (vlax-3d-point pt) "门4A1" 1. 1. 1. 0.)
    
24.     )
    
25.     (setq props        (safearray-value
    
26.                   (variant-value (vla-GetDynamicBlockProperties blk))
    
27.                 )
    
28.     )
    
29.     (foreach prop props
    
30.       (if (= (vla-get-PropertyName prop) "外形宽")
    
31.         (vla-put-value prop w)
    
32.       )
    
33.       (if (= (vla-get-PropertyName prop) "外形高")
    
34.         (vla-put-value prop h)
    
35.       )
    
36.     )
    
37.   )
    
38.   (princ)
    
39. )
    

<br /> (defun c:tt (/ ms _box pt w h p1 p2 blk props)<br />   (defun _box (ptl / minx maxy maxx miny xl yl)<br />     (setq xl   (mapcar 'car ptl)<br />           yl   (mapcar 'cadr ptl)<br />           minx (apply 'min xl)<br />           maxx (apply 'max xl)<br />           maxy (apply 'max yl)<br />           miny (apply 'min yl)<br />     )<br />     (list (list minx maxy 0.) (- maxx minx) (- maxy miny))<br />   )<br />   (setq        ms (vla-get-modelspace<br />              (vla-get-activedocument (vlax-get-acad-object))<br />            )<br />   )<br />   (while (and (setq p1 (getpoint "\n基点: "))<br />               (setq p2 (getcorner p1 "\n对角点: "))<br />          )<br />     (mapcar 'set '(pt w h) (_box (list p1 p2)))<br />     (setq<br />       blk (vla-insertblock ms (vlax-3d-point pt) "门4A1" 1. 1. 1. 0.)<br />     )<br />     (setq props        (safearray-value<br />                   (variant-value (vla-GetDynamicBlockProperties blk))<br />                 )<br />     )<br />     (foreach prop props<br />       (if (= (vla-get-PropertyName prop) "外形宽")<br />         (vla-put-value prop w)<br />       )<br />       (if (= (vla-get-PropertyName prop) "外形高")<br />         (vla-put-value prop h)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

7762777

st788796 发表于 2018-3-25 12:59

是否可以在代码里加入一个选择图块的步骤？因为我有很多常用的图块，并不是只有一个。

7762777

大佬们来帮帮忙啊

Lisphk

7762777 发表于 2018-3-25 14:22
是否可以在代码里加入一个选择图块的步骤？因为我有很多常用的图块，并不是只有一个。

因为你是动态块，除非所有块里面都定义的是一样的参数，否则程序就只能适合一个。比如上面的程序是处理的门A，如果别的动态块定义的是其他的名字，就不行了。

7762777

Lisphk 发表于 2018-3-25 16:32
因为你是动态块，除非所有块里面都定义的是一样的参数，否则程序就只能适合一个。比如上面的程序是处理的 ...

我所有的动态块除了名字以外，其他参数设定都是一样的在这样的前提下还是不好添加一个选择图块的步骤么？
我对插件编写一无所知，只是脑子里有这样一个概念^_^

st788796

动态块除了名字，每个参数的名称也是要确定的，程序只是给你个示意，具体应用还要根据自己定义的名称及动态块特性名称来编程
vla-get-EffectiveName 获取 Insert 的动态块 BlockTableRecord 名称

marting

7762777 发表于 2018-3-25 17:04
我所有的动态块除了名字以外，其他参数设定都是一样的在这样的前提下还是不好添加一个选择图块的步骤么？ ...

帮你修改了下ST的代码，试试

1. (defun c:tt (/ ms _box pt w h p1 p2 blk props)
   
2.   (defun _box (ptl / minx maxy maxx miny xl yl)
   
3.     (setq xl   (mapcar 'car ptl)
   
4.           yl   (mapcar 'cadr ptl)
   
5.           minx (apply 'min xl)
   
6.           maxx (apply 'max xl)
   
7.           maxy (apply 'max yl)
   
8.           miny (apply 'min yl)
   
9.     )
   
10.     (list (list minx maxy 0.) (- maxx minx) (- maxy miny))
    
11.   )
    
12.   (setq        ms (vla-get-modelspace
    
13.              (vla-get-activedocument (vlax-get-acad-object))
    
14.            )
    
15.   )
    
16.   (if (and (setq blk (car (entsel "\n拾取图块<退出>:")))
    
17.            (= (vla-get-objectname (setq blk (vlax-ename->vla-object blk)))
    
18.               "AcDbBlockReference"
    
19.            )
    
20.            (or (setq blkname (vla-get-EffectiveName blk))
    
21.                (setq blkname (vla-get-name blk))
    
22.            )
    
23.       )
    
24.     (progn
    
25.       (while (and (setq p1 (getpoint "\n基点: "))
    
26.                   (setq p2 (getcorner p1 "\n对角点: "))
    
27.              )
    
28.         (mapcar 'set '(pt w h) (_box (list p1 p2)))
    
29.         (setq
    
30.           blk (vla-insertblock
    
31.                 ms
    
32.                 (vlax-3d-point pt)
    
33.                 blkname
    
34.                 1.
    
35.                 1.
    
36.                 1.
    
37.                 0.
    
38.               )
    
39.         )
    
40.         (setq
    
41.           props        (safearray-value
    
42.                   (variant-value (vla-GetDynamicBlockProperties blk))
    
43.                 )
    
44.         )
    
45.         (foreach prop props
    
46.           (if (= (vla-get-PropertyName prop) "外形宽")
    
47.             (vla-put-value prop w)
    
48.           )
    
49.           (if (= (vla-get-PropertyName prop) "外形高")
    
50.             (vla-put-value prop h)
    
51.           )
    
52.         )
    
53.       )
    
54.     )
    
55.   )
    
56.   (princ)
    
57. )
    
58. 
    

(defun c:tt (/ ms _box pt w h p1 p2 blk props)<br />   (defun _box (ptl / minx maxy maxx miny xl yl)<br />     (setq xl   (mapcar 'car ptl)<br />           yl   (mapcar 'cadr ptl)<br />           minx (apply 'min xl)<br />           maxx (apply 'max xl)<br />           maxy (apply 'max yl)<br />           miny (apply 'min yl)<br />     )<br />     (list (list minx maxy 0.) (- maxx minx) (- maxy miny))<br />   )<br />   (setq        ms (vla-get-modelspace<br />              (vla-get-activedocument (vlax-get-acad-object))<br />            )<br />   )<br />   (if (and (setq blk (car (entsel "\n拾取图块<退出>:")))<br />            (= (vla-get-objectname (setq blk (vlax-ename->vla-object blk)))<br />               "AcDbBlockReference"<br />            )<br />            (or (setq blkname (vla-get-EffectiveName blk))<br />                (setq blkname (vla-get-name blk))<br />            )<br />       )<br />     (progn<br />       (while (and (setq p1 (getpoint "\n基点: "))<br />                   (setq p2 (getcorner p1 "\n对角点: "))<br />              )<br />         (mapcar 'set '(pt w h) (_box (list p1 p2)))<br />         (setq<br />           blk (vla-insertblock<br />                 ms<br />                 (vlax-3d-point pt)<br />                 blkname<br />                 1.<br />                 1.<br />                 1.<br />                 0.<br />               )<br />         )<br />         (setq<br />           props        (safearray-value<br />                   (variant-value (vla-GetDynamicBlockProperties blk))<br />                 )<br />         )<br />         (foreach prop props<br />           (if (= (vla-get-PropertyName prop) "外形宽")<br />             (vla-put-value prop w)<br />           )<br />           (if (= (vla-get-PropertyName prop) "外形高")<br />             (vla-put-value prop h)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

7762777

st788796 发表于 2018-3-25 17:32
动态块除了名字，每个参数的名称也是要确定的，程序只是给你个示意，具体应用还要根据自己定义的名称及动态 ...

不管怎么说，还是十分感谢^_^
我会试着学一学编码，这样就可以举一反三了

7762777

marting 发表于 2018-3-25 17:38
帮你修改了下ST的代码，试试

实测用不了，两个图块，除了名字不一样，参数是一致的，我上传一个DWG您帮我测试一下可以么？

marting

7762777 发表于 2018-3-25 18:10
实测用不了，两个图块，除了名字不一样，参数是一致的，我上传一个DWG您帮我测试一下可以么？

两个块里面都定义了 外形宽 和 外形高 吗？

7762777

marting 发表于 2018-3-25 17:38
帮你修改了下ST的代码，试试

我发现问题了！你写的插件完美的解决了我的问题！感谢感谢！

marting

7762777 发表于 2018-3-25 18:21
我发现问题了！你写的插件完美的解决了我的问题！感谢感谢！

发现了什么问题？

另外，不是我写的插件，你要谢谢ST，我只是修改了两行代码。还有，能把你其他的动态块打包贴上来吗，我参考下。

liunian0524

这是参照缩放?

zyclyl

果然大神多