I'm having problem running some example VB code. It runs fine on another machine with VB. Just not mine. PC-DMIS is running in offline mode and the same program is loaded on each machine.
Dim app As PCDLRN.Application
Dim cmds As PCDLRN.Commands
Dim cmd As PCDLRN.Command
Dim part As PCDLRN.PartProgram
Dim res As Boolean
Dim cnt As Integer
Dim str As String
Dim fids As String
Set app = CreateObject("PCDLRN.Application")
Set part = app.ActivePartProgram
Set cmds = part.Commands
Open Text1.Text For Output As #1
For Each cmd In cmds
If cmd.IsDimension Then
If cmd.DimensionCommand.Feat1 <> "" Then
fids = "," + cmd.DimensionCommand.Feat1
End If
If cmd.DimensionCommand.Feat2 <> "" Then
fids = fids + "," + cmd.DimensionCommand.Feat2
End If
If cmd.DimensionCommand.Feat3 <> "" Then
fids = fids + "," + cmd.DimensionCommand.Feat3
End If
If cmd.Type <> DIMENSION_END_LOCATION And cmd.Type <> DIMENSION_START_LOCATION And cmd.Type <> DIMENSION_TRUE_START_POSITION And cmd.Type <> DIMENSION_TRUE_END_POSITION Then
str = cmd.ID
str = str + fids + GetNextString(cmd)
Print #1, str
fids = ""
End If
End If
Next cmd
I'm getting the following error at the "For Each cmd In cmds" line of code.
Run-time error '451'
Property let procedure not defined and property get procedure did not return and object.
Anyone seen this before?
