CAD實驗報告 期末大作業(yè)

PAGE制造科學與工程學院實驗報告制造科學與工程學院實驗報告ExperimentReportSchoolofManufacturingScience&Engineering實驗課程名稱(ExperimentCourse)CAD程序設計方法實驗項目名稱(ExperimentItem)CAD程序設計實驗報告姓名（Name）學號（No.）系別（Department）機械設計制造及其自動化班級（Class）實驗日期（Date）實驗地點（Place）工程設計中心指導教師（Superior）成績（Grade）（以下是實驗報告需填寫的項目，請學生按照實驗指導教師的要求在空白處依次填寫，不夠加附頁）實驗步驟及過程（ExperimentStepsandProcess）CAD程序設計綜合實驗要求每個同學完成以下工作：１．熟悉ＶＬＩＳＰ的基本函數(shù)，掌握ＶＬＩＳＰ調試程序的基本方法．２．建立某個機械零件的工程數(shù)據(jù)庫．３．編制工程數(shù)據(jù)庫的管理函數(shù)．４．設置繪圖環(huán)境，自動選擇圖框程序.5．編制某個機械零件的自動繪圖程序．6．編制某個機械零件的自動標注程序．7．編制某個機械零件的技術要求的程序．9．將自動繪圖的參數(shù)化繪圖軟件程序運行的結果打印一套結果圖紙．選擇的圖案如下：二、實驗記錄及數(shù)據(jù)處理（RecordsofExperimentandDataProcessing）附源程序及運行結果機械零件的工程數(shù)據(jù)庫(defundata();不同尺寸的零件數(shù)據(jù)庫函數(shù)(setqdata1'((DD1AB) ((25(25.060.028.08.0)) (30(30.075.039.010.0)) (35(35.085.039.012.0)) (40(40.090.045.015.0)) ))))零件工程數(shù)據(jù)庫的管理函數(shù)(defundget(falname/lhlstjnn)(setqlh(car(eval(readlname)));分離參數(shù)表表頭lst(cadr(eval(readlname)));分離數(shù)值表j-1)(setqlst(cadr(assocfalst)));檢索(repeat(lengthlh)(setqj(1+j)nn(nthjlh))(setnn(nthjlst));將檢索值賦給參數(shù)表中相應參數(shù)))圖框繪制函數(shù)(defuntk(/tfl1k)(textscr)(princ"\n圖紙幅面尺寸")(princ"\n圖幅BLC")(princ"\nA0841118910")(princ"\nA159484110")(princ"\nA242059410")(princ"\nA32974205")(princ"\nA42102975")(princ"\nA51482105")(initget"012345")(setqtf(getkword"\n請選擇圖幅代號A(0-5)<4>:"))(if(nulltf)(setqtf"4"))(setqtf(atoitf))(setql1'(1189841594420297210148))(setqtl(nthtfl1)tb(nth(1+tf)l1))(if(<tf3)(setqc10)(setqc5))(initget"YN")(setqk(getkword"\n圖紙橫放嗎?<Y>:"))(if(nullk)(setqk"Y"))(if(=(strcasek)"Y")(setqp1'(00)p2(list0tb)p3(listtltb)p4(listtl0))(setqp1'(00)p2(list0tl)p3(listtbtl)p4(listtb0)));endif(setqp5(list25c)p6(list25(-(cadrp2)c))p7(list(-(carp3)c)(-(cadrp3)c))p8(list(-(carp3)c)c)p9(polarp6(*-0.5pi)12)p10(polarp9060)p11(polarp6060))(command"layer""S"0"")(command"limits"p1p3"zoom""a")(command"pline"p1"w"00p2p3p4"c")(command"pline"p5"w"0.40.4p6p7p8"c")(command"pline"p6p9p10p11"")(setqtkyxp8tkysp7tkzxp5)(redraw)(princ))自動繪圖程序(defunhuitu(/p1p2p3p4p5ang);繪圖程序(setqang(atan(/B(sqrt(-(*DD)(*BB))))))(setq p1(list(+(carp0)(sqrt(-(/(*DD)4.0)(/(*BB)4.0))))(+(cadrp0)(/B2.0))) p2(list(+(-A(/D2.0))(carp0))(cadrp1)) p3(list(carP1)(-(cadrp1)B)) p4(list(carp2)(cadrp3))P5(list(-(carp0)(/D12))(cadrp0)) )(command"pline"p1"w"0.250.25"A""CE"p0"A"(/(*180.0(-(*pi2.0)(*2.0ang)))pi)"")(command"pline"p1"w"0.250.25p2p4p3"")(command"pline"p5"w"0.250.25"A""CE"p0"A"180"cl")(setqco4;畫中心線po1(polarp00(+(/D12)co))po2(polarp0(*0.5pi)(+(/D12)co))po3(polarp0pi(+(/D12)co))po4(polarp0(*1.5pi)(+(/D12)co)))(command"layer""n"1"l""center"1"c"11"s"1"";新建中心線圖層"line"po1po3"""line"po2po4"" "layer""s"0""))自動標注程序(defunbiaozhu(/p6p7p8p9p10p11p12P13);標注程序(setq p1(list(+(carp0)(sqrt(-(/(*DD)4.0)(/(*BB)4.0))))(+(cadrp0)(/B2.0))) p2(list(+(-A(/D2.0))(carp0))(cadrp1)) p3(list(carP1)(-(cadrp1)B)) p4(list(carp2)(cadrp3))p6(list(+(carp0)(-A(/D2.0))5)(cadrp0)) p7(list(-(carp0)(/D2.0))(cadrp0)) p8(list(+(carp0)(-A(/D2.0)))(cadrp0)) p9(list(carp0)(+(cadrp0)(/D2.0)8)) p10(polarp0(*(/pi4)7)(/D2.0)) p11(polarp0(*(/pi4)5)(*D10.5)) p12(polarp0(*(/pi4)5)(-(*D10.5)8)) p13(polarp0(*(/pi4)7)(+(/D2.0)8)))(command"layer""n"2"c"32"s"2"");標注圖層設置(command"DIMLINEAR"p2p4p6);線性標注(command"DIMLINEAR"p7p8p9);(command"dimdiameter"p10p13);圓的直徑標注(command"dimradius"p11p12);半徑標注)自動標注技術要求(defunjsyq(/laybp)(setqp14(getpoint"請輸入插入技術要求的位置："))(setqbp(dxyp1400))(command"text""c"bp50"技術要求""")(setqbp(dxybp-22-12))(command"text"bp3.50"1.熱處理HRC54-56""")(setqbp(dxybp0-9))(command"text"bp3.50"2.棱邊去毛刺""")(setqbp(dxybp0-9))(command"text"bp3.50"3.未注圓角半徑R5""")(setqbp(dxybp0-9))(command"text"bp3.50"4.未注倒角均為2×45°""")(setqbp(dxybp0-9))(command"text"bp3.50"5.未注公差尺寸為IT12"""))(defundxy(bpdxdy)(list(+(carbp)dx)(+(cadrbp)dy)))實驗問答題（ExperimentalQuestions）用主程序管理各子程序的代碼(defunyang();調用的主程序(setqD(getreal"請輸入內孔直徑D的值(取值為：25、30、35、40)<40>："))(data)(if(nullD)(setqD40))(dgetD"data1")(command"limits"'(00)'(297210))(command"zoom""a""")(command"grid""on")(tk)(setqp0(getpoint"輸入圓心p0：")