AutoCAD二次开发(VBA).doc

AutoCAD二次开发(VBA) 导读：就爱阅读网友为您分享以下“AutoCAD二次开发(VBA)”的资讯，希望对您有所帮助，感谢您对92的支持! 5.冻结和解冻图层 如果要冻结或者解冻图层，需要使用图层对象的Freeze属性。如果将此属性设置为True，将冻结该图层；如果将此属性设置为False，则会解冻该图层。 14.4.10绘制文字 AutoCAD图形中的文字会根据实际情况使用不同的字体、高度、宽度和倾斜角度。这都可以通过设置不同的文字样式来实现，用户可以使用或者修改预先定义好的文字样式，也可以创建和载入新的文字样式。在创建了文字样式之后，就可以修改其属性，或者在不再需要时将其删除。 创建文字样式 在VBA程序中需要使用TextStyles集合的Add方法创建文字样式。该方法创建了文字样式的同时，将新样式添加到TextStyles集合中，此时需要文字样式名称作为参数。文字样式名称可以包含字母、数字和特殊字符，AutoCAD会自动转换小写字符为大写字符，如果不输入文字样式名称参数，AutoCAD则会自动将文字样式命名为“StyleN”，其中N是从1开始的数字，以后创建的每个新文字样式都会以递加1来命名。创建了文字样式后，就可以设置它的字体、字高和字宽等属性。用户可以通过修改文字样式对象的属性以修改已有的字型，然后通过更新使用了该字型的已有文字来反映字型修改效果。可以修改表14－3中所示文字样式对象的属性。 表14－3 文字样式对象的属性 HatchStyle FontFile BigFontFile Height Width ObliqueAngle TextGenerationFlag 指定字体关联的文件 指定使用非ASCII字符集的特殊造型定义 指定字符高度 指定字符的宽度 指定字符的倾斜度 指定左右反向文字、上下颠倒文字的效果 描述 如果修改了已有的文字样式的字体或者方位，所有使用了该文字样式的文字都会被修改为新文字样式的字体或者方位。而修改文字高度、宽度系统和倾斜度则不会修改已有的文字，只是对以后创建的文字对象有影响。 修改好文字样式以后，需要调用Regen或者Update方法重新生成对象，才能看到对上述属性所做的修改结果。下面的程序是新创建一个文字样式，然后设置该样式的字高和文字显示效果。