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

Autocad vbA 初级教程 13 块操作 定义块方法 Set blocksobj ThisDrawing Blocks Add 基点 块名 3 g P8 i3 S A c 把选择集加入块中的方法 三维 cad 机械 技术 汽车 catia pro e ug inventor solidedge solidworks caxa 时空 镇江 z P X7 E K1 E ThisDrawing CopyObjects 选择集 块 插入块方法 三维 cad 机械 技术 汽车 catia pro e ug inventor solidedge solidworks caxa 时空 镇江 6 i l 2 S v7 h 一共有五种模式 在输入时会有提示 其中最常用的是 acAttributeModeNormal 普通模式三维 cad 机械 技术 汽车 catia pro e ug inventor solidedge solidworks caxa 时空 镇江 3 B B 4 Y 3 画多段线 镜像画出球衣 4 画块属性 由于块属性默认的对齐方式是左对齐 而球员号码应该居中 所以必须把块的对齐属性改 为居中 但是当这个属性更改时块属性对齐点会自动归零 所以不得不再次更改对齐点属性1 K 9 b O s7 d Y 5 把多段线和属性复制到块中 6 提示用户点选球员位置和姓名三维网技术论坛 d0 j A j F s8 d 7 插入块 修改球衣号码属性 球员姓名属性 三维 cad 机械 技术 汽车 catia pro e ug inventor solidedge solidworks caxa 时空 镇江 0 g c4 Y 2 Y T R B N 以下是源码 附有详细的注释 如果有疑问 建议用变量跟踪法研究一下 三维网技术论坛 v H d q E Dim playerblock As AcadBlock 定义块变量 D9 p2 p 6 S 2 n A8 r9 p b Dim arcc 0 To 2 As Double 圆弧圆心 Dim linep1 0 To 2 As Double 线条端点 3 t9 a t c a d C T Dim linep2 0 To 2 As Double 线条端点 2三维网技术论坛 x u a Dim playernumberpoint 0 To 2 As Double 块属性插入点 Dim mytxt As AcadTextStyle 定义 mytxt 变量为文本样式 Dim blockRef As AcadBlockReference 定义块属性变量三维网技术论坛 4 P A6 A T j1 o G Dim Attr3 As Variant 插入块属性变量 三维 cad 机械 技术 汽车 catia pro e ug inventor solidedge solidworks caxa 时空 镇江 S z f 0 F p t pline 3 100三维 cad 机械 汽车 技术 catia pro e ug inventor solidedge solidworks caxa L R0 f p8 j pline 4 20三维网技术论坛 k o8 g j Q n8 g pline 6 o x4 F5 A b1 F r 4 b pline 7 250 6 u N2 b M V pline 9 125三维网技术论坛 7 8 N 9 j A pline 10 207三维网技术论坛 0 a 6 R1 Y V o 三维 cad 机械 汽车 技术 catia pro e ug inventor solidedge solidworks caxa g3 W X L b pline 15 112 pline 16 430三维网技术论坛 Q9 x0 m8 J Q Y0 A pline 18 50 pline 19 430三维 cad 机械 汽车 技术 catia pro e ug inventor solidedge solidworks caxa6 k8 T u w h3 v3 7 k l b b1 n y I1 Y v Q Set line1 ThisDrawing ModelSpace AddPolyline pline 画队服右侧多段线 e9 B z e p3 i9 linep2 1 1 镜像轴第二点位于 Y 轴上任一点三维网技术论坛 t v7 J 9 G9 T Set line2 line1 Mirror linep1 linep2 镜像获得另一半多段线 Dim p 0 To 2 As Double 定义坐标变量三维网技术论坛 0 h b7 w6 R l N element Delete 删除线条和属性 此操作并不影响已创建的块 o A O2 i 1 r K s o8 V h7 F 1 Y p1 ThisDrawing Utility GetPoint pstring 点选球员位置坐标三维 cad 机械 技术 汽车 catia pro e ug inventor solidedge solidworks caxa 时空 镇江 6 c s6 v C i4 J nstring ThisDrawing Utility GetString 30 球员姓名 三维网技术论坛 m5 v G1 D7 J C m e Set blockRef ThisDrawing ModelSpace InsertBlock p1 球员 1 1 1 0 插入块三维网技术论坛 E D H8 C r4 u l A Attr3 blockRef GetAttributes 获取块属性 Attr3 0 TextString CStr i 赋值球员号码 i1 A1 W8 s7 T A Attr3 1 TextString nstring