Deleting entities with VBS functions

[pkrzic]

Hello,

 

I have a problem with deleting entities using VBS function DeleteEntity().

The problem is that after deleting elements they still remain on the screen.

 

To put it a little different: the elements are deleted from the database (I can not select them with a cursor...), but their image still remains on the screen.

The use of screen repaint doesn't help.

The only thing that erases these "phantom" elements from the screen is the RAM SAVER. I don't like this method because it takes too much time on the bigger models.

 

Is there any better way to totally delete entities from the screen.

 

Here is a sample of my code:

code:

---

Sub Brisanje()

 

Dim bRet, level

Dim intelementCount

Dim objShell

 

Set objShell = CreateObject("WScript.Shell")

 

UnselectAll()

 

bRet = StartDBSearch(mc_alive, mc_linetype)

 

If bRet Then

Do While bRet

level = GetEntityLevel()

bRet = GetEntityEptr()

if level = 10501 then

DeleteEntity(bRet)

end if

bRet = NextDBSearch

Loop

Else

ShowString("There is no elements on the screen!")

End If

' Call RunMastercamCommand("RAMSaver")

' objShell.SendKeys "{ENTER}"

' objShell.SendKeys "{ENTER}"

End Sub

---

[Mick from CNC Software Inc.]

Add a call to RepaintScreen(true) at the end of your code to update the screen.

[pkrzic]

Tried this, but unsuccesfully.

 

I also tried a Call RunMastercamCommand("OnScreenRegenerate"), but the function opens a YES/NO message. User must then click the YES button in order to continue the run of the script.

This is not OK for me - I want to run it automaticly.

 

All I want is to delete all elements from certain level (for instance level 10501)!

 

Thanks for help.

[Bullines]

Try this out:

 

code:

---

Sub Brisanje()

Dim iRet, iLevel

 

 

UnselectAll()

 

iRet = StartDBSearch(mc_alive, mc_linetype)

 

If iRet Then

Do While iRet

iLevel = GetEntityLevel()

iRet = GetEntityEptr()

 

If iLevel = 10501 Then

If Not (DeleteEntity(iRet)) Then

ShowString "Unable to delete entity: " & iRet

End If

End If

 

iRet = NextDBSearch

Loop

Else

ShowString("There are no elements on the screen!")

End If

 

Call RepaintScreen(False)

End Sub

---

HTH

[pkrzic]

Bullines, I tried your method, but was not successful.

 

I've ran out of ideas.

 

Do you have any more ideas on how to fully erase all elements from a certain level (without using functions such as RAM SAVER or SCREEN REGENERATE)?

 

Thanks.

[Bullines]

That's odd, because the code works fine on my computer. Which version of Mastercam are you running?

[pkrzic]

Bullines,

 

I run MCAM X SP1 and MCAM X MR1 PC1. It does not work in both of them.

 

Maybe it is a problem that this code is just a part of a script (it does some other things than just deleting entities).

 

I can email you my whole *.vbs file.

[Bullines]

Sure. Zip it up and I'll take a look.

[Bullines]

Primoz,

 

I'm unable to reply to your email because it bounces back with a "Disc quota exceeded" error.