利用ObjectDBX在不打开图形文件的情况下生成该图形的DWF文件
本帖最后由 作者 于 2006-8-31 9:28:51 编辑怎样在LISP中利用ObjectDBX在不打开图形文件的情况下,生成该图形的DWF文件?
让我郁闷的是即使下面打开图形的一段程序也行不通,那位高手帮帮我呀,先谢谢了!!!(defun c:try()
(setq filename "C:\\Documents and Settings\\www\\桌面\\try.dwg")
(setq dbxdoc (vla-get-Documents (vlax-get-Acad-Object)))
(setq objplot (vla-open dbxdoc filename))
(setq obj (vla-get-Plot objplot))
(vla-plottofile obj filename "DWF6 ePlot.pc3")
(vlax-release-object dbxdoc)
(vlax-release-object obj)
(vlax-release-object objplot)
)
;;Obectdbx只支持下列性质及方法----但你可先把dbx图档copy到目前图档再dwf出去 <BR>; IAxDbDocument: IAxDbDocument 介面<BR>;性质值:<BR>; Application (RO) = 发生例外状况。<BR>; Blocks (RO) = #<VLA-OBJECT IAcadBlocks 05d25144><BR>; Database (RO) = #<VLA-OBJECT IAcadDatabase 012e88b4><BR>; Dictionaries (RO) = #<VLA-OBJECT IAcadDictionaries 05d250f4><BR>; DimStyles (RO) = #<VLA-OBJECT IAcadDimStyles 05d20f84><BR>; ElevationModelSpace = 0.0<BR>; ElevationPaperSpace = 0.0<BR>; FileDependencies (RO) = #<VLA-OBJECT IAcadFileDependencies 012e8854><BR>; Groups (RO) = #<VLA-OBJECT IAcadGroups 05d20f34><BR>; Layers (RO) = #<VLA-OBJECT IAcadLayers2 05d20ee4><BR>; Layouts (RO) = #<VLA-OBJECT IAcadLayouts 05d2f564><BR>; Limits = (0.0 0.0 420.0 297.0)<BR>; Linetypes (RO) = #<VLA-OBJECT IAcadLineTypes 05d20e84><BR>; ModelSpace (RO) = #<VLA-OBJECT IAcadModelSpace2 05d2f4f4><BR>; Name = "C:\\Documents and Settings\\LUCAS\\My Documents\\123.dwg"<BR>; PaperSpace (RO) = #<VLA-OBJECT IAcadPaperSpace2 05d20e14><BR>; PlotConfigurations (RO) = #<VLA-OBJECT IAcadPlotConfigurations 05d1d074><BR>; Preferences (RO) = #<VLA-OBJECT IAcadDatabasePreferences 012e8884><BR>; RegisteredApplications (RO) = #<VLA-OBJECT IAcadRegisteredApplications 05d20db4><BR>; SummaryInfo (RO) = #<VLA-OBJECT IAcadSummaryInfo 012e8824><BR>; TextStyles (RO) = #<VLA-OBJECT IAcadTextStyles 05d20d54><BR>; UserCoordinateSystems (RO) = #<VLA-OBJECT IAcadUCSs 05d20cf4><BR>; Viewports (RO) = #<VLA-OBJECT IAcadViewports 05d20c94><BR>; Views (RO) = #<VLA-OBJECT IAcadViews 05d20c34><BR>;支援的方法:<BR>; CopyObjects (3)<BR>; DxfIn (2)<BR>; DxfOut (3)<BR>; HandleToObject (1)<BR>; ObjectIdToObject (1)<BR>; Open (2)<BR>; Save ()<BR>; SaveAs (2) 由于我们这儿的建设单位让我们提供电子版的施工图,所以我想批量生成DWF文件,每张都打开太慢了。
页:
[1]