自動打印問題

lovelilin

各位大俠用lsp寫一個自動打印程序怎樣才能獲得我要打印的范圍呀！幫幫忙好急呀1

秋枫

利用ActiveX取得图框的包围盒。以前我贴过一个程序。

lovelilin

DEAR         秋枫：


                 能否把你发前的程序再贴给我看看哟！真的好急呀！我用ACTIVEX好像查不到框选按钮的性质呀不知怎么办呀！晕倒了！！！

秋枫

VBA class name:	AcadLayout
Create using:	Layouts.Add
Access via:	Layouts.Item Document.ActiveLayout ModelSpace.Layout PaperSpace.Layout Block.Layout

The representation of a layout is slightly different in ActiveX from that of the AutoCAD user interface. In ActiveX, the content of a standard AutoCAD layout is broken out into two separate objects: Layout object and MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_block_object.htm" target="_blank" >Block object. The Layout object contains the plot settings and the visual properties of the layout as it appears in the AutoCAD user interface. The Block object contains the geometry for the layout.

Each Layout object is associated with one Block object. To access the Block object associated with a given layout, use the Block property. Conversely, each Block object is associated with one Layout object. To access the Layout object associated with a given Block, use the Layout property for that block.

In ActiveX, in addition to the paper space layouts, model space is considered a layout.

To create a new layout, use the MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_add.htm" target="_blank" >Add method. To edit or query a layout, use the following methods and properties:

Methods MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_copyfrom.htm" target="_blank" > CopyFrom MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_delete.htm" target="_blank" > Delete MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_getcustomscale.htm" target="_blank" > GetCustomScale MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_getextensiondictionary.htm" target="_blank" > GetExtensionDictionary MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_getpapermargins.htm" target="_blank" > GetPaperMargins MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_getpapersize.htm" target="_blank" > GetPaperSize MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_getwindowtoplot.htm" target="_blank" > GetWindowToPlot MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_getxdata.htm" target="_blank" > GetXData MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_setcustomscale.htm" target="_blank" > SetCustomScale MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_setwindowtoplot.htm" target="_blank" > SetWindowToPlot MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_setxdata.htm" target="_blank" > SetXData

Properties MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_application.htm" target="_blank" > Application MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_block.htm" target="_blank" > Block MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_canonicalmedianame.htm" target="_blank" > CanonicalMediaName MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_centerplot.htm" target="_blank" > CenterPlot MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_configname.htm" target="_blank" > ConfigName MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_document.htm" target="_blank" > Document MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_getcanonicalmedianames.htm" target="_blank" > GetCanonicalMediaNames MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_getlocalemedianame.htm" target="_blank" > GetLocaleMediaName MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_getplotdevicenames.htm" target="_blank" > GetPlotDeviceNames MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_getplotstyletablenames.htm" target="_blank" > GetPlotStyleTableNames MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_handle.htm" target="_blank" > Handle MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_hasextensiondictionary.htm" target="_blank" > HasExtensionDictionary MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_modeltype.htm" target="_blank" > ModelType MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_name.htm" target="_blank" > Name MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_objectid.htm" target="_blank" > ObjectID MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_objectname.htm" target="_blank" > ObjectName MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_ownerid.htm" target="_blank" > OwnerID MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_paperunits.htm" target="_blank" > PaperUnits MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_plothidden.htm" target="_blank" > PlotHidden MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_plotorigin.htm" target="_blank" > PlotOrigin MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_plotrotation.htm" target="_blank" > PlotRotation MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_plottype.htm" target="_blank" > PlotType MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_plotviewportborders.htm" target="_blank" > PlotViewportBorders MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_plotviewportsfirst.htm" target="_blank" > PlotViewportsFirst MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_plotwithlineweights.htm" target="_blank" > PlotWithLineweights MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_plotwithplotstyles.htm" target="_blank" > PlotWithPlotStyles MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_refreshplotdeviceinfo.htm" target="_blank" > RefreshPlotDeviceInfo MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_scalelineweights.htm" target="_blank" > ScaleLineweights MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_showplotstyles.htm" target="_blank" > ShowPlotStyles MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_standardscale.htm" target="_blank" > StandardScale MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_stylesheet.htm" target="_blank" > StyleSheet MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_taborder.htm" target="_blank" > TabOrder MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_usestandardscale.htm" target="_blank" > UseStandardScale MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_viewtoplot.htm" target="_blank" > ViewToPlot

Properties MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_modified.htm" target="_blank" > Modified

object.GetBoundingBox MinPoint, MaxPoint

Object

MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/all_drawing_objects.htm" target="_blank" >All Drawing Objects, MSITStore:C:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_attributeref_object.htm" target="_blank" >AttributeReference
The object or objects this method applies to.

MinPoint

Variant (three-element array of doubles); output-only
The 3D WCS coordinates specifying the minimum point of the object's bounding box.

MaxPoint

Variant (three-element array of doubles); output-only
The 3D WCS coordinates specifying the maximum point of the object's bounding box.

雅明

秋枫发表于2004-4-30 20:14:00利用ActiveX取得图框的包围盒。以前我贴过一个程序。

你这个能取得许多对象的最大包围盒吗？

Ea

雅明发表于2004-5-6 9:11:00你这...

求得了每个的，再求最小点和最大点。实用函数下面有。

雅明

哪个函数名？

龙龙仔

http://www.mjtd.com/bbs/dispbbs.asp?boardid=3&star=1&replyid=16226&id=20113&skin=0&page=1