Dim objPViewport As AcadObject
Dim XdataType As Variant
Dim XdataValue As Variant
Dim I As Integer, PT1 As Variant
Dim stemp As String
' Get the Xdata from the Viewport
PPort.GetXData "ACAD", XdataType, XdataValue
For I = LBound(XdataType) To UBound(XdataType)
' Look for frozen Layers in this viewport
If XdataType(I) = 1003 Then
' Set the counter AFTER the position of the Layer frozen layer(s)
Counter = I + 1
' If the layer is already in the frozen layers xdata of this viewport then exit this sub program
stemp = stemp & XdataValue(I) & vbCrLf
End If
Next
MsgBox stemp
"Matt W" wrote in message news:40746150$1_3@newsprd01...
What do you have so far (code)??
--
Matt W
There are 3 kinds of people:
Those who can count, and those who can't.
"Nate Hunter" wrote in message news:40740462$1_3@newsprd01...
> I am really having problems with this task. I need to:
>
> 1. Check to see if a layer is frozen in the active viewport
> 2. Create a new viewport ( I have this step completed)
> 3. Set layer status to the stus of step 1
>
> I thought if I set the ViewportDefault = true in step one. By creating a
> new viewport my layer status would be the same as my original viewport.
>
> One other note is that I am not creating my viewport in the same tab. The
> Viewport is in the same drawing but not the same tab.
>
> Any Ideas.
>
>
