autocad vba 初级教程(13) 块操作

《autocad vba 初级教程(13) 块操作》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、AutocadvbA初级教程(13)块操作定义块方法：:d"t-}(G;O:z-x(k1Y+`三维网技术论坛Setblocksobj=ThisDrawing.Blocks.Add(基点,块名)www.3dportal.cn3g-P8i3S#A  c(@把选择集加入块中的方法：三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江,^'z  P#X7E*K1EThisDrawing.CopyObjects(选择集,块)%],e)@4q0q0Q三维,cad,机械,技术,汽车,catia,p

2、ro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江插入块方法：三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江6i&~4E.C#M0y7HThisDrawing.ModelSpace.InsertBlock(插入点,块名,X轴比例,Y轴比例,Z轴比例,旋转角度)&Y8I0S2F,K;N三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江画块属性方

3、法：三维

4、cad

5、机械

6、汽车

7、技术

8、catia

9、pro/e

10、ug

11、inventor

12、solidedge

13、solidworks

14、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,

15、时空,镇江3B-B&D!Y$W-o  P(i编程思路：!F6U5O:?,L"W三维网技术论坛1．定义一个空块0}:r*N:k1Q*]-c#h2d1^1l#owww.3dportal.cn2．在块中画一段弧（球服衣领）三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江2r(W!y$^;]4Y3．画多段线，镜像画出球衣7H4~%Y  ?5V#r9Z(z三维网技术论坛4．画块属性，由于块属性默认的对齐方式是左对齐，而球员号码应该居中，所以必须把块的对齐属性改为居中。但是当这个属性更改时块

16、属性对齐点会自动归零，所以不得不再次更改对齐点属性www.3dportal.cn1K'@9b;O$s7d(Y5．把多段线和属性复制到块中2{)w5E;~2U7p0Z三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,solidworks,caxa,时空,镇江6．提示用户点选球员位置和姓名三维网技术论坛*d0j*A!j,F)s8d7．插入块，修改球衣号码属性、球员姓名属性%c"v)Z9G8f!l;awww.3dportal.cn三维,cad,机械,技术,汽车,catia,pro/e,ug,inventor,solidedge,

17、solidworks,caxa,时空,镇江0g$c4Y%?$?2?!]+Y+T;R)B%N以下是源码，附有详细的注释，如果有疑问，建议用变量跟踪法研究一下。三维网技术论坛*v$H&`-C,v:D$q8[  [.TSubteam()/c5L(n2/A  u%h三维

18、cad

19、机械

20、汽车

21、技术

22、catia

23、pro/e

24、ug

25、inventor

26、solidedge

27、solidworks

28、caxaDimplayerlayAsAcadLayer'定义球员图层www.3dportal.cn,C.T;d(`,q!EDimplayerblockAsAcadBlock'定义块变量www.3d

29、portal.cn$D9p2p-[6S$[2n/A8r9p  bDimarcc(0To2)AsDouble'圆弧圆心0]3F  q%B7_!`三维网技术论坛Dimlinep1(0To2)AsDouble'线条端点1www.3dportal.cn(^3t9a.t/c(a.d)C"TDimlinep2(0To2)AsDouble'线条端点2三维网技术论坛!x#u/a&C$j*tDimpline(0To20)AsDouble'定义队服右侧多段线7个顶点三维

30、cad

31、机械

32、汽车

33、技术

34、catia

35、pro/e

36、ug

37、inventor

38、s