cad批量打印总结VBA

cad批量打印总结VBAcadvb及批量打印cad二次开发中VB或VBA的应用问题1、如何在VB中连接AutoCAD。启动VB，引用AutoCAD类型库。操作步骤:从“工程”菜单中选择“引用”选项，启动“引用”对话框。在“引用”对话框中，选择AutoCAD类型库，然后单击“确定”。2、定义模块级变量AutoCAD应用程序(acadApp)和当前的文档(acadDoc)。如果AutoCAD正在运行，使用GetObject函数将检索AutoCADApplication对象。如果AutoCAD没有运行，使用CreateObject函数试图创建一个AutoCADApplication对象。如果创建成功，会启动AutoCAD;如果失败，则会发生错误。同时运行多个AutoCAD任务时，GetObject函数会返回Windows运行对象表中的第一个AutoCAD实例。要显示AutoCAD图形窗口，需要将AutoCAD应用程序的Visible特性设置为TRUE。使用acadDoc变量引用当前的AutoCAD图形。示例:DimacadAppAsAcadApplicationDimacadDocasAcadDocumentSubConnectToAcad()OnErrorResumeNextSetacadApp=GetObject(,"AutoCAD.Application")IfErrThenErr.ClearSetacadApp=CreateObject("AutoCAD.Application")IfErrThenEndEndIfacadApp.Visible=TrueSetacadDoc=acadApp.ActiveDocumentEndSub2、如何使VB开发的程序不依赖于AutoCAD的版本。启动VB，定义模块级变量AutoCAD应用程序(acadApp)和当前的文档(acadDoc)。如果AutoCAD正在运行，使用GetObject函数将检索AutoCADApplication对象。如果AutoCAD没有运行，使用CreateObject函数试图创建一个AutoCADApplication对象。如果创建成功，会启动AutoCAD;如果失败，则会发生错误。同时运行多个AutoCAD任务时，GetObject函数会返回Windows运行对象表中的第一个AutoCAD实例。要显示AutoCAD图形窗口，需要将AutoCAD应用程序的Visible特性设置为TRUE。使用acadDoc变量引用当前的AutoCAD图形。示例:DimacadAppAsObjectDimacadDocasObjectSubConnectToAcad()OnErrorResumeNextSetacadApp=GetObject(,"AutoCAD.Application")IfErrThenErr.ClearSetacadApp=CreateObject("AutoCAD.Application")IfErrThenEndEndIfacadApp.Visible=TrueSetacadDoc=acadApp.ActiveDocumentEndSub与第一个问题相比较，可以看出，不引用具体的类型库以及使用通用的对象类型就可以达到通用性。3、前期绑定和后期绑定要创建一个使用前期绑定方式的对象变量，也就是说，在程序编译时就完成绑定，则对象变量在声明时应指定类ID，如:DimacadAppAsAcadApplication。使用AsObject子句声明对象变量，可以创建一个能包含任何类型对象引用的变量。不过，该变量访问对象是后期绑定的，也就是说，绑定在程序运行时才进行，如:DimacadAppAsObject。前期绑定的变量引用可以提供更好的性能，但该变量只能存放声明中所指定的类的引用。而后期绑定的变量引用可以提供更好的通用性。4、依赖于版本和独立于版本如果CreateObject或GetObject函数使用的ProgID没有附加版本号，那么是独立于版本的，否则是依赖于版本的。例如，如果使用的是CreateObject，则CreateObject("AutoCAD.Application")是独立于版本的，而CreateObject("AutoCAD.Application.15")是依赖于版本的。5、VB代码到VBA代码的转换在VBA的IDE环境中，使用“导入文件”将要转换的VB工程的模块、类模块以及窗体文件一一导入。接着将VB代码中所有的当前的文档(acadDoc)变量替换为ThisDrawing，而AutoCAD应用程序(acadApp)变量替换为Application。同时删除定义的AutoCAD应用程序(acadApp)和当前的文档(acadDoc)变量，删除与AutoCAD应用程序连接的代码。注意:要转换VB代码的窗体部分，则窗体必须是用UserForm创建的。6、图形对象和非图形对象图形对象(也称为图元、实体对象)是组成图形的可见对象(例如直线、圆、光栅图像等)。非图形对象是指属于图形的一部分但不可见的(提示性的)对象，例如Layers、Linetypes、DimStyles、SelectionSets等等。要创建这些对象，可使用Add方法。每一个对象都有用于特定目的的方法和特性，都有设置和检索扩展数据以及删除自己的方法PLT方式打印Autocad图纸2008-04-1522:56使用plt文件打印，打印服务器端使用Dos命令，服务器上不必安装cad，避免了不同电脑上cad版本不兼容以及字体、形文件不一致所造成的各种问题，并且可以大大降低打印人员的工作强度，非常适合于大批量打印图纸。另外就是plt文件很难反编译，即便是反编译以后，图纸也已面目全非，在一定程度上保护了图纸内容。其过程主要有两步:发布与打印.1:发布为PLT文件。在Autocad打印对话框中，选择好打印机后，我们会看到下面会有“打印到文件的可选项”，勾选它。然后再打印,指定文件的保存位置即可。2:打印PLT文件。为方便说明，我们假设打印机名为lpt1.在MS-DOS窗口下用:copy*.pltlpt1。同时，为方便，我们作一个批处理命令。打开记事本，此文件里写入:copy*.pltlpt1存为一个BAT格式的文件，以后需要打印，只要双击该BAT文件即就行了。下面的是VBA代码，不知道C#怎么用PublicSubPlotWindow()'确保当前布局是模型空间ThisDrawing.ActiveLayout=ThisDrawing.Layouts.Item("Model")'设置打印设备ThisDrawing.ActiveLayout.ConfigName="DWF6ePlot.pc3"'设置打印比例为"布满图纸"ThisDrawing.ActiveLayout.StandardScale=acScaleToFit'设置图纸类型ThisDrawing.ActiveLayout.CanonicalMediaName="ISO_A4_(210.00_x_297.00_MM)"'让AutoCAD在前台进行打印ThisDrawing.SetVariable"BACKGROUNDPLOT",0DimobjPlotAsAcadPlotSetobjPlot=ThisDrawing.Plot'设置打印窗口DimminPoint(0To1)AsDouble,maxPoint(0To1)AsDoubleSetPoint2dminPoint,0,0SetPoint2dmaxPoint,800,600ThisDrawing.ActiveLayout.SetWindowToPlotminPoint,maxPoint'设置打印类型ThisDrawing.ActiveLayout.PlotType=acWindowobjPlot.PlotToFile"C:\test.dwf"'恢复系统变量的值ThisDrawing.SetVariable"BACKGROUNDPLOT",2EndSubOptionExplicit'某文件夹下的包括下一级文件夹内的某个文件的筛选DimswAppAsSldWorks.SldWorksDimswPartAsSldWorks.ModelDoc2DimswDrawAsSldWorks.DrawingDocDimpsAsSldWorks.PageSetupDimlongstatusAsLong,longwarningsAsLong'定义存储错误与警告DimFname(50)AsString'定义文件夹数组,用来存放文件夹名称DimFilename(50)AsString'定义文件数组,用来存放文件名称DimFilepath(50)AsString'存放文件地址名称DimiAsSingle,nAsSingle,iiAsSingleDimObjshellAsObjectDimObjfolderAsObjectPrivateSubCommand1_Click()DimObjshellAsObjectDimObjfolderAsObjectSetObjshell=CreateObject("shell.application")'定义shell对象属于shell32Objfolder=Objshell.browseforfolder(0,"选择文件夹",0,0)'选择Set打开的文件夹，返回folder对象IfNotObjfolderIsNothingThenIfObjfolder.self.Type="文件夹"ThenText1.Text=Objfolder.self.path'提取Objfolder对象的文件地址ElseMsgBox"选择不正确，请重新选择～",vbExclamation,"提示"EndIfEndIfEndSubPrivateSubCommand2_Click()OnErrorResumeNextDimnnAsSingle,pathAsString,wjhzAsString,PrintNameAsString,mAsSingleSetswApp=GetObject(,"sldworks.application")IfErr.Number<>0ThenSetswApp=CreateObject("sldworks.application"):Err.Clear'定义sldworks对象path=Text1.Text'提取文件地址IfText1.Text=""ThenMsgBox"请选择打印文件夹路",vbInformation,"提示":ExitSubwjhz="SLDDRW"Calltest(path,wjhz)IfFilename(0)=""ThenMsgBox"没有可打印的工程图纸",vbCritical,"错误提示":ExitSubIfOption1.Value=FalseAndOption2.Value=FalseThenMsgBox"请选择一个打印机":ExitSubIfOption1.Value=TrueThenPrintName=Option1.CaptionIfOption2.Value=TrueThenPrintName=Option2.CaptionLabel2.Caption="打印准备中...请稍后..."swApp.Visible=FalseFornn=0Toii-1'nn从0开始到ii-1次循环SetswPart=swApp.OpenDoc6(Filepath(nn),3,0,"",longstatus,longwarnings)swPart.Printer=PrintNameSetps=swPart.PageSetupps.Orientation=2'1=图片'2=图形Debug.Printps.PrinterPaperSizeDimPageArray(0)AsLongPageArray(0)=0'数字为0代表全部打印，一般为pageArray(3)代表4-1，2-2，代表打印1和2具体参见API个数值，两两一对，例如1DimvPageArrayAsVariantvPageArray=PageArray"",""'参数3为空swPart.Extension.PrintOut2vPageArray,1,True,代表默认打印机，参见APILabel2.Caption="已打印"&Filename(nn)swApp.CloseDocFilename(nn)'管板当前图纸SetswPart=NothingNextLabel2.Caption="打印已完成"Text1.Text=""MsgBox"打印已完成，共打印"&nn&"张图纸"swApp.Visible=True'swApp.ExitAppSetswApp=NothingEndSubPrivateSubtest(FolderpathAsString,wjhzAsString)DimfsoAsObject,fnAsObject,fiAsObject,fn1AsObject,fi1AsObject,fi2AsObjectDimofsoAsObjectOnErrorResumeNextSetfso=CreateObject("scripting.filesystemobject")=fso.getfolder(Folderpath)'定义ofso为某地址下的文件对象SetofsoSetfn=ofso.subfolders'定义fn为ofso文件对象下的文件夹集合Setfi=ofso.Files'定义fi为ofso文件对象下的文件集合i=0:n=0:ii=0'清零Iffn.Count>0ThenForEachfn1Infn'在文件夹集合中循环Fname(i)=fn1.Name'将文件夹名称写入数组ForEachfi1Infso.getfolder(Folderpath&"\"&fn1.Name).Files'在当前文件夹内的文件集合中循环IfInStr(fi1.Name,UCase(wjhz))>0OrInStr(fi1.Name,LCase(wjhz))>0Then'如果文件名称含有DWG或dwg字符为trueFilename(n)=fi1.Name'将满足要求的文件名称写入数组Filepath(ii)=fi1.path'将地址保存n=n+1ii=ii+1EndIfDoEvents'将程序交给系统Nexti=i+1DoEvents'将程序交给系统NextEndIfForEachfi2InfiIfInStr(fi2.Name,UCase(wjhz))>0OrInStr(fi2.Name,LCase(wjhz))>0Then'如果文件名称含有DWG或dwg字符为trueFilename(n)=fi2.Name'将满足要求的文件名称写入数组Filepath(ii)=fi2.path'将地址保存n=n+1ii=ii+1EndIfDoEvents'将程序交给系统NextSubEndPrivateSubForm_Load()Label2.Caption="打印就绪"EndSubVB实现打开指定的CAD文件PublicFunctionopencad(cadfilepathdAsString,cadnameAsString)'打开cad过程DimacadappAsAcadApplicationDimacaddocAsAcadDocumentDimtsAsStringDimtsmsgAsStringOnErrorResumeNextSetacadapp=GetObject(,"AutoCAD.Application")'检测cad是否打开IfErr.Number=429Then'cad如果没有打开Error.ClearIfDir(cadfilepathd)<>""Then'检测文件是否存在Setacadapp=GetObject("","AutoCAD.Application")'打开cadacadapp.Visible=True'cad可见acadapp.Documents.Opencadfilepathd'打开相应文件Elsetsmsg="没有找到"&cadname&".dwg"ts=MsgBox(tsmsg,vbOKOnly,"错误!")EndIfElseIfErr.Number=0Then'如果cad打开Error.ClearIfDir(cadfilepathd)<>""Then'检测文件是否存在acadapp.Documents.Opencadfilepathd'打开相应文件acadapp.Visible=TrueElsetsmsg="没有找到"&cadname&".dwg"ts=MsgBox(tsmsg,vbOKOnly,"错误!")EndIfElsets=MsgBox("软件内部错误，请联系作者～",vbOKOnly,"错误～")'如果出现其他错误代码，软件本身出错EndEndIfEndFunctionVB调用API设置当前打印机、显示默认打印机1.VisualBasic中启动新标准EXE工程。默认情况下创建Form1。2.向项目添加一个新模块并插入以下代码:PublicConstHWND_BROADCAST=&HFFFFPublicConstWM_WININICHANGE=&H1A'constantsforDEVMODEstructurePublicConstCCHDEVICENAME=32PublicConstCCHFORMNAME=32'constantsforDesiredAccessmemberofPRINTER_DEFAULTSPublicConstSTANDARD_RIGHTS_REQUIRED=&HF0000PublicConstPRINTER_ACCESS_ADMINISTER=&H4PublicConstPRINTER_ACCESS_USE=&H8PublicConstPRINTER_ALL_ACCESS=(STANDARD_RIGHTS_REQUIREDOr_PRINTER_ACCESS_ADMINISTEROrPRINTER_ACCESS_USE)'constantthatgoesintoPRINTER_INFO_5Attributesmember'tosetitasdefaultPublicConstPRINTER_ATTRIBUTE_DEFAULT=4'ConstantforOSVERSIONINFO.dwPlatformIdPublicConstVER_PLATFORM_WIN32_WINDOWS=1PublicTypeOSVERSIONINFOdwOSVersionInfoSizeAsLongdwMajorVersionAsLongdwMinorVersionAsLongdwBuildNumberAsLongdwPlatformIdAsLongszCSDVersionAsString*128EndTypePublicTypeDEVMODEdmDeviceNameAsString*CCHDEVICENAMEdmSpecVersionAsIntegerdmDriverVersionAsIntegerdmSizeAsIntegerdmDriverExtraAsIntegerdmFieldsAsLongdmOrientationAsIntegerdmPaperSizeAsIntegerdmPaperLengthAsIntegerdmPaperWidthAsIntegerdmScaleAsIntegerdmCopiesAsIntegerdmDefaultSourceAsIntegerdmPrintQualityAsIntegerdmColorAsIntegerdmDuplexAsIntegerdmYResolutionAsIntegerdmTTOptionAsIntegerdmCollateAsIntegerdmFormNameAsString*CCHFORMNAMEdmLogPixelsAsIntegerdmBitsPerPelAsLongdmPelsWidthAsLongdmPelsHeightAsLongdmDisplayFlagsAsLongdmDisplayFrequencyAsLongdmICMMethodAsLong'//Windows95onlydmICMIntentAsLong'//Windows95onlydmMediaTypeAsLong'//Windows95onlydmDitherTypeAsLong'//Windows95onlydmReserved1AsLong'//Windows95onlydmReserved2AsLong'//Windows95onlyEndTypePublicTypePRINTER_INFO_5pPrinterNameAsStringpPortNameAsStringAttributesAsLongDeviceNotSelectedTimeoutAsLongTransmissionRetryTimeoutAsLongEndTypePublicTypePRINTER_DEFAULTSpDatatypeAsLongpDevModeAsLongDesiredAccessAsLongEndTypeDeclareFunctionGetProfileStringLib"kernel32"_Alias"GetProfileStringA"_(ByVallpAppNameAsString,_ByVallpKeyNameAsString,_ByVallpDefaultAsString,_ByVallpReturnedStringAsString,_ByValnSizeAsLong)AsLongDeclareFunctionWriteProfileStringLib"kernel32"_Alias"WriteProfileStringA"_(ByVallpszSectionAsString,_ByVallpszKeyNameAsString,_ByVallpszStringAsString)AsLongDeclareFunctionSendMessageLib"user32"_Alias"SendMessageA"_(ByValhwndAsLong,_ByValwMsgAsLong,_ByValwParamAsLong,_lparamAsString)AsLongDeclareFunctionGetVersionExALib"kernel32"_(lpVersionInformationAsOSVERSIONINFO)AsIntegerPublicDeclareFunctionOpenPrinterLib"winspool.drv"_Alias"OpenPrinterA"_(ByValpPrinterNameAsString,_phPrinterAsLong,_pDefaultAsPRINTER_DEFAULTS)AsLongPublicDeclareFunctionSetPrinterLib"winspool.drv"_Alias"SetPrinterA"_(ByValhPrinterAsLong,_ByValLevelAsLong,_pPrinterAsAny,_ByValCommandAsLong)AsLongPublicDeclareFunctionGetPrinterLib"winspool.drv"_Alias"GetPrinterA"_(ByValhPrinterAsLong,_ByValLevelAsLong,_pPrinterAsAny,_ByValcbBufAsLong,_pcbNeededAsLong)AsLongPublicDeclareFunctionlstrcpyLib"kernel32"_Alias"lstrcpyA"_(ByVallpString1AsString,_ByVallpString2AsAny)AsLongPublicDeclareFunctionClosePrinterLib"winspool.drv"_(ByValhPrinterAsLong)AsLongPublicSubSelectPrinter(NewPrinterAsString)DimPrtAsPrinterForEachPrtInPrintersIfPrt.DeviceName=NewPrinterThenSetPrinter=PrtExitForEndIfNextEndSub3.Form1上放置一个CommandButton和ListBox。4.以下代码添加到Form1的GeneralDeclarations部分:OptionExplicitPrivateFunctionPtrCtoVbString(AddAsLong)AsStringDimsTempAsString*512,xAsLongx=lstrcpy(sTemp,Add)If(InStr(1,sTemp,Chr(0))=0)ThenPtrCtoVbString=""ElsePtrCtoVbString=Left(sTemp,InStr(1,sTemp,Chr(0))-1)EndIfEndFunctionPrivateSubSetDefaultPrinter(ByValPrinterNameAsString,_ByValDriverNameAsString,ByValPrinterPortAsString)DimDeviceLineAsStringDimrAsLongDimlAsLongDeviceLine=PrinterName&","&DriverName&","&PrinterPort'Storethenewprinterinformationinthe[WINDOWS]sectionof'theWIN.INIfilefortheDEVICE=itemr=WriteProfileString("windows","Device",DeviceLine)'CauseallapplicationstoreloadtheINIfile:l=SendMessage(HWND_BROADCAST,WM_WININICHANGE,0,"windows")EndSubPrivateSubWin95SetDefaultPrinter()DimHandleAsLong'handletoprinterDimPrinterNameAsStringDimpdAsPRINTER_DEFAULTSDimxAsLongDimneedAsLong'bytesneededDimpi5AsPRINTER_INFO_5'yourPRINTER_INFOstructureDimLastErrorAsLong'determinewhichprinterwasselectedPrinterName=List1.List(List1.ListIndex)'none-exitIfPrinterName=""ThenExitSubEndIf'setthePRINTER_DEFAULTSmemberspd.pDatatype=0&pd.DesiredAccess=PRINTER_ALL_ACCESSOrpd.DesiredAccess'Getahandletotheprinterx=OpenPrinter(PrinterName,Handle,pd)'failedtheopenIfx=FalseThen'errorhandlercodegoeshereExitSubEndIf'MakeaninitialcalltoGetPrinter,requestingLevel5'(PRINTER_INFO_5)information,todeterminehowmanybytes'youneedx=GetPrinter(Handle,5,ByVal0&,0,need)'don'twanttocheckErr.LastDllErrorhere-it'ssupposed'tofail'witha122-ERROR_INSUFFICIENT_BUFFER'redimtaslargeasyouneedReDimt((need\4))AsLong'andcallGetPrinterforkeepersthistimex=GetPrinter(Handle,5,t(0),need,need)'failedtheGetPrinterIfx=FalseThen'errorhandlercodegoeshereExitSubEndIf'setthemembersofthepi5structureforusewithSetPrinter.'PtrCtoVbStringcopiesthememorypointedatbythetwostring'pointerscontainedinthet()arrayintoaVisualBasicstring.'TheotherthreeelementsarejustDWORDS(longintegers)and'don'trequireanyconversionpi5.pPrinterName=PtrCtoVbString(t(0))pi5.pPortName=PtrCtoVbString(t(1))pi5.Attributes=t(2)pi5.DeviceNotSelectedTimeout=t(3)pi5.TransmissionRetryTimeout=t(4)'thisisthecriticalflagthatmakesitthedefaultprinterpi5.Attributes=PRINTER_ATTRIBUTE_DEFAULT'callSetPrintertosetitx=SetPrinter(Handle,5,pi5,0)Ifx=FalseThen'SetPrinterfailedMsgBox"SetPrinterFailed.Errorcode:"&Err.LastDllErrorExitSubElseIfPrinter.DeviceName<>List1.TextThen'MakesurePrinterobjectissettothenewprinterSelectPrinter(List1.Text)EndIfEndIf'andclosethehandleClosePrinter(Handle)EndSubPrivateSubGetDriverAndPort(ByValBufferAsString,DriverNameAs_String,PrinterPortAsString)DimiDriverAsIntegerDimiPortAsIntegerDriverName=""PrinterPort=""'ThedrivernameisfirstinthestringterminatedbyacommaiDriver=InStr(Buffer,",")IfiDriver>0Then'StripoutthedrivernameDriverName=Left(Buffer,iDriver-1)'Theportnameisthesecondentryafterthedrivername'separatedbycommas.iPort=InStr(iDriver+1,Buffer,",")IfiPort>0Then'StripouttheportnamePrinterPort=Mid(Buffer,iDriver+1,_iPort-iDriver-1)EndIfEndIfEndSubPrivateSubParseList(lstCtlAsControl,ByValBufferAsString)DimiAsIntegerDimsAsStringDoi=InStr(Buffer,Chr(0))Ifi>0Thens=Left(Buffer,i-1)IfLen(Trim(s))ThenlstCtl.AddItemsBuffer=Mid(Buffer,i+1)ElseIfLen(Trim(Buffer))ThenlstCtl.AddItemBufferBuffer=""EndIfLoopWhilei>0EndSubPrivateSubWinNTSetDefaultPrinter()DimBufferAsStringDimDeviceNameAsStringDimDriverNameAsStringDimPrinterPortAsStringDimPrinterNameAsStringDimrAsLongIfList1.ListIndex>-1Then'Gettheprinterinformationforthecurrentlyselected'printerinthelist.Theinformationistakenfromthe'WIN.INIfile.Buffer=Space(1024)PrinterName=List1.Textr=GetProfileString("PrinterPorts",PrinterName,"",_Buffer,Len(Buffer))'ParsethedrivernameandportnameoutofthebufferGetDriverAndPortBuffer,DriverName