VBscript DeleteEnity()

[MRB]

Hi,

I'm currently working on SP1 10.0.14.19 version.

Is the vbscript DeleteEntity() function working properly?

 

When I create a Line and delete it, the line doesn't get deleted. Also, Mastercam "screen statistics" function gives incorrect number of entities after running the following code:

 

intNewLineVectorPtr = CreateLine(objNewLineVector, mcCONSTRUCTION_COLOR_CURRENT, mcCONSTRUCTION_LEVEL_CURRENT)

 

DeleteEntity(intNewLineVectorPtr)

 

Please let me know.

Thanks!

[Bullines]

Works fine on 10.0.14.31. Is the line actually created? In other words, does CreateLine() return a valid entity pointer (read: a large non-negative "integer") or -1?

[MRB]

Yes, a line does get created and has a valid pointer. But it doesn't get deleted.

 

I'll try updating to 10.0.14.31. The script works fine in V9.

 

Thanks!

[Mick from CNC Software Inc.]

MRB,

 

Feel free to send me a copy of your script if possible and I'll test it here.

 

When sending via e-mail rename the vbs extension to txt.

[MRB]

Thanks Mick.

 

I'm finding now that the line does get deleted, but the image still remains on the graphics screen. Repaint and Clear screen functions doesn't quite clean up that line. Also, at this point the "Screen statistics" gives incorrect info. But when I change to a different level and switch back to the original one, the line gets erased and screen statistics icon works fine.

 

-------------------------------------

Sub Main()

 

Dim objLineVector

Dim intLineVectorPtr

 

Set objLineVector = New McLn

With objLineVector

 

.X1 = 0

.Y1 = 0

.Z1 = 0

 

.X2 = 0

.Y2 = 0

.Z2 = 1

 

End With

 

 

intLineVectorPtr = CreateLine(objLineVector, mcCONSTRUCTION_COLOR_CURRENT, mcCONSTRUCTION_LEVEL_CURRENT)

 

SetCPlaneNumber(0) ' Set CPlane = 3D to work in coordinate system's 3D space

 

' -- Clean up

DeleteEntity(intLineVectorPtr)

 

End Sub

_________________________________________

[Bullines]

The script runs fine on my computer.

 

Does a call to RepaintScreen() after deleting the entity help you on your computer? Are you running SP1 Update 3?