最新本一cad課程設(shè)計(jì)vba參數(shù)化編程方法及實(shí)例免費(fèi)下載(編輯修改稿)
2025-05-04 23:13 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 1_Click() 39。繪制法蘭盤 39。隱藏窗體，以顯示繪圖區(qū) 39。設(shè)定粗實(shí)線層顏色 Dim CSXLayObj As AcadLayer Set CSXLayObj = (粗實(shí)線層) = acWhite 39。設(shè)定粗實(shí)線層的線型 Dim entObj As AcadLineType Dim found1 As Boolean found1 = False For Each entObj In If StrComp(, continuous, 1) = 0 Then found1 = True Exit For End If Next 39。如果沒有加載粗實(shí)線線型， If Not (found1) Then continuous, End If = continuous 39。設(shè)定粗實(shí)線層的線寬 = acLnWt030 Dim currLayer As AcadLayer 39。用于保存當(dāng)前圖層的對(duì)象變量 Dim newLayer As AcadLayer 39。保存新當(dāng)前圖層的對(duì)象變量 Set currLayer = Set newLayer = (粗實(shí)線層) = newLayer 39。輸入插入點(diǎn) Dim insertPnt As Variant On Error GoTo GetPointWrong insertPnt = (, 請(qǐng)輸入插入點(diǎn)：) 39。計(jì)算各點(diǎn)坐標(biāo) Dim Pnt1(0 To 2) As Double Dim xx As Double xx = CDbl() 39。CDbl為將文本數(shù)據(jù)轉(zhuǎn)換成雙精度數(shù)據(jù)函數(shù) Pnt1(0) = insertPnt(0) Pnt1(1) = insertPnt(1) xx Pnt1(2) = insertPnt(2) 39。平面繪圖中，Z坐標(biāo)為0 Dim Pnt2(0 To 2) As Double Pnt2(0) = insertPnt(0) + * CDbl() (CDbl() CDbl()) Pnt2(1) = insertPnt(1) Pnt2(2) = insertPnt(2) Dim Pnt3(0 To 2) As Double Pnt3(0) = Pnt2(0) Pnt3(1) = Pnt2(1) (CDbl() CDbl() CDbl()) / 3 Pnt3(2) = insertPnt(2) Dim Pnt4(0 To 2) As Double Pnt4(0) = insertPnt(0) + * CDbl() Pnt4(1) = insertPnt(1) (CDbl() CDbl() CDbl()) Pnt4(2) = insertPnt(2) Dim Pnt5(0 To 2) As Double Pnt5(0) = Pnt4(0) + (CDbl() CDbl()) / 2 Pnt5(1) = Pnt4(1) Pnt5(2) = insertPnt(2) Dim Pnt6(0 To 2) As Double Pnt6(0) = Pnt5(0) Pnt6(1) = Pnt5(1) CDbl() Pnt6(2) = insertPnt(2) Dim Pnt7(0 To 2) As Double Pnt7(0) = Pnt6(0) (CDbl() CDbl()) / 2 Pnt7(1) = Pnt6(1) Pnt7(2) = insertPnt(2) Dim Pnt8(0 To 2) As Double Pnt8(0) = Pnt7(0) Pnt8(1) = Pnt7(1) CDbl() Pnt8(2) = insertPnt(2) Dim Pnt9(0 To 2) As Double Pnt9(0) = insertPnt(0) + * CDbl() CDbl() Pnt9(1) = insertPnt(1) Pnt9(2) = insertPnt(2) Dim Pnt10(0 To 2) As Double Pnt10(0) = Pnt9(0) Pnt10(1) = Pnt9(1) CDbl() Pnt10(2) = insertPnt(2) Dim Pnt11(0 To 2) As Double Pnt11(0) = Pnt5(0) (CDbl() CDbl() + CDbl()) / 2 Pnt11(1) = Pnt5(1) Pnt11(2) = insertPnt(2) Dim Pnt12(0 To 2) As Double Pnt12(0) = Pnt11(0) Pnt12(1) = Pnt11(1) CDbl() Pnt12(2) = insertPnt(2) Dim Pnt13(0 To 2) As Double Pnt13(0) = Pnt11(0) + CDbl() Pnt13(1) = Pnt11(1) Pnt13(2) = insertPnt(2) Dim Pnt14(0 To 2) As Double Pnt14(0) = Pnt12(0) + CDbl() Pnt14(1) = Pnt12(1) Pnt14(2) = insertPnt(2) Dim Pnt15(0 To 2) As Double Pnt15(0) = Pnt1(0) + (CDbl() CDbl()) / 2 Pnt15(1) = Pnt1(1) Pnt15(2) = insertPnt(2) Dim Pnt16(0 To 2) As Double Pnt16(0) = Pnt15(0) + * CDbl() Pnt16(1) = Pnt15(1) + CDbl() Pnt16(2) = insertPnt(2) Dim Pnt17(0 To 2) As Double Pnt17(0) = Pnt15(0) + CDbl() Pnt17(1) = Pnt15(1) Pnt17(2) = insertPnt(2) Dim Pnt18(0 To 2) As Double Pnt18(0) = 2 * insertPnt (0) － Pnt9(0) Pnt18(1) = Pnt0(1) Pnt18(2) = insertPnt(2) Dim Pnt19(0 To 2) As Double Pnt19(0) = 2 * insertPnt (0) － Pnt2(0) Pnt19(1) = Pnt0(1) Pnt19(2) = insertPnt(2) Dim Pnt20
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1