当前位置:2019年全年资料免费公开i > 缺省共享 >

VBA-共享资料网

  5.1 创建图形对象 创建图形对象的方法: (1) Document 对象的 SendCommand 方法。 (2) 添加图形对象集合或块对象的成员,应用 Add 类型的方法。 5.1.1 创建点 1.点样式和大小 点的样式和大小是可以设置的。与“点样式”对线 点样式 PDMODE 和 PDSIZE 系统变量控制点对象的外观。 PDMODE 的值为 0、2、3 和 4 时,指定通过点绘制的图形。值为 1 时表示不显示任何 图形。 PDSIZE 控制点图形的大小(PDMODE 的值为 0 和 1 时除外) 。如果设置为 0,则点图 形的高度是图形区高度的 5%。PDSIZE 正值指定点图形的绝对大小,负值将解释为视口大 小的百分比。 重生成图形时将重新计算所有点的大小。 用户修改 PDMODE 和 PDSIZE 之 后,现有点的外观会在下次重生成图形时改变。 要设置 PDMODE 和 PDSIZE,应使用 SetVariable 方法。 2.创建点 创建点要利用 AddPoint 方法。

  都相同。 要编辑多段线,应使用 LightweightPolyline 或 Polyline 对象的特性和方法。 编辑多段线的常用方法和属性如表 5-1 中所述。 表 5-1 编辑多段线的常用方法和属性 方法和属性 描述 方法 AddVertex 增加一个顶点 (只适用于优化多段线) Explode 炸开多段线 GetBulge 返回某给 定序号段的凸度 GetWidth 返回某一段的线宽 Offset 对多段线执行偏移操作 SetWidth 设 置给定序号段的开始线宽和结束线宽 SetBulge 设置给定序号段的凸度 属性 Closed 封闭 多段线 凸度是表示弧线几何特征的一个指标。SetBulge 方法可在给定的索引位置设定多段 线的凸度。 语法:object.SetBulge Index,Value 其中: Object——LightweightPolyline, Polyline Index——以 0 开始的正整数;要设定的顶点的索引位置序号 Value——双精度浮点数;给定索引位置上的顶点凸度值 说明: 凸度是在多段线顶点显示中, 选取顶点与下一个顶点形成的弧之间角度四分之一的正 切值。0 表示直线 表示半圆。凸度有正、负之分,当弧线是按反时针方向绘制的,凸度 的值为“+”;反之为“-”。 图 5-2 多段线 构成的多段线,其中第二段为弧线:弧线弦长为 d、拱高为 h、 顶点序号(从 0 开始计)为 1(p2 点) 。则该段的凸度 b= -h/(d/2)。本简图从 P2 到 P3 的弧 线是按顺时针方向绘制的,因此凸度 b 的计算式应加上“-”号。 例 5-8:如图 5-2 所示,先创建一条皆由直线段组成的优化多段线,其各顶点坐 标为 p1(100,100) 、p2(150,100) 、p3(170,60) 、p4(150,45) ,再按拱高 h=18 将 p2-p3 直线段改为圆弧。 Sub Ch5_EditPolyline( )

  (2) PatternName——图案名称 该名称在所选的图案类型中必须是有效的名称。 例如: 当选用 AcHatchPatternTypePredefined 图案类型时,可选用“ANSI31”。 (3) Associativity——关联性 要创建与其边界相关联的关联性图案填充,应将其第三个参数 Associativity 设为 TRUE;若 创建非关联性图案填充,该值为 FALSE。 (4) HatchObjectType——图案对象类型;可选 自 AutoCAD 2004 版起增添了此项可选性的更改。该参数的缺省值为 AcHatchObject。如果 图案类型参数 PatternType 选用 AcGradientPatternType 类型,则该参数为 AcGradientObject, 并且图案名称 PatternName 将含有渐变的图案名称。 2. 定义区域边界 区域的边界可以是直线、弧、圆、二维多段线、椭圆、样条曲线和面域,以及它们的任意组 合。 第一个追加的边界必须是最外侧的边界, 需要使用 Hatch 对象的 AppendOuterLoop 方法,它 定义了图案填充的最外面范围。在此之后可以继续追加内部边界,这需要使用 AppendInnerLoop 方法。 AppendOuterLoop 方法和 AppendInnerLoop 方法均需要一个参数,该参数是构成边界回路的 图形对象数据阵列。 内边界定义图案填充内的孤岛。Hatch 对象如何处理这些孤岛,由该对象的 HatchStyle 属 性决定。正常情况下该属性设为 acHatchStyleNormal。 注:可使用 InsertLoopAt 方法在多处生成图案填充。该方法需要三个参数:构成封闭边界的 顶点索引号(从 0 开始) 、定义边界类型的常数、构成边界回路的图形对象数据阵列。 3.编辑图案填充 用户可以更改现有填充图案的角度或间距,或者将其替换为实体填充或 AutoCAD 提供的 预定义图案。使用以下属性和方法来编辑填充图案: (1)PatternAngle 指定填充图案的角度。 (2)atternDouble 指定用户定义的图案填充是否双向填充。

  图层上的对象引用。 要清理图形,要使用 PurgeAll 方法,如:ThisDrawing.PurgeAll。 2.重命名对象 图形变得比较复杂时, 用户可以重命名对象, 使名称有针对性或者避免与用户插入主图形的 其他图形中的名称相冲突。 可以重命名任何命名对象,但 AutoCAD 默认的命名对象(例如图层 0 或 CONTINUOUS 线型)除外。 名称最长可以包含 255 个字符。除了字母和数字以外,名称还可以包含空格(虽然 AutoCAD 会删除名称前后的空格)以及任何未被 Windows 操作系统或 AutoCAD 用作其 他用途的特殊字符。 不能使用的特殊字符, 包括小于号和大于号 (、 正斜杠和反斜杠 (/、 )、 \)、引号 ()、冒号 (:)、分号 (;) 、问号 (?)、逗号 (,)、星号 (*)、竖线 ()、等号 (=) 和单 引号 ()。也不能使用以 Unicode 字体创建的特殊字符。 要重命名对象,要使用该对象的 Name 属性。 例 5-27:本例创建名为“NewLayer”的图层,然后将其重命名为“MyLayer”。 Sub Ch5_RenamingLayer( ) 创建图层ers.Add(NewLayer) 更改图层的名称 layerObj.Name = MyLayer End Sub 5.3 文字 5.3.1 文字样式 绘制文字时,需要规定字体、字高、宽度比例和倾角等,这都需要设置不同的 TextStyle(文 字样式)对象。在 TextStyles 集合中,除系统自动生成的 STANDARD 文字样式外,用户可 以修改预先定义好的文字样式,也可以用 Add 方法创建新的文字样式。要创建文字样式只 需一个参数——“样式名称”。 样式名可以包含字母、数字和特殊字符,例如美元符 ($)、

  下划线 (_) 和连字符 (-)。AutoCAD 将字符转换为大写字符。如果用户不输入样式名, AutoCAD 会自动将其命名为 Stylen,其中 n 是从 1 开始的数字。每个新样式会加 1 来 显示。文字样式创建之后,用户不能通过 AutoCAD ActiveX Automation 修改其名称。 如果用户修改现有样式的字体或方向, 所有使用该样式的文字均被修改为使用新的字体或方 向。更改文字的高度、宽度比例和倾斜角不会改变现有的文字,但会应用到以后创建的文字 对象上。 可通过修改 TextStyle 对象的属性来修改现有的文字样式。文字样式对象的属性如表 5-3 所 述。 表 5-3 文字样式对象的属性 属性 预设值 描述 字体文件(FontFile) Txt.shx 指定与字体(字符样式)关联的文件 大字体 文件 (BigFontFile) 无 指定适用于非 ASCII 字符集的特殊形定义文件 高度(Height) 0 指定 字符高度 (需要设置) 宽度(Width) 1 指定字符的宽度比例 倾斜角度(ObliqueAngle) 0 指定 字符的倾斜度 文字生成 (TextGenerationFlag) No,No 指定左右反向、上下颠倒文字或两者 同时兼有 注: 1) 要用 ActiveTextStyle 属性重置当前(激活的)文字样式。 2) 当修改字体后,所创建的文字都会被修改。 3) 当修改文字样式后,需要用 Regen 或 Update 重新生成对象才能看到修改的效果。 5.3.2 设置字体 自 AutoCAD 2000 简体中文版起,支持 TrueType 字体和三种形字体(即中西文正体 gbenor.shx、斜体 gbeitc.shx 和大字体 gbcbig.shx) 。若设置机械制图用的中西文混用的“工程 字”,应侭量用形字体,否则特殊字易乱码。所有的 AutoCAD SHX 形字体都是 Unicode 字 符。Unicode 字体包含了(比定义在系统中的)更多的字符。对于无法直接从键盘输入的字 符,就按输入“/U+nnnn”序列来实现。 TrueType 字体(.ttf 文件)是一种以实体填充的形式出现在图形文字中的字体,由 Windows 提供。 字体定义了构成每个字符集的文字字符的形状。一种字体可以被多个样式使用。可通过 TextStyle 对象的 FontFile 和 BigFontFile 属性指定字体文件;也可通过 TextStyle 对象的 GetFont 和 SetFont 方法获取当前文字样式的当前字体值及设置新的字体。 例 5-28:先利用 GetFont 方法获取当前文字样式的当前字体值,将字体名改为仿宋 _GB2312,然后使用 SetFont 方法设置新的字体。 Sub Ch5_UpdateTextFont( )

  End Sub 2.格式化单行文字 Text 对象是通过当前的文字样式创建的。用户可以通过修改文字样式或编辑 Text 对象的属 性来修改单行文字的格式,但不能对其中的个别文字或字符格式化。 要改变与单个 Text 对象相关联的文字样式,需要将它的 StyleName 属性设置为新的文字样 式。修改后,要使用 Text 对象的 Update 方法才能看到图形中的更改。 除了图形对象的公用可编辑属性(颜色、图层、线型等)外,用户还可以修改 Text 对象的 其它属性,这些属性包括: (1)Alignment 指定文字的水平和垂直对齐方式。 (2)InsertionPoint 指定文字的插入点。 (3)ObliqueAngle 指定一个文字对象的倾斜角度。 (4)Rotation 指定文字的旋转角度(以弧度为单位) 。 (5)ScaleFactor 指定文字的缩放比例。 (6)TextAlignmentPoint 指定文字的对齐点。 (7)TextGenerationFlag 指定文字是否要反向、倒置显示或两者兼有。 (8)TextString 指定显示的实际字符串。 修改属性之后,要用 Update 方法才能看到图形中的更改。 3.对齐单行文字 可以按多种水平或垂直方式来对齐单行文字。 其中左下对齐是默认方式。 可先创建一个单行 文字和一个参考点对象,然后使用 Alignment 属性重新对齐文字。 例 5-31:创建一个 Text 对象和一个 Point 对象。Point 对象被设置为文字对齐点,并变为 红色的十字光标,使其可见。文字对齐将被修改,并显示消息框以终止宏的执行,这样用户 就可以查看修改文字对齐的影响。 Sub Ch5_TextAlignment( ) Dim textObj As AcadText

  (7)Rotate 旋转。 注:进行镜像操作时,如果不希望文字被反向,应将系统变量 MIRRTEXT 设为 0。 5.3.5 使用多行文字 所谓多行文字,是填入到指定的宽度区域内的由任何文字行或段落数目所组成的同一对象。 可以同时对这一段文字进行移动、旋转、镜像、删除、复制、拉伸或调整比例。还可以对其 中的个别文字使用不同的文字样式以及比单行文字更多的编辑选项。 1.创建多行文字 创建多行文字需要使用 AddMText 方法,这个方法需要三个参数,依次为:插入点坐标、多 行文字宽度和文字字符串。 字符串是要显示的实际文字,可以是 Unicode、控制码和特殊字符。插入点是包含三个双精 度数的变量数组,这三个数代表图形中放置文字处的三维 WCS 坐标。文字宽度是代表文 字边框宽度的正数,宽度是以当前单位测量的。 创建 MText 对象之后,用户可以将文字高度、对正、旋转角度和样式应用到 MText 对象, 或将字符格式应用到选定字符。 2.修改多行文字中个别文字的格式 用户可以编辑多行文字中个别文字的格式或特殊字符。常用的文字格式码如表 5-6 所示。 表 5-6 常用文字格式码 格式码 作用 输入字符 显示效果 \\ 插入反斜线 Autodesk\\ Autodesk\ \{…\} 插入开始和结 束 大 括 弧 A\{2000\} A{2000} \文 件 名 修 改 为 指定 的 字 体 文 件 Auto\Ftimes;CAD2004 \HvalueX 修改文字高度为当前文字高的倍数 ACAD\H2X;2 ACAD2 \S…^… 堆叠后续文字 120\S+0.01^-0.02 \Hvalue 修改文字高度值 \L…\l 打开和关闭底线 \L AutoCAD\l AutoCAD 例 5-32:在多行文字中使用格式码 ,包括:打开和关闭底线、按比例修改字高、堆叠后续文 字等。 Sub Ch5_FormatMText( ) 定义控制字符的 ASCII 字符 Dim BS As Long Dim TS As Long

  图 5-3 多行文字的创建与编辑 5.4 块和外部引用 使用块可以将多个对象作为一个部件进行组织和操作。 块属性可以将信息项与图形中的块相 关联。 使用 AutoCAD 外部引用,可以将整个图形附着或覆盖到当前的图形中。打开当前图形时, 外部引用图形中所做的任何更改都会出现在当前图形中。 5.4.1 块操作 1.创建块对象 步骤: (1)块定义:用块集合的 Add 方法,其参数为插入点和块名。 (2)向块中添加各图形对象:用 Add 类型的方法。 2. 插入块 使用 InsetBlock 方法,需要六个参数:插入点坐标(3D) 、块名、X 方向比例系数、Y 方向 比例系数、Z 方向比例系数和旋转角度。 注: 1) 也可将已经存在的图形文件或用 WBlock 命令生成的块文件插入到图形中; 2) 插入后,块对象就成为块引用对象(或称“块参照”) (BlockRef) 。块中含有的属性也就 成为属性引用对象(或称“属性参照”) (AttributeRef) 。 3) 也可用 AddMInsertBlock 方法将块以矩形阵列的方式插入——成为多重插入块对象 MInsertBlock。 3.分解块参照 使用 Explode 方法可以炸开块参照。通过分解块参照,可以修改块或者添加或删除块参照 的成员对象。 4.重定义块对象 要重新定义块对象,需要使用该对象本身的方法和属性。重定义块时,图形中对该块的所有 参照也随着更新,以便反映新的定义。

  块重定义会影响以前和以后的块插入。固定属性会丢失,并且被新的固定属性所替换。即使 新块不包含属性,可变属性也保持不变。 5.4.2 块属性 块属性是一种可以与块对象相关联的文字对象。 当使用块对象时, 它提供给用户一种交互式 的标识或标签。 属性定义是与创建该属性定义所在的块相关联的。创建属性定义对象要使用块对象的 AddAttribute 方法,它需要六个参数,依次为: (1) 属性文本高度。 (2) 属性模式。 acAttributeModeNormal 指定维持每个属性的当前模式 acAttributeModeInvisible(1)插入块时不显示属性值 acAttributeModeConstant(2)块在插入时属性值为常数 acAttributeModeVerify(4) 属性值是验证方式(提示用户确认属性值是否正确) acAttributeModePreset(8) 属性值是预设方式,设置属性为其默认值(无法编辑) 模式参数可以为无(None) 、上述五种常数的一个或任意组合。如果要指定选项组合,需要 将各常数相加。 (3) 属性提示字符串 prompt。 提示字符串是在插入带属性的块时出现的, 该字符串的默认值是标签字符串。 当属性模式为 acAttributeModeConstant 时,该参数值无效(不提示) 。 (4) 属性文本插入点坐标。 (5) 标签字符串 Tag。 标签字符串是提示字符串的默认值。用户可以使用除空格或感叹号外的任何字符。 (6) 默认属性值 Value。 当插入块时,用户可以指定不同的值给属性参照。若未输入任何文字,AutoCAD 将使用该 默认属性值。

  例:ThisDrawing.Blocks.Item(“WXREF”).Detack (2)更新外部引用对象——使用块对象的 Reload 方法。 例:ThisDrawing.Blocks.Item(“WXREF”). Reload (3)卸载外部引用对象——使用块对象的 Unload 方法,该法与分离类似,但卸载外部引用 时保留与外部引用文件的一个连接,以后用 Reload 方法可随时加载该文件。 例:ThisDrawing.Blocks.Item(“WXREF”). Unload (4)绑定外部引用对象 所谓绑定外部引用对象, 就是将外部引用对象作为块永久地保留在图形文件中, 即并入外部 参照。绑定外部引用对象要使用 Bind 方法,该方法需要一个布尔型参数 bPrefixName。如果 该值为 TRUE,则保留符号表信息(如层、线型等) 。外部参照图形的符号名称为:当前图 形名称+块名+$x$, 其中 x 是自动增加的整数, 以避免取代现有的块定义。 如果该值为 FALSE, 则外部参照图形的符号名称会合并到当前图形,而且没有字首(不再冠以前缀) 。如果用户 不能确定图形是否包含了重复的符号名称,一般该参数应设置为 TRUE。 例:ThisDrawing.Blocks.Item(“WXREF”). Bind TRUE 5.5 标注和公差 5.5.1 标注基础知识 标注可以显示对象的形位测量值、对象之间的距离或角度,以及 X 坐标和 Y 坐标。 AutoCAD 提供三种基本的标注类型::线性标注、直径(半径)标注和角度标注。其中线性 标注包括对齐式、旋转式和坐标式标注。可以为直线、圆等图形对象创建相关的标注对象, 也可以是独立的标注对象(只要指定必要的参数) 。 1.尺寸标注的组成 尺寸标注对象一般的由标注文字、箭头、尺寸线(标注线) 、尺寸界线(延伸线)和尺寸界 线起点组成。标注文字可以是实际测量值字符串,也可以是用户输入的尺寸等标注性文字, 它还可以包括字首、字尾和公差。单行标注文字使用由 ActiveTextStyle 属性指定的当前激 活的文字样式。多行段落文字也使用当前的文字样式,但可对其中的文字进行编辑。中心标 记是标识圆或弧的中心点的小十字。 2.标注系统变量 标注系统变量可以用来控制标注对象的外观,需要用 SetVariable 方法设置。这些标注系统 变量主要包括: DIMAUNIT、 DIMUPT、 DIMTOFL、 DIMFT、 DIMTIH、 DIMJUST 和 DIMTAD。

   利用多行文字格式码、Unicode 字符输入字符串 Dim TS As String TS = \A1;\H5;\U+2205100\H0.75x;\S+0.01^-0.15;\P 利用 TextOverride 属性替换标注文字 dimOb1.TextOverride = TS dimOb1.Update End Sub 该通用过程的运行结果如图 5-5 所示。 图 5-5 尺寸标注综合示例的运行结果 5.5.4 标注样式 标注样式是一组用于确定标注外观的设置。 使用标注样式, 可以建立和实施图形的绘图标准。 所有标注都使用当前标注样式来创建。 如果在创建标注之前没有定义或应用样式, AutoCAD 会应用默认的样式,即 STANDARD。要将某标注样式设置为当前标注样式,应使用 ActiveDimStyle 属性。 每个标注样式中都包含了两种设置: (1)父样式:较为普遍的对大多数尺寸变量的设置。 (2)子样式:仅适用于某一种尺寸标注的设置。 父样式作用于所有的子样式设置,而每个子样式设置又优先于父样式设置。 要设置父标注样式,应从命名和保存样式开始。新样式以当前样式为基础,并包括对标注组 成部分的布局、文字位置以及注释外观的所有后续更改。这里的注释指主单位、换算单位、 公差和文字。 1. 创建、修改和复制标注样式 要创建新的标注样式,须使用 Add 方法。这个方法需要输入新标注样式的名称。 AutoCAD ActiveX Automation 允许添加用户自己创建的新标注样式或者更改当前标注样 式。也可以通过 StyleName 属性来改变某一尺寸标注对象的样式。

  用户也可以使用 CopyFrom 方法,将一种标注样式从源对象复制到新标注样式中。源对象 可以是另一个 DimStyle 对象、 标注对象、 公差对象 或 Leader 对象, 甚至可以是 Document 对象。如果从另一个标注样式复制,则样式被精确复制。如果从标注对象、公差对象 或 Leader 对象复制样式的设置,则当前设置(包括所有对象替代)会被复制到新样式中(即 新样式中将保留源对象的尺寸标注设置和当前设置中不与源对象设置发生冲突的设置) 。如 果复制 Document 对象的样式,则当前标注样式加上所有的图形替代,会被复制到新样式 中(即新样式中将包括所有子样式的设置和当前设置中不与子样式发生冲突的设置) 。 2.改变标注样式中的设置值 每个标注对象在使用当前标注样式的设置时, 都可以忽略该样式中的某些设置, 而使用自己 本身的属性来替代标注样式中的设置值。以下属性可用于大多数标注对象: (1)AltRoundDistance 指定换算单位的舍入。 (2)AngleFormat 指定角度标注的单位格式。 (3)Arrowhead1Block 指定用作尺寸线第一端自定义箭头的块。 (4)Arrowhead2Block 指定用作尺寸线第二端自定义箭头的块。 (5)Arrowhead1Type 指定尺寸线的第一端箭头类型。 (6)Arrowhead2Type 指定尺寸线的第二端箭头类型。 (7)ArrowheadSize 指定尺寸线箭头、引线箭头和钩线)CenterMarkSize 指定半径标注和直径标注的中心标记大小。 (9)CenterType 指定半径标注和直径标注的中心标记类型。 (10)DecimalSeparator 指定在十进制标注和公差值中用作小数分隔符的字符。 (11)DimensionLineColor 指定标注、引线或公差对象的尺寸线)DimensionLineWeight 指定尺寸线Suppress 指定是否隐藏第一段尺寸线Suppress 指定是否隐藏第二段尺寸线)DimLineInside 指定是否只在尺寸界线之内显示尺寸线)ExtensionLineColor 指定标注的尺寸界线)ExtensionLineExtend 指定尺寸界线超出尺寸线)ExtensionLineOffset 指定尺寸界线从原点偏移的距离。 (19)ExtensionLineWeight 指定尺寸界线EndPoint 指定第一条尺寸界线EndPoint 指定第二条尺寸界线StartPoint 指定第一条尺寸界线StartPoint 指定第二条尺寸界线Suppress 指定是否隐藏第一条尺寸界线Suppress 指定是否隐藏第二条尺寸界线)Fit 指定文字和箭头在尺寸界线)ForceLineInside 指定当文字放在尺寸界线之外时是否仍要在尺寸界线之间画一条尺 寸线)FractionFormat 指定标注和公差中的分数值的格式。 (29)HorizontalTextPosition 指定标注文字的水平对正方式。 (30)LinearScaleFactor 指定线性标注测量值的全局缩放比例。 (31)PrimaryUnitsPrecision 指定标注或公差的主单位的小数位数。 (32)SuppressLeadingZeros 指定是否隐藏标注值中的前导零。 (33)SuppressTrailingZeros 指定是否隐藏标注值中的后续零。 (34)SuppressZeroFeet 指定是否隐藏标注值中的零英尺测量值。 (35)SuppressZeroInches 指定是否隐藏标注值中的零英寸测量值。 (36)TextColor 指定标注和公差对象的文字颜色。 (37)TextGap 指定当用户截断尺寸线以放置标注文字时,标注文字与尺寸线)TextHeight 指定标注或公差文字的高度。 (39)TextInside 指定是否在尺寸界线之内绘制标注文字。 (40)TextInsideAlign 指定所有标注类型(坐标标注除外)的标注文字是否位于尺寸界线)TextMovement 指定当文字移动时标注文字的绘制方式。 (42)TextOutsideAlign 指定所有标注类型(坐标标注除外)的标注文字在尺寸界线)TextPosition 指定标注文字的位置。 (44)TextPrecision 指定角度标注文字的精度。 (45)TextPrefix 指定标注值的前缀。 (46)TextRotation 指定标注文字的旋转角度。 (47)TextSuffix 指定标注值的后缀。 (48)ToleranceDisplay 指定公差是否要与标注文字一起显示。 (49)ToleranceHeightScale 指定公差值文字高度相对于标注文字高度的比例。 (50)ToleranceJustification 指定公差值相对于标注文字的垂直对正方式。 (51)ToleranceLowerLimit 指定标注文字的下偏差。 (52)TolerancePrecision 指定主标注中公差值的精度。 (53)ToleranceSuppressLeadingZeros 指定是否隐藏公差值中的前导零。 (54)ToleranceSuppressTrailingZeros 指定是否隐藏标注值中的后续零。 (55)ToleranceUpperLimit 指定标注文字的上偏差。 (56)UnitsFormat 指定所有标注(角度标注除外)的单位格式。 (57)VerticalTextPosition 指定文字相对于尺寸线:利用 TextPrefix 属性指定标注值的前缀“φ”和利用 TextSuffix 属性指定标注值的后

  ThisDrawing.Regen acAllViewports End Sub 该通用过程的运行结果如图 5-6 所示。 图 5-6 创建带引线 图形对象创建与编辑的综合示例 5.6.1 演示图形对象创建与编辑的综合示例 1. 综合示例的用户界面 综合示例的窗体如图 5-7 所示。该应用示例具有多项常用的创建或编辑图形对象的功能,如 用户窗体界面上命令按钮的标签所示。单击各个按钮即运行不同的事件过程。 因该程序利用 VB6.0 开发,则使用时应首先单击《引用 AutoCAD 并建立图形文件》按钮, 实现连接 AutoCAD 及建立图形文件,然后再根据需要单击某按钮演示其功能。

   激活TestDimStyle为当前尺寸标注样式 acadDoc.ActiveDimStyle = newDimStyle End Sub 该通用过程的运行结果如图 5-8 所示。 图 5-8 创建新的角度标注样式 5.6.2 生成带键槽的轴剖面综合示例 1.设计用户界面 生成带键槽的轴剖面综合示例的窗体,如图 5-9 所示。 本综合示例是通过文本框输入已知参数的。键入的已知条件(轴直径、键槽宽、键槽深及必 要的尺寸公差) ,首先要由文本(例如:Text1.Text=”40”; Text2.Text=”12”; … )转换为数值 才能写入计算数值的程序(例如:d=Val(Text1.Text)) 。运行时,应先单击命令按钮《引用 AutoCAD》 ,待出现 AutoCAD 界面后,再单击命令按钮《运行》 。运行结果如图 5-10 所示。 图 5-9 带键槽轴剖面综合示例的用户窗体界面 图 5-10 带键槽的轴剖面图综合示例的运行结果 2.带键槽轴剖面综合示例的《运行》事件过程 该综合示例的源程序全部收录在本书附带的光盘中,此节仅介绍其中的一段。 事件过程主要完成以下内容: (1)新设置四个图层及其颜色、线型(包括加载点划线)创建及编辑优化多段线——形成带键槽的轴剖面外轮廓。 (3)创建图案填充对象,并追加其外边界。 (4)画中心线)创建及编辑尺寸标注。 对于直径的标注,先按水平方向创建标注,然后利用标注对象的 Rotate 属性将其旋转到适 当位置。

  页脚 公司简介 - 联系方法 - 招聘信息 - 客户服务 - 相关法律 - 博客风格 - 手机博客 - 订阅 此博客 网易公司版权所有 ?1997-2010

  编程 序言 ? 4.1 宏 ? 4.2 控件与用户窗体 ? 4.3 对象、属性、方法和事件 ? 4.4

  的运算符进行了全面的归纳和总结,包括通常意义上的算术运算符、连接运算符、 比较运算符和...

  初级教程(全)_IT/计算机_专业资料。在百度文库里看到过 但发现不全 我有个全的 第一课:入门 1.为什么要写这个教程 市面上ACAD

  运行效率方法 - 文章从尽量简化代码、强制声明变量、减少变量的作用范围并及时释放变量、尽可能使用早期绑定、关闭屏幕刷新 等20各方面论述了如何提高

  各种超链接代码 - 用代码在excel文件中快速建立超链接的代码,包括文件

  语言引用区域地址. 引用一个区域并读写各项属性(读写内容\合并\拆分\批注...)是Excel中

  语言基础简介 (Visual Basic Application) 这里只做一些

http://bylaurene.com/queshenggongxiang/191.html
点击次数:??更新时间2019-06-07??【打印此页】??【关闭
  • Copyright © 2002-2017 DEDECMS. 织梦科技 版权所有  
  • 点击这里给我发消息
在线交流 
客服咨询
【我们的专业】
【效果的保证】
【百度百科】
【因为有我】
【所以精彩】