PlotToDevice样例程序

Imports ZWCAD 


Public Class Form1 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Dim objConfig As ZcadPlotConfiguration 
Dim objAcadApp As Object 
Dim objDwg As Object 
'Dim objAcadApp As ZcadApplication 
'Dim objDwg As ZcadDocument 
Dim blnresult As Boolean 

objAcadApp = CreateObject("zwcad+.application") 
objDwg = objAcadApp.ActiveDocument 
Dim myspace As ZWCAD.ZcadModelSpace 
myspace = objDwg.ModelSpace() 
Dim myline As ZcadLine 
Dim startpoint(2) As Double 
startpoint(0) = 0 : startpoint(1) = 0 : startpoint(2) = 0 
Dim endpoint(2) As Double 
endpoint(0) = 10 : endpoint(1) = 200 : endpoint(2) = 0 
myline = myspace.AddLine(startpoint, endpoint) 
myline.Update() 
objDwg.SendCommand("_zoom e ") 


objConfig = objDwg.PlotConfigurations.Add("new") 

objConfig.ConfigName = "\\192.168.0.155\HP LaserJet 1022" 

blnresult = objDwg.Plot.PlotToDevice(objConfig.ConfigName) 
MsgBox(blnresult.ToString) 
End Sub 
End Class