utoCAD创建电路电子教案中电路图的方法

AutoCAD(:421001)a,AutoCAD2000,Au2toCAD2000PowerPointWordAutoCADHowtoDrawCircuitDiagramsinElectronicsTeachingPlansofCircuitbyAutoCADGuanJinyun,LiuYuan,ChenWei,ChenWenguang(CollegeofElectricalEngineertingNanhuaUniversity,Hengyang421001,China)Abstract:TherearealotofwaystodrawcircuitdiagramsinelectronicteachingplansofCircuit,andAutoCAD2000,aprofessionaldrawingsoftware,isthebesttooltodrawcircuitdiagrams.Thisarticlede2scribesindetailthestepstomakespecifictoolbarstodrawcircuitdiagramsandthewaystodrawcircuitdi2agramsbyuseofthesetoolbarsintheAutoCAD2000environment.Besides,wealsointroducehowtoin2sertpicturesintotheteachingplansusingPowerPointandWordsoftware.Keywords:circuitdiagram;electronicteachingplan;AutoCAD0,PowerPoint,Word,,,[1],Office,,,,ProtelWin2dowsFlashAutoCAD,AutoCAD,,AutoCAD,,,,,,AutoCAD,OfficeAutoCAD,AutoCAD,,,,AutoCAD,AutoCAD,OLE,Auto2CAD200024120022JOURNALOFEEEVol.24No.1Feb.2002a:200214©1995-2005TsinghuaTongfangOpticalDiscCo.,Ltd.Allrightsreserved.1AutoCAD2000AutoCAD2000,,,AutoCAD,,VBA,,,,:111AutoCAD20001,,,+-Au2toCAD2000,,27mm2,5mm,12AutoCAD2000û111,2,,,R1dwg,AutoCAD2000øBlockøø,,112VBAAutoCAD2000VBA,AutoCAD2000EleC1dvbVBA,,modEleC,,modEleC,,InsertR,InsertRIn2sertBPublicSubInsertR()OnErrorGoToExitSubacadPath=App.Path&øBlockøø:blkFileName=acadPath&R.dwgCallInsertBEndSubPrivateSubInsertB()DimintPntvAsVariantintPntv=ThisDrawing.Utility.GetPoint(,:)DimintPntSAsStringintPntS=intPntv(0)&,&intPntv(1)ThisDrawing.SendCommand-insert&vbCr&blkFileName&vbCr&intPntS&vbCr&vbCr&vbCrEndSub113,3AutoCAD2000û111,31114,,3,111,5,,,638241:AutoCAD©1995-2005TsinghuaTongfangOpticalDiscCo.,Ltd.Allrightsreserved.4,;,,,^C^C-VbaRunmodEleC1InsertR,,modEleCInsertR,6111,,,75672,AutoCAD20008,,(Hyper2SnapDX),bmpjpg,,,PowerPointWord,,AutoCADû111(31bmp),,8213PowerPointWordPowerPointWord,ûû111,3AutoCAD,(),,AutoCAD,,,,AutoCAD1,1Word1,20011321VBAAutoCAD20001:,19993,1AutoCAD2000()1:,20004()DanAppleman1VisualBasic510Win32API11:,19984820022©1995-2005TsinghuaTongfangOpticalDiscCo.,Ltd.Allrightsreserved.