[求助]cad有多个layout时，如何指定每个layout？

szuki · 发表于 2009-10-23 21:35:00

thisdrawing.paperspace.add....
如果我有layout1,layout2等，paperspace只默认指定一个.

szuki · 发表于 2009-10-23 21:45:00

Option Explicit
Public Sub Add_Order_Number()
Dim dblStart(0 To 2) As Double  '插入点
Dim dblHeight As Double
Dim strText As String
Dim objOrderText As AcadText
Dim PP As Object
dblStart(0) = 338.5473
dblStart(1) = 27.3814
dblStart(2) = 0
dblHeight = 4.8
strText = "订单：72E172A,B,C"       '测试用，最终会改为变量
Set objOrderText = ThisDrawing.PaperSpace.AddText(strText, dblStart, dblHeight)       '在paperspace写字,但有2个以上的layout时，如何每个都写入？
With objOrderText
.Alignment = acAlignmentMiddleCenter
.TextAlignmentPoint = dblStart  '调整该对齐属性的文字插入点(必须)
End With
objOrderText.Update
End Sub

szuki · 发表于 2009-10-24 19:07:00

继续等待大侠帮忙.

Saging · 发表于 2009-10-24 19:33:00

Public Sub mtest() '循环每个空间
Dim mLayout As AcadLayout
For Each mLayout In ThisDrawing.Layouts
ThisDrawing.ActiveLayout = mLayout
MsgBox ("当前空间为" & mLayout.Name)
Next
End Sub

szuki · 发表于 2009-10-25 09:20:00

ok，测试成功，就是把modelspace也算进去了
那么，直接用ThisDrawing.PaperSpace 指定不行么，好像

[求助]cad有多个layout时，如何指定每个layout？

发表回复

精选推荐