【正文】 交點Public yj As Double39。光標輸入點坐標Public x0 As Double 39。y坐標變量Public xp As Double 39。定制titlelayer層 Set layobj = (titlelayer) = acWhite = ContinuousEnd SubPublic x As Double 39。定制sdhx層 Set layobj = (sdhx) = 6 = DIVIDE 39。定制xdhx層 Set layobj = (xdhx) Dim Color As AcadAcCmColor Set Color = () Call (223， 255， 127) = Color = DASHDOT 39。定制szx層 Set layobj = (szx) = 5 = Continuous 39。定制xsx層 Set layobj = (xsx) = 1 = Continuous 39。使用圖層名 Set csx = (csx) Set xsx = (xsx) Set blx = (blx) Set szx = (szx) Set xx = (xx) Set xdhx = (xdhx) Set cdhx = (cdhx) Set sdhx = (sdhx) Set framelayer = (framelayer) Set titlelayer = (titlelayer) 39。雙折線沒定義Public Sub layer() 39。先查看已加載的圖層里有沒有 For Each entry In If StrComp(， ltname(i)， 1) = 0 Then found = True Exit For End If Next 39。圖框線Public titlelayer As AcadLayer 39。粗點畫線Public sdhx As AcadLayer 39。虛線Public xdhx As AcadLayer 39。波浪線Public szx As AcadLayer 39。粗實線Public xsx As AcadLayer 39。、中心線線型、點畫線線型、雙點畫線線型和波浪線線型39。**說 明：圖層設(shè)置模塊39。************************************************************************39。顯示型鋼表Public Sub xgcx() End Sub 39。 調(diào)用圖層設(shè)置模塊 End Sub 39。 vbarun + Chr(32) + + Chr(32)) 39。)) amp。型鋼數(shù)據(jù)管理子菜單項 Dim xgsjgl As AcadPopupMenuItem Set xgsjgl = ( + 1， 關(guān)于(( amp。 B)， _ macro amp。 Chr(Asc(amp。 vbarun + Chr(32) + + Chr(32)) 39。)) amp。自動繪圖菜單項 Dim hsmt As AcadPopupMenuItem Set hsmt = ( + 1， 繪三面圖( amp。添加菜單項 macro = Chr(vbKeyEscape) + Chr(vbKeyEscape) 39。)) amp。 創(chuàng)建新菜單路基管理菜單 Dim yjgl As AcadPopupMenu Set yjgl = (鋼結(jié)構(gòu)元件管理2( amp。 給宏指定“ESC ESC _open”的 VB 等價值 openMacro = vbarun + Chr(32) + + Chr(32) Set newButton = _ (， 鋼結(jié)構(gòu)元件繪制， 顯示繪圖窗體， openMacro) openMacro = vbarun + Chr(32) + + Chr(32) Set newButton = _ (， 鋼結(jié)構(gòu)元件管理， 顯示管理窗體， openMacro) 39。*********************************************************Public Sub main() Dim currMenuGroup As AcadMenuGroup Dim newToolbar As AcadToolbar Set currMenuGroup = (0) 39。**函 數(shù) 名：main39。*********************************************************39。**模 塊 名：tool39。連接數(shù)據(jù)庫End Sub39。39。Data Source= amp。關(guān)閉數(shù)據(jù)庫Public Sub closeDb()End Sub39。打開記錄集Public Function openDb(ByVal SQL As String) As Set rest = New SQL， conn， adOpenKeyset， adLockOptimistic 39。**功能描述：打開數(shù)據(jù)庫 打開記錄集 關(guān)閉數(shù)據(jù)庫39。*********************************************************39。 (0) amp。初始化型鋼型號 (select * from 目錄 ORDER BY 名稱 desc) For i = 0 To 1 (0) Next i (select * from amp。初始化窗體 39。 amp。 Chr(10) End If Next iEnd SubPrivate Sub ListBox1_Click() (select * from amp。 ： amp。 Chr(10) Else = amp。 ： amp。) For i = 1 To 1 If (i).Name = A Then txcs = True If txcs = False Then = amp。 Trim(ComboBox1) amp。 where 型號=39。************************************************************************Dim xhs As StringPrivate Sub ComboBox1_Change() Dim txcs As Boolean = = txcs = False (select * from amp。**模 塊 名：Frmgl39。) If Mid(， Len() 1， 2) = 圓鋼 Then If (1) Then d = k * (1) End If ElseIf Mid(， Len() 1， 2) = 方鋼 Then If (1) Then a = k * (1) End If ElseIf Mid(， Len() 2， 3) = 工字鋼 Or _ Mid(， Len() 1， 2) = 槽鋼 Then If (1) Then h = k * (1) End If If (2) Then b = k * CDbl((2)) End If If (3) Then d = k * CDbl((3)) End If If (4) Then t = k * CDbl((4)) End If If (5) Then r2 = k * CDbl((5)) End If If (6) Then r1 = k * CDbl((6)) End If ElseIf Mid(， Len() 4， 5) = 不等邊角鋼 Then If (1) Then bc = k * (1) End If If (2) Then bd = k * CDbl((2)) End If If (3) Then d = k * CDbl((3)) End If If (4) Then r2 = k * CDbl((4)) End If r1 = 1 / 3 * d ElseIf Mid(， Len() 3， 4) = 等邊角鋼 Then If (1) Then b = k * (1) End If If (2) Then d = k * CDbl((2)) End If If (3) Then r2 = k * CDbl((3)) End If r1 = 1 / 3 * d ElseIf Mid(， Len() 2， 3) = H型鋼 Then If (1) Then h = k * (1) End If If (2) Then b = k * CDbl((2)) End If If (3) Then d = k * CDbl((3)) End If If (4) Then t = k * CDbl((4)) End If If (5) Then r2 = k * CDbl((5)) End If ElseIf Mid(， Len() 2， 3) = T型鋼 Then If (1) Then h = k * (1) End If If (2) Then b = k * CDbl((2)) End If If (3) Then d = k * CDbl((3)) End If If (4) Then t = k * CDbl((4)) End If If (5) Then r2 = k * CDbl((5)) End If End IfEnd Sub39。 amp。 where 型號=39。設(shè)置接口，給變量附值 實現(xiàn)參數(shù)化向圖形的轉(zhuǎn)變Public Sub sjdq() k = Int() (select * from amp。初始化型鋼型號 (select * from 目錄 ORDER BY 名稱 desc) For i = 0 To 1 (0) Next i = (0) (select * from amp。初始化窗體 39。 (i) amp。 (i).Name amp。) For i = 1 To 1 If (i).Name = A Then Exit For = amp。 Trim() amp。 where 型號=39。比例系數(shù) Dim i As Integer = True = True = True = = 1 (select * from amp。繪橫斷面圖Private