Acad.dvb Limiting to 20 users?

[Anonymous]

Hello,

I have an acad.dvb file that has a few routines in it. I have one of them run at startup via the S::StartUp routine shown below:

sss

Then it runs the following function. The it works great but it seems that once I hit 20 people that have the acad.dvb file open, anyone else gets an execution error and the acad.dvb file is not loaded and not run. I am the admin here and have verified that we have 46 licenses in the office running on our ADLM. I can't for the life of me figure out the reason why it is limited to 20 people.

Please help.
Kevin Grigsby

Public Function vDPW_OpenDrawing()

Dim tempTD As AcadDictionary
Dim tempTX As AcadXRecord
Dim newTypes(0 To 3) As Integer
Dim newValues(0 To 3) As Variant
Dim sMSHandle As String
Dim sPSHandle As String
Dim retcode As Integer

On Error GoTo ErrorHandler

If ModelSpace.Count > 0 Then
sMSHandle = ModelSpace.Item(ModelSpace.Count - 1).Handle
Else
sMSHandle = VDPW_EmptyHandle
End If

If PaperSpace.Count > 0 Then
sPSHandle = PaperSpace.Item(PaperSpace.Count - 1).Handle
Else
sPSHandle = VDPW_EmptyHandle
End If

Set tempTD = GetvDPWToolsDictionary(True)

If Not tempTD Is Nothing Then
Set tempTX = GetvDPWDWGTrackerXRecord(True)

If Not tempTX Is Nothing Then
newTypes(0) = TYPEString: newValues(0) = GetVariable("LOGINNAME")
newTypes(1) = TYPEString: newValues(1) = Format(Now, VDPW_ToolsDateTimeFormat)
newTypes(2) = TYPEString: newValues(2) = sMSHandle
newTypes(3) = TYPEString: newValues(3) = sPSHandle

AppendXRecordData newTypes, newValues
End If
End If


FinishUp:

Set tempTD = Nothing
Set tempTX = Nothing

Exit Function

ErrorHandler:

On Error Resume Next

Select Case Err.Number
Case Else
retcode = MsgBox("vDPW_OpenDrawing Error " & Err.Number & " - " & Err.Description, vbExclamation + vbAbortRetryIgnore + vbDefaultButton2)
Select Case retcode
Case vbAbort: GoTo FinishUp
Case vbRetry: Resume 0
Case vbIgnore: Resume Next
End Select
End Select

End Function

[Anonymous]

Well the formatting on that got all screwed up so I will attempt to format it better. And here is the S::StartUp code.

(vl-vbarun "ThisDrawing.vDPW_OpenDrawing")


VBA CODE:


Public Function vDPW_OpenDrawing()

Dim tempTD As AcadDictionary
Dim tempTX As AcadXRecord
Dim newTypes(0 To 3) As Integer
Dim newValues(0 To 3) As Variant
Dim sMSHandle As String
Dim sPSHandle As String
Dim retcode As Integer

On Error GoTo ErrorHandler

If ModelSpace.Count > 0 Then
sMSHandle = ModelSpace.Item(ModelSpace.Count - 1).Handle
Else
sMSHandle = VDPW_EmptyHandle
End If

If PaperSpace.Count > 0 Then
sPSHandle = PaperSpace.Item(PaperSpace.Count - 1).Handle
Else
sPSHandle = VDPW_EmptyHandle
End If

Set tempTD = GetvDPWToolsDictionary(True)

If Not tempTD Is Nothing Then
Set tempTX = GetvDPWDWGTrackerXRecord(True)

If Not tempTX Is Nothing Then
newTypes(0) = TYPEString: newValues(0) = GetVariable("LOGINNAME")
newTypes(1) = TYPEString: newValues(1) = Format(Now, VDPW_ToolsDateTimeFormat)
newTypes(2) = TYPEString: newValues(2) = sMSHandle
newTypes(3) = TYPEString: newValues(3) = sPSHandle

AppendXRecordData newTypes, newValues
End If
End If


FinishUp:

Set tempTD = Nothing
Set tempTX = Nothing

Exit Function

ErrorHandler:

On Error Resume Next

Select Case Err.Number
Case Else
retcode = MsgBox("vDPW_OpenDrawing Error " & Err.Number & " - " & Err.Description, vbExclamation + vbAbortRetryIgnore + vbDefaultButton2)
Select Case retcode
Case vbAbort: GoTo FinishUp
Case vbRetry: Resume 0
Case vbIgnore: Resume Next
End Select
End Select

End Function

[Anonymous]

A recent post stated that there was a known
limitation to simultaneous access to .dvb's.

The suggested work-around was to use acad.lsp to
make a local copy of the dvb first, then load it.

Search through the postings for more
info...

Brian D.

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

"TheTick" <kgrig@vpwa.com>
wrote in message
href="news:f0c28b7.-1@WebX.maYIadrTaRb">news:f0c28b7.-1@WebX.maYIadrTaRb...

Hello,

I have an acad.dvb file that has a few routines in it. I have one of them
run at startup via the S::StartUp routine shown below:

sss

Then it runs the following function. The it works great but it seems that
once I hit 20 people that have the acad.dvb file open, anyone else gets an
execution error and the acad.dvb file is not loaded and not run. I am the
admin here and have verified that we have 46 licenses in the office running on
our ADLM. I can't for the life of me figure out the reason why it is limited
to 20 people.

Please help.
Kevin Grigsby

Public Function vDPW_OpenDrawing()

Dim tempTD As AcadDictionary
  Dim tempTX As AcadXRecord

  Dim newTypes(0 To 3) As Integer
  Dim
newValues(0 To 3) As Variant
  Dim sMSHandle As String

  Dim sPSHandle As String
  Dim retcode As Integer

On Error GoTo ErrorHandler

If ModelSpace.Count > 0 Then
    sMSHandle =
ModelSpace.Item(ModelSpace.Count - 1).Handle
  Else

    sMSHandle = VDPW_EmptyHandle
  End
If

If PaperSpace.Count > 0 Then
    sPSHandle =
PaperSpace.Item(PaperSpace.Count - 1).Handle
  Else

    sPSHandle = VDPW_EmptyHandle
  End
If

Set tempTD = GetvDPWToolsDictionary(True)

If Not tempTD Is Nothing Then
    Set tempTX =
GetvDPWDWGTrackerXRecord(True)

If Not tempTX Is Nothing Then

      newTypes(0) = TYPEString: newValues(0)
= GetVariable("LOGINNAME")
      newTypes(1)
= TYPEString: newValues(1) = Format(Now, VDPW_ToolsDateTimeFormat)

      newTypes(2) = TYPEString: newValues(2)
= sMSHandle
      newTypes(3) = TYPEString:
newValues(3) = sPSHandle

AppendXRecordData newTypes, newValues
    End If

  End If

FinishUp:

Set tempTD = Nothing
  Set tempTX = Nothing

Exit Function

ErrorHandler:

On Error Resume Next

Select Case Err.Number
    Case Else

      retcode = MsgBox("vDPW_OpenDrawing
Error " & Err.Number & " - " & Err.Description, vbExclamation +
vbAbortRetryIgnore + vbDefaultButton2)

      Select Case retcode

        Case vbAbort: GoTo
FinishUp
        Case vbRetry:
Resume 0
        Case vbIgnore:
Resume Next
      End Select

  End Select

End Function

[Anonymous]

Here it is in an attachment.

[Anonymous]

If you store the dvb on the network and have users access the same dvb, you will have this problem. Try storing the original on the lan and copying to local hard drive. Users load the local version, therefore only 1 person accessing. Most cad mgr's have routines that automatically do the copying. -Ed

[Anonymous]

I've seen posts about having this problem here in
the past also.

We have 37 licenses here and one acad.dvb file on
the network that everyone points to.  We have no problem with people
accessing this file.  Do you  have the Acad.dvb file being served off
a NT Server or 2000 Server machine?  Other operating systems (non-Server
OS's) limit the # of simultaneous connections to them (2000 Professional
limits to 10 connections)...  Just wondering if this was the problem now
and in the past posts...

--
Jeff Spannbauer
Civil Engineer
II
Cannon Associates

href="http://www.cannonassoc.com">www.cannonassoc.com
805-544-7407

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"TheTick" <kgrig@vpwa.com>
wrote in message
href="news:f0c28b7.-1@WebX.maYIadrTaRb">news:f0c28b7.-1@WebX.maYIadrTaRb...

Hello,

I have an acad.dvb file that has a few routines in it. I have one of them
run at startup via the S::StartUp routine shown below:

sss

Then it runs the following function. The it works great but it seems that
once I hit 20 people that have the acad.dvb file open, anyone else gets an
execution error and the acad.dvb file is not loaded and not run. I am the
admin here and have verified that we have 46 licenses in the office running on
our ADLM. I can't for the life of me figure out the reason why it is limited
to 20 people.

Please help.
Kevin Grigsby

Public Function vDPW_OpenDrawing()

Dim tempTD As AcadDictionary
  Dim tempTX As AcadXRecord

  Dim newTypes(0 To 3) As Integer
  Dim
newValues(0 To 3) As Variant
  Dim sMSHandle As String

  Dim sPSHandle As String
  Dim retcode As Integer

On Error GoTo ErrorHandler

If ModelSpace.Count > 0 Then
    sMSHandle =
ModelSpace.Item(ModelSpace.Count - 1).Handle
  Else

    sMSHandle = VDPW_EmptyHandle
  End
If

If PaperSpace.Count > 0 Then
    sPSHandle =
PaperSpace.Item(PaperSpace.Count - 1).Handle
  Else

    sPSHandle = VDPW_EmptyHandle
  End
If

Set tempTD = GetvDPWToolsDictionary(True)

If Not tempTD Is Nothing Then
    Set tempTX =
GetvDPWDWGTrackerXRecord(True)

If Not tempTX Is Nothing Then

      newTypes(0) = TYPEString: newValues(0)
= GetVariable("LOGINNAME")
      newTypes(1)
= TYPEString: newValues(1) = Format(Now, VDPW_ToolsDateTimeFormat)

      newTypes(2) = TYPEString: newValues(2)
= sMSHandle
      newTypes(3) = TYPEString:
newValues(3) = sPSHandle

AppendXRecordData newTypes, newValues
    End If

  End If

FinishUp:

Set tempTD = Nothing
  Set tempTX = Nothing

Exit Function

ErrorHandler:

On Error Resume Next

Select Case Err.Number
    Case Else

      retcode = MsgBox("vDPW_OpenDrawing
Error " & Err.Number & " - " & Err.Description, vbExclamation +
vbAbortRetryIgnore + vbDefaultButton2)

      Select Case retcode

        Case vbAbort: GoTo
FinishUp
        Case vbRetry:
Resume 0
        Case vbIgnore:
Resume Next
      End Select

  End Select

End Function

[Anonymous]

Jeff, are all 37 using acad at the same time? Is it possible that you just havn't gotten to 20-25 users at the same time? -Ed

[Anonymous]

Well, anything is possible...

I will have to wait till Monday to check
this.  Only 1/2 of us work on Friday 🙂

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"elj" <eljobe@tid.org> wrote in
message
href="news:f0c28b7.5@WebX.maYIadrTaRb">news:f0c28b7.5@WebX.maYIadrTaRb...

Jeff,
are all 37 using acad at the same time? Is it possible that you just havn't
gotten to 20-25 users at the same time? -Ed

[Anonymous]

Oh, that limit :-).  Sorry.  <choke
choke, whole humble pie in one mouthful>

Apparently some of the users hadn't installed the
networked default profile we set up and surveyors weren't always in
the office.  After spending that Friday running around to everyone's
machine and setting it up I did hit a limit at 20 users.  Strange though,
don't you think?

I've seen people talk about LISP programs that will
copy the files onto the users machines.  Anyone have an example one that
they can post here or e-mail to me?

Thank you,

Jeff

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Jeff Spannbauer" <
href="mailto:jeffs@cannonassoc.com">jeffs@cannonassoc.com> wrote in
message
href="news:72C72082C52AE64BA3983FFF07CA729D@in.WebX.maYIadrTaRb">news:72C72082C52AE64BA3983FFF07C......

Well, anything is possible...

I will have to wait till Monday to check
this.  Only 1/2 of us work on Friday 🙂

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"elj" <eljobe@tid.org> wrote
in message
href="news:f0c28b7.5@WebX.maYIadrTaRb">news:f0c28b7.5@WebX.maYIadrTaRb...

Jeff,
are all 37 using acad at the same time? Is it possible that you just havn't
gotten to 20-25 users at the same time?
-Ed