在VBA中調用AUTOCAD打印文件

花了一下午完成了一個初步的示範的例子,看來解決圖紙統一治理有了解決的辦法了.下一步用jacob封裝在Java中調用,在服務器上控制打印治理.做個記號再慢慢完善.'取得當前文檔對象(vba中的方法,假如是在VB中時需要從頂層對象開始引用取得)

Dim currentDoc As AcadDocument

Set currentDoc = ThisDrawing'文檔的模型空間

Dim sp As AcadModelSpace

Set sp = currentDoc.modelspace'取得模型空間中的塊屬性

Dim index As Integer

For index = 0 To sp.Count - 1

Dim name As String

name = sp.Item(index).ObjectName

'判定模型空間中的項目是否是一個塊引用

If name Like "*Ac*" Then

Dim blockRef As AcadBlockReference

Set blockRef = sp.Item(index)

'塊引用的插入點

Dim insertPoint As Variant

insertPoint = blockRef.InsertionPoint

'放大比例

Dim xScale, yScale As Integer

xScale = blockRef.XScaleFactor

yScale = blockRef.YScaleFactor

'寬高基數

Dim width, height As Double

width = 297

height = 210

'打印區域

Dim UpperRight(0 To 1) As Double, LowerLeft(0 To 1) As Double

UpperRight(0) = insertPoint(0)

UpperRight(1) = insertPoint(1)

LowerLeft(0) = insertPoint(0) + width * xScale

LowerLeft(1) = insertPoint(1) - height * yScale

list.AddItem "inserPoint:X=" & UpperRight(0) & " Y:" & UpperRight(1)

list.AddItem "lowerLeft :X=" & LowerLeft(0) & " Y:" & LowerLeft(1)

Dim plotConfs As AcadPlotConfigurations

Set plotConfs = ThisDrawing.PlotConfigurations

list.AddItem plotConfs.Count

Dim plotconf As AcadPlotConfiguration

Set plotconf = plotConfs.Add("plot")

'list.AddItem plotconf.GetPlotDeviceNames(5)

'Set plotConf = ThisDrawing.PlotConfigurations.Add

'設置定義要打印的布局範圍的坐標

ThisDrawing.ActiveLayout.SetWindowToPlot LowerLeft, UpperRight

'指定布局或打印配置的類型

ThisDrawing.ActiveLayout.PlotType = acWindow

'按局部或完整視圖預覽方式顯示打印預覽對話框

ThisDrawing.Plot.DisplayPlotPreview acFullPreview

'打印布局到設備

ThisDrawing.Plot.PlotToDevice

End If

Next index

在VBA中調用AUTOCAD打印文件
’取得當前文檔對象(vba中的方法,如果是在VB中時需要從頂層對象開始引用取得) Dim currentDoc As AcadDocument Set currentDoc = ThisDrawing ’文檔的模型空間 Dim sp As AcadModelSpace Set sp = currentDoc.model...查看完整版>>在VBA中調用AUTOCAD打印文件
 
在VBA中調用AUTOCAD打印文件
花了一下午完成了一個初步的示範的例子,看來解決圖紙統一管理有了解決的辦法了.下一步用jacob封裝在java中調用,在服務器上控制打印管理.做個記號再慢慢完善.'取得當前文檔對象(vba中的方法,如果是在VB中時需要從頂層...查看完整版>>在VBA中調用AUTOCAD打印文件
 
AutoCAD ActiveX\VBA二次開發技術基礎及應用實例(附光盤)|報價¥22.30|圖書,計算機與互聯網,軟件工程,綜合,佟士懋
目錄:圖書,計算機與互聯網,軟件工程,綜合,品牌:佟士懋基本信息·出版社:國防工業出版社·頁碼:189 頁碼·出版日:2006年·ISBN:711804475X·條碼:9787118044751·版次:1·裝幀:平裝·開本:16開 16開內容簡介...查看完整版>>AutoCAD ActiveX\VBA二次開發技術基礎及應用實例(附光盤)|報價¥22.30|圖書,計算機與互聯網,軟件工程,綜合,佟士懋
 
Excel-VBA文件操作
在我們日常使用Excel的時候,不僅會用到當前Excel文件的數據,還經常需要訪問其他的數據文件。這些數據文件可能是Excel文件、文本文件或數據庫文件等。經常有朋友會問如何在vba代碼裏操作這些數據文件?本文就系統地...查看完整版>>Excel-VBA文件操作
 
Flash中如何調用exe可執行文件?
  問:Flash中如何調用一個.exe的可執行文件?比如我用vc編好的可執行文件。   答:用fscommand("exec","執行文件名")即可。  注意一定保證執行文件的路徑正確。...查看完整版>>Flash中如何調用exe可執行文件?
 
Java如何調用可執行文件和批處理命令
  Java是種跨平台的語言,我們經常碰到需要通過Java調用windows下某些程序。有些第三方廠商如(ANT),也提供了調用windows下可執行程序的方法,但我們往往需要調用一些批處理命令。而Java卻不提供。這裏,我采用一...查看完整版>>Java如何調用可執行文件和批處理命令
 
xml文件調用css
這些小東西是我在網上看到的就把它記下來了,可能以後會有用的: <?xml version="1.0" encoding="GB2312"?> <?xml-stylesheet type="text/css" href="resume.css"?> <resume...查看完整版>>xml文件調用css
 
在PowerPoint中調用MPEG文件
  有時,我們在制作多媒體課件時需調用某些VCD光盤上的部分影像信息,這時若沒有視頻編輯軟件就束手無策了。其實完全可以利用豪傑超級解霸來解決這個問題。  我們先將VCD盤上的DAT文件拷貝至硬盤上(可加快調用的...查看完整版>>在PowerPoint中調用MPEG文件
 
Java如何調用可執行文件和批處理命令
  Java是種跨平台的語言,我們經常碰到需要通過Java調用windows下某些程序。有些第三方廠商如(ANT),也提供了調用windows下可執行程序的方法,但我們往往需要調用一些批處理命令。而Java卻不提供。這裏,我采用一...查看完整版>>Java如何調用可執行文件和批處理命令
 
 
回到王朝網路移動版首頁