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

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

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 指定不行么，好像
页: [1]
查看完整版本: [求助]cad有多个layout时，如何指定每个layout？