文章列表
下面是vbscript脚本
Dim obj
Set obj= CreateObject("DWGTOPDFX.ConvertPDF")
obj.AddExcudeLayer "Defpoints" 'OffLayers
obj.Width = 250 'uint is mm
obj.Height = 150 'uint is mm
obj.ColorMode = 0 '1--white&black, 0--256 color mode
obj.InputFile = "Office.dwg"
...