H型钢排版图绘制软件1

1、H 型钢排版图绘制软件V1.0使用说明书引言1.1 编写目的本说明书为指导技术人员编制 H 型钢排版图而编写，希望该说明书使他们在使用系统过程 中能起到无师自通的作用。本说明书介绍了该软件的操作使用方法。1.2 背景H 型钢排版图是 H 型钢施工的重要施工依据，通常绘制是依据图纸在Autocad 笔一画的绘制，每一种规格、类型不同的H 型钢都要单独绘制排版图，工作量非常大，极易造成错误。本软件解决了以上的问题，只需输入主要数据，排版图就能轻松生成。编制该软 件的重要意义就是为了提高H 型钢排版图的绘制时间及准确度问题，据初步估算，一套海上平台上部组块 H 型钢排版工作需一个技术员最少半个月的时

2、间来完成，而用该软件7 天即可完成，为了促进油建科学技术的发展，研发了这款H 型钢排版软件，经反复试验，该软件数据输入窗口化、简单明了、操作简便。1.3 参考资料YB3301-2005焊接 H 型钢浅海固定平台建造与检验规范2004二用途2.1 功能H 型钢排版图绘制软件共6 个模块，主要根据加宽翼的块数来分类：加宽翼（无）、加宽翼（1 块在中间部位）、加宽翼（1 块在左边）、加宽翼（1 块在右边）、加宽翼（2 块）、 加宽翼（3块）菜单界面见图 1 :2.2 性能该系统性能稳定，符合用户要求。2.3 安全保密系统具有较好的安全保密机制，每人在使用系统前必须先登录，依自己的权限使用系统。 三运

3、行环境3.1 硬件设备微机联想奔三和同等及以上配置的其它机型打印机 win dows 支持的打印机3.2 支持软件EXCEL2003/2007、VB6.0、Autocad2007-2014四使用过程4.1 单击 H 型钢排版图绘制软件.EXE，打开程序，弹出注册界面。（图2）4.2 未注册软件试用 3 次。试用结束后，输入注册码，单击【开始注册（S）】（图 3）4.3 弹出注册成功，单击【确定】。（图4）4.3 进入 H 型钢排版图绘制软件主界面。进入大型储罐排版软件主界面。（图5）4.3.1 单击【请选择 H 型钢加宽翼类型】旁的小三角弹出类型选择项。*件屑：找国水XH 型钢排版图绘制软件|

4、31这導E理舉悽一悴化平台増配槪生麗工程B2tF狞崖平台洁枸档案弘OGOLiOOSE：1-WG|DFBEI请选择H型钢加宽壤类型无1块在中间部恆1块在左边1换在右边除3块i. fr别注恵育力抚吏H与右 壬7負氐=?丐千一兰.2.逢甬療車上苗 尺寸勺版苗盧号賈工 三=:刃二节.氏亭3S -3.（1）单击【无】弹出 H 型钢加宽翼（无）类型图片，单击图片进入 H 型钢加宽翼（无） 页面。在文本框中输入相应数据，其中【焊接详图】项可根据图纸进行相应选择。（图1717恆用貝喪格疆喪电科渥幡绻号悵隹 fe 辛計杭长 板堕 工程号H型飙型号嘉号 根数| 8000 | 2000 |19-| 8000 | 2

5、000 |W | CB22F | H4002at星星K)zSiZKlt| 400r11825717751 o1*荷睫处損输人距務広兀，Z.與犁解峪捡Cpjr i皐钢繭几H10O-马眉揄LLCK*SO6）.5.岭盅乘连嫩址前人.們:槪lOOH展童度为SO即人BO” L100*sa*6ffi賣90吐与圭渥梧连却軸人A 0丄竺豐规格:主曾竟次集绘制排版图绘制返回主界面2 ”/ / / / ”丿|丄程茗称:单应丄程名祢*件屑：找国水X（2）单击【排版图绘制】，在 AUTOCA 中生成 H 型钢排版图。（图 7）CB22F-K400-1 -2I2CJ01182511773400与圭z釆益吒.间脅1次梁绘

6、制坯钗圄绘制谊回主界面VfrV| 工mJti工程号H出肌型号编号8000| 2000 |193000200013| CB22F | H400122说晅；:、细处旦屢壇、證高BBJ.2.夬瓷広怜吐Mr HEiT帮HEOO.MICO*SC-*6 :笊与生集生接此绪人（fflilWlMMft窸t为帥.邓蔺人黄，L竜鸵址与主咚峠谡PTT儿.（3）H 型钢如需接板，与 H 型钢相连接次梁必须错开焊缝，就需在次梁数据框中输入数据,把次梁的位置反应到 H 型钢上。（图 8）*张田水x(4)绘制完成后，单击【返回主界面】，返回H 型钢排版图绘制软件界面。視弋80002000|8000 2000is-调.订；丐

7、arm实壬上电工程号H至啊翌号CB22FH400400200118251775说珂；:、马更吐直疾岂2芟即可.2, 31.址(MrHI，扁丽亀人1100吟】3.与主塞连堆瞪输人宝度力阳* 输人师uoo剜e角却舸號与主虽拒洋弐廿S0)类护/刼格茂梁绘制100S900H150与主臂雯业玄飞靈托略-旺间删排安直绘制近回土更T主界面：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet1 As Excel.WorksheetDim xlSheetX As Excel.WorksheetPrivate Sub Comb

8、o1_Click() IfCombo1.text = 无 ThenEnd IfEnd SubPrivate Sub Form_Load()Picture1.Picture = LoadPicture()Combo1.AddItem 无 Combo1.AddItem 1 块在左边 Combo1.AddItem 1 块在右边 Combo1.AddItem 2 块 Combo1.AddItem 3 块 代码Combo1.AddItem 1块在中间部位 ElseIf Combo1.text = 1块在中间部位ElseIf Combo1.text = 1块在左边 ThenElseIf Combo1.te

9、xt = 1块在右边 ThenElseIf Combo1.text = 2块 ThenElseIf Combo1.text = 3块 Then加宽翼 无 .jp加宽翼1 块在加宽翼 1 块在左边 .jpg)加宽翼 1 块在右边 .jpg)加宽翼 2 块 .jpg)加宽翼 3 块 .jpg)On Error Resume NextSet xlApp = GetObject(, Excel.Application)If Err.Number 0 Then Set xlApp = CreateObject(Excel.Application)On Error GoTo prcERRSet xlBoo

10、k = xlApp.Workbooks.Open(App.Path & XingGangPaiBanTu.xls)本地文件夹中的 EXCEL 文件打开Set xlSheet1 = xlBook.Worksheets(1) Set xlSheetX = xlBook.Worksheets(8) xlSheet1.Application.Visible = False Text1.text = xlSheet1.Cells(1, 1)Text2.text = xlSheet1.Cells(2, 1)Text3.text = xlSheet1.Cells(3, 1)Text4.text =

11、xlSheet1.Cells(4, 1)xlSheetX.Cells(1, 1) = xlSheetX.Cells(2, 1)= xlSheetX.Cells(3, 1) = xlBook.SavexlApp.QuitSet xlSheet1 = NothingSet xlSheetX = NothingSet xlBook = NothingSet xlApp = NothingExit SubprcERR:Debug.Print Err.Number & : & Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As

12、Integer)第一个表格第八个表格设置 Excel 可见If MsgBox( 确定要退出程序吗？, vbYesNo, 提示 ) = vbNo Then Cancel = TrueEnd SubPrivate Sub Picture1_Click()If Combo1.text = 无 Then加宽翼【无】 .Show加宽翼【 1 块在中间部位】 .Show加宽翼【 2 块】 .Show加宽翼【 3 块】 .ShowEnd IfEnd SubPrivate Sub Text1_LostFocus()On Error Resume NextSet xlApp = GetObject(, Exce

13、l.Application)If Err.Number 0 Then Set xlApp = CreateObject(Excel.Application)On Error GoTo prcERRSet xlBook = xlApp.Workbooks.Open(App.Path & XingGangPaiBanTu.xls)本地文件夹中的 EXCEL 文件Set xlSheet1 = xlBook.Worksheets(1) 第一个表格xlSheet1.Application.Visible = False 设置 Excel 可见xlSheet1.Cells(1, 1) = Text

14、1.textxlBook.SavexlApp.QuitSet xlSheet1 = NothingSet xlBook = NothingSet xlApp = NothingElseIf Combo1.text = 1块在中间部位ElseIf Combo1.text = 1块在左边 Then加宽翼【 1 块在左边】 .ShowElseIf Combo1.text = 1块在右边 Then加宽翼【 1 块在右边】 .ShowElseIf Combo1.text = 2块ThenElseIf Combo1.text = 3块Then打开Exit Sub prcERR:Debug.Print Er

15、r.Number & : & Err.DescriptionEnd SubPrivate Sub Text2_LostFocus()On Error Resume NextSet xlApp = GetObject(, Excel.Application)If Err.Number 0 Then Set xlApp = CreateObject(Excel.Application)On Error GoTo prcERRSet xlBook = xlApp.Workbooks.Open(App.Path & XingGangPaiBanTu.xls)本地文件夹中的 EX

16、CEL 文件Set xlSheet1 = xlBook.Worksheets(1) 第一个表格xlSheet1.Application.Visible = False 设置 Excel 可见xlSheet1.Cells(2, 1) = Text2.textxlBook.SavexlApp.QuitSet xlSheet = NothingSet xlBook = NothingSet xlApp = NothingExit SubprcERR:Debug.Print Err.Number & : & Err.DescriptionEnd SubPrivate Sub Text3

17、_LostFocus()On Error Resume NextSet xlApp = GetObject(, Excel.Application)If Err.Number 0 Then Set xlApp = CreateObject(Excel.Application)On Error GoTo prcERR打开Set xlBook = xlApp.Workbooks.Open(App.Path & XingGangPaiBanTu.xls)本地文件夹中的 EXCEL 文件Set xlSheet1 = xlBook.Worksheets(1) 第一个表格xlSheet1.Appl

18、ication.Visible = False 设置 Excel 可见xlSheet1.Cells(3, 1) = Text3.textxlBook.SavexlApp.QuitSet xlSheet = NothingSet xlBook = NothingSet xlApp = NothingExit SubprcERR:Debug.Print Err.Number & : & Err.DescriptionEnd SubPrivate Sub Text4_LostFocus()On Error Resume NextSet xlApp = GetObject(, Exce

19、l.Application)If Err.Number 0 Then Set xlApp = CreateObject(Excel.Application)On Error GoTo prcERRSet xlBook = xlApp.Workbooks.Open(App.Path & XingGangPaiBanTu.xls)本地文件夹中的 EXCEL 文件Set xlSheet1 = xlBook.Worksheets(1) 第一个表格xlSheet1.Application.Visible = False 设置 Excel 可见xlSheet1.Cells(4, 1) = Text

20、4.textxlBook.SavexlApp.QuitSet xlSheet = NothingSet xlBook = NothingSet xlApp = NothingExit SubprcERR:打开打开Debug.Print Err.Number & : & Err.DescriptionEnd Sub加宽翼无：Dim CiLiangShuJu As Double 定义次梁数据Dim textObj As AcadText 多行文字Dim textString As String 多行文字Dim insertionPoint(0 To 2) As Double 多行文

21、字Dim Gao As Double 多行文字Dim A1(0 To 2) As Double 线条端点 1Dim A2(0 To 2) As Double 线条端点 2Dim lineObj As AcadLineDim lineObj1(3) As AcadLineDim lineObj10(3) As AcadLine 定义 Autocad 中字体样式Dim typeFace As StringDim Bold As BooleanDim Italic As BooleanDim charSet As LongDim PitchandFamily As LongDim dimObj As

22、 AcadDimAligned 标注Dim pt1(2) As Double 标注Dim pt2(2) As Double 标注Dim pt3(2) As Double 标注Dim text As String 标注Dim CanShu1 As Double 参数 1Dim CanShu2 As Double 参数 2Dim CanShu3 As Double 参数 3Dim CanShu4 As Double 参数 4Dim CanShu7 As Double 焊接图用 H 型钢放大倍数Dim CanShu8 As Double 焊接图用判断是否有节点图Dim CanShu9 As Doub

23、le 焊接图用判断是否有节点图Dim CanShu5 As Double H型钢长或高（哪个大以哪个为基准）Dim CanShu6 As Double 放大倍数Dim CanShu11 As Double 排版图放大系数Dim N1, N2, N3 用来提取H 型钢高度数据的Dim linetypeName As String 定义图层线型Dim i As IntegerDim II1 As IntegerDim II2 As IntegerDim II3 As IntegerDim II4 As IntegerDim II5 As IntegerDim I1 As DoubleDim II1

24、0 As DoubleDim II11 As DoubleDim hatchObj As AcadHatch 定义阴影Dim patternName As String 定义阴影Dim PatternType As Long 定义阴影Dim outerLoop1(0 To 3) As AcadEntity 定义阴影Dim outerLoop2(0 To 3) As AcadEntity 定义阴影Dim outerLoop3(0 To 3) As AcadEntity 定义阴影Dim outerLoop4(0 To 3) As AcadEntity 定义阴影定义阴影Dim bAssociativ

25、ity As Boolean Dim circleObj1(0 To 0) As AcadEntityDim center(0 To 2) As DoubleDim radius As DoubleDim endTan(0 To 2) As Double 画样条曲线Dim fitPoints(0 To 14) As Double 画样条曲线Dim ArcObj As AcadArc 定义圆弧Dim CircleObj As AcadCircle 定义圆Dim centerPoint(0 To 2) As Double 圆弧起点Dim radius1 As Double 圆弧半径Dim star

26、tAngleInRadian As Double 起始角度换算成弧度Dim endAngleInRadian As Double 终点角度换算成弧度Dim mirrorObj As AcadLWPolyline 镜像Dim blockObj As AcadBlock 定义为块所用变量Dim insertionPnt(0 To 2) As Double 定义为块所用变量Dim blockRefObj As AcadBlockReference 定义为块所用变量Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet

27、2 As Excel.WorksheetDim xlSheetX As Excel.WorksheetDim xlSheet9 As Excel.WorksheetPrivate Sub Command1_Click() 主界面 .Show 加宽翼【无】 .HideEnd SubPrivate Sub Command2_Click()On Error Resume NextSet xlApp = GetObject(, Excel.Application)If Err.Number 0 Then Set xlApp = CreateObject(Excel.Application)On Err

28、or GoTo prcERRDim startTan(0 To 2) As Double 画样条曲线Dim splineObj As AcadSpline画样条曲线Set xlBook = xlApp.Workbooks.Open(App.Path & XingGangPaiBanTu.xls)本地文件夹中的 EXCEL 文件Set xlSheetX = xlBook.Worksheets(8)Set xlSheet9 = xlBook.Worksheets(9)xlSheetX.Application.Visible = FalseCanShu1 = ZZ1()CanShu2 = Z

29、Z2()CanShu3 = ZZ3()CanShu4 = ZZ4()CanShu5 = ZZ5()CanShu6 = ZZ6()CanShu7 = ZZ7()CanShu8 = ZZ8()CanShu9 = ZZ9()1110= xlSheetX.Cells(1, 1) + Val(主界面 .Text5.text) + xlSheetX.Cells(2, 1)1111= (350 * CanShu6 - (297 - 120 - 17.5 - 3.5) * CanShu6 - (Val(Text1.text)+ CanShu2) / 2 + (17.5 * CanShu6) + CanShu2

30、)xlSheet9.Range(A1:IV65536).Clear 清空单元格 xlBook.SavexlApp.QuitSet xlSheetX = NothingSet xlSheet9 = Nothing主界面 .Text5.text = II11Call Command100_Click 绘制 H 型钢Call Command1000_Click 对 H 型钢进行文字标识和尺寸标注Call Command10000_Click 绘制标题栏Call Command100000_Click 绘制焊接图Call Command200_Click 绘制节点图Call Command100000

31、0_Click 写入 H 型钢标题栏尺寸打开第八个表格第九个表格设置 Excel 可见Set xlBook = xlApp.Workbooks.Open(App.Path & XingGangPaiBanTu.xls)本地文件夹中的 EXCEL 文件Call Command500_Click 把 II10 保存进 EXCELA1(0) = II10Set xlBook = NothingSet xlApp = NothingExit SubprcERR:Debug.Print Err.Number & : & Err.DescriptionCiLiangShuJu =

32、0End SubPrivate Sub Command100_Click()On Error Resume NextSet ACADApp = GetObject(, AutoCAD.Application)If Err ThenErr.ClearSet ACADApp = CreateObject(AutoCAD.Application)If Err ThenMsgBox Err.DescriptionExit SubEnd IfEnd IfACADApp.WindowState = acMaxACADApp.Visible = TrueSet ACADApp = GetObject(, A

33、utoCAD.Application)Set ThisDrawing = ACADApp.ActiveDocumentDim XXC0 As AcadLayer 定义主梁层Set XXC0 = ThisDrawing.Layers.Add( 主梁层 ) 设置图层 ThisDrawing.ActiveLayer =XXC0 把当前图层设为主梁层XXC0.Lineweight = acLnWt050 定义图层的线宽ACADApp.ActiveDocument.Preferences.LineWeightDisplay = True 开始绘制上翼板厚度部分A2(0) = II10A1(1) = 0A

34、2(0) = Val(Text1.text) + II10A2(1) = 0Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2)A1(0) = II10A1(1) = 0A2(0) = II10A2(1) = -Val(Text400.text)Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2)A1(0) = II10A1(1) = -Val(Text400.text)A2(0) = Val(Text1.text) + II10A2(1) = -Val(Text400.text)Set l

35、ineObj = ThisDrawing.ModelSpace.AddLine(A1, A2)A1(0) = Val(Text1.text) + II10A1(1) = 0A2(0) = Val(Text1.text) + II10A2(1) = -Val(Text400.text)Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2) 结束绘制上翼板厚度部分开始绘制腹板部分A1(0) = II10A1(1) = -Val(Text400.text)A2(0) = Val(Text1.text) + II10A2(1) = -Val(Text4

36、00.text)Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2) A1(0) = II10A1(1) = -Val(Text400.text)A2(1) = -(Val(Text400.text) + (Val(Text100.text) - Val(Text400.text) * 2)Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2)A1(0) = II10A1(1) = -(Val(Text400.text) + (Val(Text100.text) - Val(Text400.t

37、ext) * 2)A2(0) = Val(Text1.text) + II10A2(1) = -(Val(Text400.text) + (Val(Text100.text) - Val(Text400.text) * 2)Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2)A1(0) = Val(Text1.text) + II10A1(1) = -Val(Text400.text)A2(0) = Val(Text1.text) + II10A2(1) = -(Val(Text400.text) + (Val(Text100.text) -

38、 Val(Text400.text) * 2)Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2) 结束绘制腹板部分 开始绘制下翼板厚度部分A1(0) = II10A1(1) = -(Val(Text400.text) + (Val(Text100.text) - Val(Text400.text) * 2)A2(0) = Val(Text1.text) + II10A2(1) = -(Val(Text400.text) + (Val(Text100.text) - Val(Text400.text) * 2)Set lineObj = Th

39、isDrawing.ModelSpace.AddLine(A1, A2)A1(0) = II10A1(1) = -(Val(Text400.text) + (Val(Text100.text) - Val(Text400.text) * 2)A2(0) = II10A2(1) = -Val(Text100.text)Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2)A1(0) = II10A1(1) = -Val(Text100.text)A2(0) = Val(Text1.text) + II10A2(1) = -Val(Text100.

40、text)Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2)A1(0) = Val(Text1.text) + II10A1(1) = -(Val(Text400.text) + (Val(Text100.text) - Val(Text400.text) * 2)A2(0) = Val(Text1.text) + II10A2(1) = -Val(Text100.text)Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2) 结束绘制下翼板厚度部分 开始绘制上翼板A1(0) = II10

41、A1(1) = -(CanShu1 + (Val(Text100.text)A2(0) = Val(Text1.text) + II10A2(1) = -(CanShu1 + (Val(Text100.text)Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2)A1(0) = II10A1(1) = -(CanShu1 + (Val(Text100.text)A2(0) = II10A2(1) = -(CanShu1 + (Val(Text100.text) + Val(Text200.text)Set lineObj = ThisDraw

42、ing.ModelSpace.AddLine(A1, A2)A1(0) = II10A1(1) = -(CanShu1 + (Val(Text100.text) + Val(Text200.text)A2(0) = Val(Text1.text) + II10A2(1) = -(CanShu1 + (Val(Text100.text) + Val(Text200.text)Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2)A1(0) = Val(Text1.text) + II10A1(1) = -(CanShu1 + (Val(Text1

43、00.text)A2(0) = Val(Text1.text) + II10A2(1) = -(CanShu1 + (Val(Text100.text) + Val(Text200.text)Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2) 结束绘制上翼板开始绘制腹板A1(0) = II10A1(1) = -(CanShu1 * 2 + Val(Text100.text) + Val(Text200.text)A2(0) = Val(Text1.text) + II10A2(1) = -(CanShu1 * 2 + Val(Text100

44、.text) + Val(Text200.text)Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2)A1(0) = II10A1(1) = -(CanShu1 * 2 + Val(Text100.text) + Val(Text200.text)A2(0) = II10A2(1) = -(CanShu1 * 2 + Val(Text100.text) + Val(Text200.text) + (Val(Text100.text)- Val(Text400.text) * 2)Set lineObj = ThisDrawing.Model

45、Space.AddLine(A1, A2)A1(0) = II10A1(1) = -(CanShu1 * 2 + Val(Text100.text) + Val(Text200.text) + (Val(Text100.text)- Val(Text400.text) * 2)A2(0) = Val(Text1.text) + II10A2(1) = -(CanShu1 * 2 + Val(Text100.text) + Val(Text200.text) + (Val(Text100.text)- Val(Text400.text) * 2)Set lineObj = ThisDrawing

46、.ModelSpace.AddLine(A1, A2)A1(0) = Val(Text1.text) + II10A1(1) = -(CanShu1 * 2 + Val(Text100.text) + Val(Text200.text)A2(0) = Val(Text1.text) + II10A2(1) = -(CanShu1 * 2 + Val(Text100.text) + Val(Text200.text) + (Val(Text100.text)- Val(Text400.text) * 2)Set lineObj = ThisDrawing.ModelSpace.AddLine(A

47、1, A2) 结束绘制腹板 开始绘制下翼板A1(0) = II10A1(1) = -(CanShu1 * 3 + Val(Text100.text) + Val(Text200.text) + (Val(Text100.text)- Val(Text400.text) * 2)A2(0) = Val(Text1.text) + II10A2(1) = -(CanShu1 * 3 + Val(Text100.text) + Val(Text200.text) + (Val(Text100.text)- Val(Text400.text) * 2)Set lineObj = ThisDrawing

48、.ModelSpace.AddLine(A1, A2)A1(0) = II10A1(1) = -(CanShu1 * 3 + Val(Text100.text) + Val(Text200.text) + (Val(Text100.text)- Val(Text400.text) * 2)A2(0) = II10A2(1) = -(CanShu1 * 3 + Val(Text100.text) + Val(Text200.text) * 2) +(Val(Text100.text) - Val(Text400.text) * 2)Set lineObj = ThisDrawing.ModelS

49、pace.AddLine(A1, A2)A1(0) = II10A1(1) = -(CanShu1 * 3 + Val(Text100.text) + Val(Text200.text) * 2) +(Val(Text100.text) - Val(Text400.text) * 2)A2(0) = Val(Text1.text) + II10A2(1) = -(CanShu1 * 3 + Val(Text100.text) + Val(Text200.text) * 2) +(Val(Text100.text) - Val(Text400.text) * 2)Set lineObj = Th

50、isDrawing.ModelSpace.AddLine(A1, A2)A1(0) = Val(Text1.text) + II10A1(1) = -(CanShu1 * 3 + Val(Text100.text) + Val(Text200.text) + (Val(Text100.text)- Val(Text400.text) * 2)A2(0) = Val(Text1.text) + II10A2(1) = -(CanShu1 * 3 + Val(Text100.text) + Val(Text200.text) * 2) +(Val(Text100.text) - Val(Text4

51、00.text) * 2)Set lineObj = ThisDrawing.ModelSpace.AddLine(A1, A2) 结束绘制下翼板ZoomAllEnd SubPrivate Sub Command1000_Click()On Error Resume NextSet ACADApp = GetObject(, AutoCAD.Application)If Err ThenErr.ClearSet ACADApp = CreateObject(AutoCAD.Application)If Err ThenMsgBox Err.DescriptionExit SubEnd IfEn

52、d IfACADApp.WindowState = acMaxACADApp.Visible = TrueSet ACADApp = GetObject(, AutoCAD.Application)Set ThisDrawing = ACADApp.ActiveDocumentDim XXC0 As AcadLayer 定义标注层Set XXC0 = ThisDrawing.Layers.Add( 标注层 ) 设置图层 ThisDrawing.ActiveLayer =XXC0 把当前图层设为标注层 用 SetFont 方法获取当前设置的默认值ThisDrawing.ActiveTextSty

53、le.GetFont typeFace, Bold, Italic, charSet, PitchandFamily 更改字体的字样 typeFace = 楷体 ThisDrawing.ActiveTextStyle.SetFont typeFace, Bold, Italic, charSet, PitchandFamilyThisDrawing.Regen acActiveViewport 结束定义字体样式textString = 余量 & (Val(Text1.text) - Val(Text12.text) / 2insertionPoint(0) = CanShu2 + II

54、10 insertionPoint(1) = CanShu3 * 1.5insertionPoint(2) = 0Gao = CanShu3Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, Gao)textString = 余量 & (Val(Text1.text) - Val(Text12.text) / 2insertionPoint(0) = Val(Text1.text) + II10 insertionPoint(1) = CanShu3 * 1.5insertionPoint(2

55、) = 0 Gao = CanShu3Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, Gao) textString = 上翼板 insertionPoint(0) = CanShu2 + II10insertionPoint(1) = -(CanShu1 + (Val(Text100.text) + Val(Text200.text) * 0.75)insertionPoint(2) = 0Gao = CanShu3Set textObj = ThisDrawing.ModelSpace.Add

56、Text(textString, insertionPoint, Gao) textString = U1insertionPoint(0) = Val(Text1.text) / 2 + II10insertionPoint(1) = -(CanShu1 + (Val(Text100.text) + Val(Text200.text) * 0.75)insertionPoint(2) = 0Gao = CanShu3 * 0.8Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, Gao) textS

57、tring = 腹板 insertionPoint(0) = CanShu2 + II10insertionPoint(1) = -(CanShu1 * 2 + Val(Text100.text) + Val(Text200.text) + (Val(Text100.text)- Val(Text400.text) * 2) * 0.6)insertionPoint(2) = 0Gao = CanShu3Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, Gao) textString =W1inse

58、rtionPoint(0) = Val(Text1.text) / 2 + II10insertionPoint(1) = -(CanShu1 * 2 + Val(Text100.text) + Val(Text200.text) + (Val(Text100.text)- Val(Text400.text) * 2) * 0.6)insertionPoint(2) = 0Gao = CanShu3 * 0.8Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, Gao)textString = 下翼板

59、 insertionPoint(0) = CanShu2 + II10insertionPoint(1) = -(CanShu1 * 3 + Val(Text100.text) + Val(Text200.text)* 2) + (Val(Text100.text) - Val(Text400.text) * 5)insertionPoint(2) = 0dimObj.TextOverride = 100更改标注的文本Gao = CanShu3Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, Gao

60、) textString = D1insertionPoint(0) = Val(Text1.text) / 2 + II10insertionPoint(1) = -(CanShu1 * 3 + Val(Text100.text) + Val(Text200.text)* 2) + (Val(Text100.text) - Val(Text400.text) * 5) insertionPoint(2) = 0Gao = CanShu3 * 0.8Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, Gao) 标注 H 型钢 pt1(0) = II10pt1(1) = -Val(Text100.text)pt1(2) = 0pt2(0) = Val(