http://www.zwsoft.com/forum/viewthread.php?tid=2490 how to set monochrome in zwcad using vb.net dim plot as zwcadplotconfiguration plot.stylesheet="monochrome.ctb" but i con't able to load the monochrome settings through vb.net .Kindly help me varadh6309 2012-10-31 13:07:06 http://www.zwsoft.com/forum/viewthread.php?tid=2490&pid=16279 hai, thank u for your replay, herewith i have attached the vb code and also the bmp file for your reference. kindly give the solution for me. ---------------------------------------------------------------------------------------------------------- Auto cad coding example.. ********************** Set the Driver Path in Autocad ************************* Acad2000.Application.Preferences.Files.DriversPath = "\\APPSVR\AutoDraft\CAD_UTILS\DRV1" ********************** Set the Printer Cofiguration path (PC3 Files) ************************* ================================================================================================== Zwcad example coding .... Public utility As ZwcadUtility 'AcadUtility Public Acad As ZwcadApplication Public cad As ZwcadDocument *******************Connect Zwcad Application******************* On Error Resume Next Set Acad = GetObject(, "ZWcad.Application") If Err.Number = 0 Then CADOPEN = False Err.Clear Set Acad = CreateObject("ZWCAD.Application") If Err Then CADOPEN = False MsgBox Err.Description Exit Sub End If End If CADOPEN = True On Error GoTo 0 Acad.Visible = True Acad.WindowState = zcMax 'acMax If Acad.Documents.Count = 0 Then Acad.Documents.Add Set cad = Acad.ActiveDocument Dim CadViewPort As ZwcadViewport Set CadViewPort = cad.ActiveViewport cpath = "Z:\convert\BJ057-09-05-1-002.DWG" Acad.Documents.Open cpath Set cad = Acad.ActiveDocument **********************************PlotToFile************************* Dim currentPlot As ZwcadPlot Set currentPlot = Acad.ActiveDocument.Plot Dim plotconfig As ZwcadPlotConfiguration Dim plotconfigs As ZwcadPlotConfigurations Set plotconfig = Acad.ActiveDocument.PlotConfigurations.Add("text") plotconfig.ConfigName = "ho-sof-002HP LaserJet 1022.pc5" plotconfig.CanonicalMediaName = "A4" plotconfig.StyleSheet = "Monochrome.ctb" plotconfig.StandardScale = zc1_1 Dim point1(0 To 1) As Double Dim point2(0 To 1) As Double point1(0) = 0: point1(1) = 0 ': point1(2) = 0 point2(0) = 55019.06: point2(1) = 38860 ': point2(2) = 0 plotconfig.SetWindowToPlot point1, point2 ********************Read back window information**************** plotconfig.GetWindowToPlot X1, X2 MsgBox "Press any key to plot the following window:" & vbCrLf & vbCrLf & _ "Lower Left: " & X1(0) & ", " & X1(1) & vbCrLf & _ "Upper Right: " & X2(0) & ", " & X2(1) *****************Make sure the instruction is to plot a view, not some other plot style************* plotconfig.CenterPlot = True plotconfig.StandardScale = zcScaleToFit Acad.ActiveDocument.Regen zcActiveViewport Acad.ActiveDocument.SetVariable "BACKGROUNDPLOT", 0 Acad.ActiveDocument.SetVariable "TRAYNOTIFY", 0 plotconfig.PlotType = zcWindow **********************Example_SetWindowToPlot******************************** cad.ActiveLayout.CopyFrom plotconfig Acad.ActiveDocument.ActiveLayout.PlotRotation = zc90degrees cad.Application.ActiveDocument.Plot.DisplayPlotPreview zcFullPreview ==================================================================================================== Acad2000.Application.Preferences.Files.PrinterConfigPath = "\\APPSVR\AutoDraft\CAD_UTILS\PC316-12-08" ********************** Set the Style Sheet Path ************************* Acad2000.Application.Preferences.Files.PrinterStyleSheetPath = "\\APPSVR\AutoDraft\CAD_UTILS\Plotstyle" ---------------------------------------------------------------------------------------------------------- varadh6309 2012-11-14 17:01:07 http://www.zwsoft.com/forum/viewthread.php?tid=2490&pid=16212 [b]Reply [url=http://www.zwsoft.com/forum/redirect.php?goto=findpost&pid=16201&ptid=2490]2#[/url] [i]pmf_zwcad[/i] [/b] thank u... i ill check it. varadh6309 2012-11-02 22:47:30 http://www.zwsoft.com/forum/viewthread.php?tid=2490&pid=16201 Please refer to following code: Dim zwcad As Object Dim actdoc As Object zwcad = CreateObject("ZwCAD+.Application") zwcad.Visible = True actdoc = zwcad.ActiveDocument Dim styleSheetName As String actdoc.ActiveLayout.StyleSheet = "monochrome.ctb" styleSheetName = actdoc.ActiveLayout.StyleSheet MsgBox("The style sheet for the active layout is: " & styleSheetName) pmf_zwcad 2012-11-02 09:53:13