AutocadvbA初级教程（13）块操作.pdf

AutocadvbA初级教程（13）块操作--第1页

AutocadvbA初级教程(13)块操作

定义块方法：

Setblocksobj=ThisDrawing.Blocks.Add(基点,块名)

把选择集加入块中的方法：

ThisDrawing.CopyObjects(选择集,块)

插入块方法：

0

ThisDrawing.ModelSpace.InsertBlock(插入点,块名,X轴比例,Y轴比例,Z轴比例,旋转角度)

画块属性方法：

ThisDrawing.ModelSpace.AddAttribute(文字高度,模式,提示字符,插入点,显示字符,默认值)

一共有五种模式，在输入时会有提示，其中最常用的是“acAttributeModeNormal”普通模式

编程思路：

1．定义一个空块

2．在块中画一段弧（球服衣领）

3．画多段线，镜像画出球衣

4．画块属性，由于块属性默认的对齐方式是左对齐，而球员号码应该居中，所以必须把块的对齐属性改为

居中。但是当这个属性更改时块属性对齐点会自动归零，所以不得不再次更改对齐点属性

5．把多段线和属性复制到块中

6．提示用户点选球员位置和姓名

7．插入块，修改球衣号码属性、球员姓名属性

0

以下是源码，附有详细的注释，如果有疑问，建议用变量跟踪法研究一下。

Subteam()

DimplayerlayAsAcadLayer定义球员图层

DimplayerblockAsAcadBlock定义块变量

Dimarcc(0To2)AsDouble圆弧圆心

Dimlinep1(0To2)AsDouble线条端点1

Dimlinep2(0To2)AsDouble线条端点2

Dimpline(0To20)AsDouble定义队服右侧多段线7个顶点

Dimbasep(0To2)AsDouble块基点

00

Dimplayernumberpoint(0To2)AsDouble块属性插入点

DimmytxtAsAcadTextStyle定义mytxt变量为文本样式

DimblockRefAsAcadBlockReference定义块属性变量

DimAttr3AsVariant插入块属性变量

球员定义一个球员的块

AutocadvbA初级教程（13）块操作--第1页

AutocadvbA初级教程（13）块操作--第2页

arcc(0)=0

arcc(1)=430

Callplayerblock.AddArc(arcc,50,ThisDrawing.Utility.AngleToReal(180,0),0)画弧并加入