DELETE ALL IN THE BACKGROUND 2

[JeniaL]

This code works well with one sheet

For Each DrwSheet In MyDrawingDoc.Sheets
Selection.Search "Drafting.View.Name='Background View' "
Selection.Search "Type=*,scr"
Selection.Remove (1)
Selection.Delete
drwviews.Item("Main View").Activate
Next

But i want to run thru all the sheets and delete everything in the background view.
In spite of For Each DrwSheet ....next, it's not going to next sheet.

Any help will be appreciated.

Cheers.

 

[tesak]

Try this:

Sub DeleteTexts()
    Dim doc
    Set doc = CATIA.ActiveDocument
    
    Dim sheet
    Set sheet = doc.Sheets.ActiveSheet
    
    Dim views
    Set views = sheet.views
    
    Dim view, textboxes, i

    For Each view In views
        Set textboxes = view.Texts
        
        For i = textboxes.Count To 1 Step -1
            textboxes.Remove i
        Next
    Next
End Sub

Tesak

http://scripts4all.eu/txtoncurve/

- Curved text for Catia V5

 

[JeniaL]

Thanks a lot. This is exactly what i need.

 

[JeniaL]

Set mySelection = DrwDocument.Selection
mySelection.Search "Drafting.View.Name='Background View' "

mySelection.Search "Type=*,scr"
mySelection.Delete

This is works pretty well but requires drawing sheet to be fitted on screen in order to to delete all entities. I tried to add command to fit drawing on screen and here is the issue comes. When fit all command is executed macro keeps to run and doesn't wait for Catia to finish fitting all drawing sheets on screen. Sleep command doesn't helps me. My goal is to delete everything from background except background view.

 

[ferdo]

You can modify my code by doing first a loop to fit all in all sheets then a second loop to do the rest of the job. Or you can identify first what kind of elements you want to delete and then modify Tesak's code according to your needs...

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[JeniaL]

Well this works not as i expected. I juts used twice For...Next. To fit all sheets in takes some time in Catia but code keeps to run to next loop that is deletion.

 

[ferdo]

How about this?

Sub CATMain()

Set DrwDocument = CATIA.ActiveDocument
Set DrwSheets = DrwDocument.Sheets

For j = 1 to DrwSheets.count
    Set DrwSheet = DrwSheets.Item(j)
    DrwSheet.Activate
    CATIA.StartCommand "Fit All In"
Next

''''''''''''''''''''''''''''''''''''''''''''''
MsgBox "STOP - Give me a break :-)"

For i = 1 to DrwSheets.count
    Set DrwSheet = DrwSheets.Item(i)
        DrwSheet.Activate
        CATIA.StartCommand "Fit All In"
    Set DrwView = DrwSheet.Views.Item("Background View")
        DrwView.Activate
        Dim mySelection As Selection
    Set mySelection = DrwDocument.Selection
        mySelection.Search "Drafting.View.Name='Background View' "
        mySelection.Search "Type=*,scr"
        mySelection.Delete
        DrwSheet.Views.Item(1).Activate
Next
''''''''''''''''''''''''''''''''''''''''''''''
MsgBox "Let's fit all in again"

For z= 1 to DrwSheets.count
    Set DrwSheet = DrwSheets.Item(z)
    DrwSheet.Activate
    CATIA.StartCommand "Fit All In"
Next

End Sub

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[JeniaL]

i tried to use sleep instead of message. for the second example i get macro works much faster that catia and i don't actually get all drawing sheets fitted in. definitely that is because i remotely connected to my work PC. i'll give it a try tomorrow when i get to work.

Thanks Ferdo for your help.

Cheers.

 

[itsmyjob]

if you google shellandwait you can have catia to start another process and wait for the return of the process before continuing... I m using this in some script where I unzip a file in a folder... had to make sure all unzipped before starting to do anything.

Eric N.
indocti discant et ament meminisse periti ​

 

[JeniaL]

Thanks itsmyjob for shellandwait. I'll google for that. Don't want to start a new thread so I'm asking this question here.
I want to put a logo on my title block but i don't want to load a picture from local or network drive. Is there a way to store a picture inside VB6 project and then grab and insert it into Catia drawing?