欢迎进入C/C++编程社区论坛，与200万技术人员互动交流 >>进入
花了一下午完成了一个初步的示范的例子,看来解决图纸统一管理有了解决的办法了.下一步用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
[1][2]
人要想成为生活的主人,不仅要适应生活,而且还要发挥主动性,
