在CAD中用vba插入图块，如何实现？

殷栖桐

用vba进行CAD的自动画图，很多东西都是相同的，想用vba调用图块直接画图，请问这应该如何实现？是直接用vba靠指令画图，然后创建为块，还是说用vba直接调用已有的块放着图上？学习这个时间不长，可能连问题都没有说清楚，请帮忙，谢谢了！

woaishuijia

- e% O" r0 Z9 m& i) U$ M% X8 C* v
用VBA创建块的方法:
  Y% O" O" {- l& b' a7 a) r1.首先使用"Blocks"对象的"Add"方法创建新块("Block"对象)
该方法需要两个参数,第一个是块基点相对于块编辑器WCS的三维坐标(三元素双精度数组),第二个是块名称(字符串)
该方法的返回值是一个"Block"对象
2.在已创建的块("Block"对象)中画图,方法与在"ModelSpace"或"PaperSpace"对象中画图一样.
& D. N( i6 `1 r
用VBA插入块参照的方法:
3 C# k# w" m5 }# t使用"ModelSpace","PaperSpace"或"Block"对象的"InsertBlock"方法
$ C8 _' i" p1 u/ n0 X% b, F该方法需要6个参数,第一个是插入点相对于"ModelSpace","PaperSpace"或"Block"对象的WCS的三维坐标(三元素双精度数组),第二个是块名称(字符串),下面三个分别是X,Y,Z方向的比例,第六个是旋转角度.还有第七个可选的参数"密码",没什么用处.
$ f9 U* W2 n) K, }4 N% u该方法的返回值是一个"BlockRef"对象

) x/ E1 K; X+ P- z0 `1 A下面是一个创建块和插入块参照的例程

1. Sub 创建块和插入块参照()
   ' u& N1 \5 |7 d# ?
2.     Dim 块 As AcadBlock, 块基点(2) As Double, 圆心(2) As Double, 插入点(2) As Double
   " h$ {& U1 I, P) c8 I
3.     With ThisDrawing
   5 _# S. P( s1 A; ~; G, c0 D8 l( `8 M/ u& i
4.         Set 块 = .Blocks.Add(块基点, "我创建的块" )
   
5.         块.AddCircle 圆心, 10
   * D1 V8 ^- T/ @
6.         .ModelSpace.InsertBlock 插入点, "我创建的块", 1, 1, 1, 0
   6 _$ `& i# a# `+ x; I% x
7.     End With
   1 s) u0 o4 Y1 l& k0 G) Z9 V8 ^
8. End Sub

复制代码

殷栖桐

首先谢谢woaishuijia 的回复，您的回复对我有很大的帮助，谢谢！
现在我有另外一个问题，是这样的：我事先将各个图块画好，并存为dwg的文件，用的时候直接用vba调用，我能实现在调用的时候选择插入点的时候能够在屏幕上直接选择插入点，而不是在程序中固定插入点。但是问题是在选择插入点的时候没有显示这个图块，我的目的是屏幕上显示图块，同时未选定插入点前图块随着鼠标移动。这个能够实现吗？

157787698

插入点用GETPOINT获取就可以了