Autocad-vbA-初级教程(13)-块操作

AutocadvbA初级教程(13)块操作定义块方法：Setblocksobj=ThisDrawing.Blocks.Add(基点,块名)(@把选择集加入块中的方法：三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江,^'zP#X7E*K1EThisDrawing.CopyObjects(选择集,块)插入块方法：三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江6i&~4E.C#M0y7HThisDrawing.ModelSpace.InsertBlock(插入点,块名,X轴比例,Y轴比例,Z轴比例,旋转角度)画块属性方法：三维|cad|机械|汽车|技术|catia|pro/e|ug|inventor|solidedge|solidworks|caxa0P3w.y3p(M&\:R%j(I.dThisDrawing.ModelSpace.AddAttribute(文字高度,模式,提示字符,插入点,显示字符,默认值)三维网技术论坛)W,P;l+`2{*S$v7h一共有五种模式，在输入时会有提示，其中最常用的是“acAttributeModeNormal”普通模式三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江3B-B&D!Y$W-oP(i编程思路：1．定义一个空块2．在块中画一段弧（球服衣领）三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江2r(W!y$^;]4Y3．画多段线，镜像画出球衣4．画块属性，由于块属性默认的对齐方式是左对齐，而球员号码应该居中，所以必须把块的对齐属性改为居中。但是当这个属性更改时块属性对齐点会自动归零，所以不得不再次更改对齐点属性@9b;O$s7d(Y5．把多段线和属性复制到块中6．提示用户点选球员位置和姓名三维网技术论坛*d0j*A!j,F)s8d7．插入块，修改球衣号码属性、球员姓名属性三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江0g$c4Y%?$?2?!]+Y+T;R)B%N以下是源码，附有详细的注释，如果有疑问，建议用变量跟踪法研究一下。三维网技术论坛*v$H&`-C,v:D$q8[[.TSubteam()DimplayerlayAsAcadLayer'定义球员图层(`,q!EDimplayerblockAsAcadBlock'定义块变量[6S$[2n/A8r9pbDimarcc(0To2)AsDouble'圆弧圆心Dimlinep1(0To2)AsDouble'线条端点1(^3t9a.t/c(a.d)CTDimlinep2(0To2)AsDouble'线条端点2三维网技术论坛!x#u/a&C$j*tDimpline(0To20)AsDouble'定义队服右侧多段线7个顶点三维|cad|机械|汽车|技术|catia|pro/e|ug|inventor|solidedge|solidworks|caxa6I7fI-S!{}*X8f*sDimbasep(0To2)AsDouble'块基点-L.]0H(M0R;{Dimplayernumberpoint(0To2)AsDouble'块属性插入点DimmytxtAsAcadTextStyle'定义mytxt变量为文本样式DimblockRefAsAcadBlockReference'定义块属性变量三维网技术论坛4P(A6AT,j1o!GDimAttr3AsVariant'插入块属性变量三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江#S*z&D$m2G&['gSetplayerblock=ThisDrawing.Blocks.Add(basep,球员)'定义一个球员的块arcc(0)=0arcc(1)=430_2q%u0jaf#D2x;f&yCallplayerblock.AddArc(arcc,50,ThisDrawing.Utility.AngleToReal(180,0),0)'画弧并加入块中+{3s2s,T;~0F:p&opline(0)=0三维网技术论坛9g'C+Q8Fm:N&Z9dpline(1)=20三维|cad|机械|汽车|技术|catia|pro/e|ug|inventor|solidedge|solidworks|caxa)D6I5h1R;tpline(3)=100三维|cad|机械|汽车|技术|catia|pro/e|ug|inventor|solidedge|solidworks|caxa-L:R0f;p8@!jpline(4)=20三维网技术论坛+k:o8]*g*j)Q$n8gpline(6)=100!o.x4F5A'b1F.r(_4b/|pline(7)=250(~6u.N2b%M)Vpline(9)=125三维网技术论坛7_'^8N'[9j)Apline(10)=207三维网技术论坛0a&zn;]6R1Y.V+o三维|cad|机械|汽车|技术|catia|pro/e|ug|inventor|solidedge|solidworks|caxa!g3W+X&K^0Npline(12)=212~4KJ(_:e(I9}$~pline(13)=257三维网技术论坛'U!]!v(m+@'U;L%bpline(15)=112pline(16)=430三维网技术论坛${/Q9x0m8J(Q,Y0A:|pline(18)=50pline(19)=430三维|cad|机械|汽车|技术|catia|pro/e|ug|inventor|solidedge|solidworks|caxa6k8T$u/w!h3v3?7k-l(b1n*y:I1Y$v!QSetline1=ThisDrawing.ModelSpace.AddPolyline(pline)'画队服右侧多段线+e9B-ze*_p3i9_linep2(1)=1'镜像轴第二点位于Y轴上任一点三维网技术论坛*t*v7J-?9G9TSetline2=line1.Mirror(linep1,linep2)'镜像获得另一半多段线Dimp(0To2)AsDouble'定义坐标变量三维网技术论坛0h:b7w6?+R+l&H.Z0m2O#iSetmytxt=ThisDrawing.TextStyles.Add(mytxt)'添加mytxt样式三维网技术论坛2K-S#N:U.P'_7Y4I:V1s:T)T:Rmytxt.fontFile=c:\windows\fonts\simfang.ttf'设置字体文件为仿宋体ThisDrawing.ActiveTextStyle=mytxt'将当前文字样式设置为mytxtplayernumberpoint(0)=0'块属性位置三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江9E.^&E&z.S,q2z8Uplayernumberpoint(1)=200三维网技术论坛6t'H0q3\)P6s.{4OSetattr1=ThisDrawing.ModelSpace.AddAttribute(100,acAttributeModeNormal,号码,playernumberpoint,X,0)'画块属性三维|cad|机械|汽车|技术|catia|pro/e|ug|inventor|solidedge|solidworks|caxa'X0T6j,i3a9T)B!a3Uattr1.Alignment=7'居中attr1.TextAlignmentPoint=playernumberpoint'重定义对齐点Setattr2=ThisDrawing.ModelSpace.AddAttribute(100,acAttributeModeNormal,姓名,playernumberpoint,???,0)'画块属性attr2.Alignment=7'居中三维网技术论坛7F$r6X1N4gh*]-u2VDimobjCollection(0To3)AsObject'创建选择集SetobjCollection(0)=line1'线条1加入选择集三维网技术论坛#^#C6^L:L:U2h:|!pSetobjCollection(1)=line2'线条2加入选择集SetobjCollection(2)=attr1'属性1加入选择集[6s-^$HG)L:{.V0VSetobjCollection(3)=attr2'属性2加入选择集!d5s'I$Q4BCallThisDrawing.CopyObjects(objCollection,playerblock)'把选择集加入块中ForEachelementInobjCollection'在选择集中进行循环三维|cad|机械|汽车|技术|catia|pro/e|ug|inventor|solidedge|solidworks|caxa$[2m%[4P+r5P9z;Nelement.Delete'删除线条和属性(此操作并不影响已创建的块)(o#A&],a+}4?NextSetplayerlay=ThisDrawing.Layers.Add(球员)'新建图层playerlay.color=2'为黄色三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江:~%Tp8X7u5uThisDrawing.ActiveLayer=playerlay'将当前图层设置为球员图层;O2_&H'F0Z#L-zLDimp1AsVariant'块插入点位置三维|cad|机械|汽车|技术|catia|pro/e|ug|inventor|solidedge|solidworks|caxa!x#_O*_#g0V+b1n0_7Y)d9?+m&XFori=1To11'插入块pstring=CStr(i)&号球员位置：三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江-T;i._1rK)s'o8],V#h7F/{1Yp1=ThisDrawing.Utility.GetPoint(,pstring)'点选球员位置坐标三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江6cs6v&C%i4Jnstring=ThisDrawing.Utility.GetString(30,球员姓名：)三维网技术论坛%m5v%G1D7J'C-m-eSetblockRef=ThisDrawing.ModelSpace.InsertBlock(p1,球员,1,1,1,0)'插入块三维网技术论坛,E*D*H8C*r4u$l/}AAttr3=blockRef.GetAttribut