求CAD布局中同时插入块或文字方法!

spring8801

求在CAD多个布局中，一次性在所有布局中（或者所选布局中）插入相同文字或者块！

st788796

说的太简单，用图说话

spring8801

st788796 发表于 2013-6-21 18:03
说的太简单，用图说话

就是在CAD布局中指定位置，点选一个布局一个位置插入一段文字或图块后，每个布局中都相应位置都显示这个文字或图块！也就说我在布局1中插入“说明……”文字，布局2，布局3，布局4，……，所有布局中都有“说明……”文字。或者是选定布局中显示。

st788796

spring8801 发表于 2013-6-26 10:34
就是在CAD布局中指定位置，点选一个布局一个位置插入一段文字或图块后，每个布局中都相应位置都显示这个 ...

参考这个http://www.theswamp.org/index.php?topic=40985.0

1. (defun c:tt (/ p doc layouts)
   
2.   (if (setq p (getpoint "\nInsertpoint: "))
   
3.     (progn
   
4.       (setq doc     (vla-get-activedocument (vlax-get-acad-object))
   
5.      layouts (vla-get-layouts doc)
   
6.       )
   
7.       (vlax-for layout layouts
   
8. (vla-addtext
   
9.    (vla-get-block layout)
   
10.    "This is Testing!"
    
11.    (vlax-3d-point p)
    
12.    10.
    
13. )
    
14.       )
    
15.       (vlax-release-object doc)
    
16.       (vlax-release-object layouts)
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )

(defun c:tt (/ p doc layouts)<br />   (if (setq p (getpoint "\nInsertpoint: "))<br />     (progn<br />       (setq doc     (vla-get-activedocument (vlax-get-acad-object))<br />      layouts (vla-get-layouts doc)<br />       )<br />       (vlax-for layout layouts<br /> (vla-addtext<br />    (vla-get-block layout)<br />    "This is Testing!"<br />    (vlax-3d-point p)<br />    10.<br /> )<br />       )<br />       (vlax-release-object doc)<br />       (vlax-release-object layouts)<br />     )<br />   )<br />   (princ)<br /> )

spring8801

st788796 发表于 2013-6-27 00:14
参考这个http://www.theswamp.org/index.php?topic=40985.0

非常感谢！这段代码插入文字可以，如果我插入块应该怎么解决呢？

st788796

spring8801 发表于 2013-6-27 13:47
非常感谢！这段代码插入文字可以，如果我插入块应该怎么解决呢？

改为 vla-insertblock

spring8801

st788796 发表于 2013-6-27 17:10
改为 vla-insertblock

不会修改，可否把代码贴上？谢谢！

st788796

spring8801 发表于 2013-6-27 17:28
不会修改，可否把代码贴上？谢谢！

(vla-InserBlock object InsertionPoint Name Xscale Yscale ZScale Rotation)

把  vla-addtext 语句改为

1.    (vla-insertblock
   
2.       (vla-get-block layout)
   
3.       (vlax-3d-point p)
   
4.       "blockname";_改为自己块名称
   
5.        1.;_x 比例
   
6.        1.;_y比例
   
7.        1.;_z比例
   
8.        0.;_旋转角度
   
9. )
   

   (vla-insertblock <br />       (vla-get-block layout)<br />       (vlax-3d-point p)<br />       "blockname";_改为自己块名称<br />        1.;_x 比例<br />        1.;_y比例<br />        1.;_z比例<br />        0.;_旋转角度<br /> )<br />

spring8801

st788796 发表于 2013-6-27 17:48
(vla-InserBlock object InsertionPoint Name Xscale Yscale ZScale Rotation)

把  vla-addtext 语句 ...

非常感谢！问题得到解决！

清风明月10

谢谢楼主的分享！太好用了！收藏备用。