Autocad VBA初级教程(11)

Set line2 = line1.Mirror(linep1, linep2) '镜像获得另一半多段线Dim p(0 To 2) As Double '定义坐标变量

*l5q9K'{+CAD设计论坛.`4Q.{%w3[\L2G:`&y(askcad.com),为工程师增加动力0L+|7V;^ ?4W9e#V

pline(16) = 430

Set mytxt = ThisDrawing.TextStyles.Add(\添加mytxt样式 mytxt.fontFile = \设置字体文件为仿宋体 ThisDrawing.ActiveTextStyle = mytxt '将当前文字样式设置为mytxt playernumberpoint(0) = 0 '块属性位置playernumberpoint(1) = 200属性

*L\4\\-U0K\www.askcad.com0u.['y1D3N)U\CAD设计论坛1|;p d3M9U2d

Set attr1 = ThisDrawing.ModelSpace.AddAttribute(100, acAttributeModeNormal, \号码\画块

CAD设计论坛;J D+v\attr1.Alignment = 7 '居中

attr1.TextAlignmentPoint = playernumberpoint '重定义对齐点

Set attr2 = ThisDrawing.ModelSpace.AddAttribute(100, acAttributeModeNormal, \姓名\画块属性

(askcad.com),为工程师增加动力.Q,g7R\

(askcad.com)是国内最专业发展最快的utoCA设计讨论基地论坛云集高手提供CAD的教程练习考试软件下载教程下载基础培训等一体化解决方案并推出Pro/Engineer,Unigraphics,SolidWorks相关讨论专区我们的口号:CAD设计论坛为工程师增加动力请记住我们的网址:askcad.com\1?*v2R3O5?8wattr2.Alignment = 7 '居中