---

Hallo

Habe hier eine zsb zeichnung in der ich ca. 200 pos nummern angezogen habe.

nun ist mir aufgefallen das ich bei pos. 102 ein teil vergessen habe. nun muss ich alle nummern ab 102 um eins hochsetzen was man ja mit sicherheit einfach per makro erledigen kann 

habe auch schon ein macro gefunden was scheinbar pos nummern von 1 bis 50 löscht und  dachte mir ich pass dies einfach an.

habe da  an etwas wie

replace(selection, "selection.value", "selection.value+1")

gedacht

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument

Dim n as integer
Dim SearchString as String
Dim Selection as Selection

set Selection = DrawingDocument1.Selection  'Added"1"

on error resume next

For n = 1 to 50

Selection.clear
set Selection = DrawingDocument.Selection

SearchString = "CATDrwSearch.DrwBalloon.BalloonPartName=*." & n & ",all"

selection.search SearchString
Selection.delete

next 'Removed "n"

End Sub

---

allerdings funktioniert dieses makro nicht

wenn jemand einen lösungsanssatz hat gerne melden 

danke schonmal

Dero2k

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Anbei mein Vorschlag dazu:

Code:

---

Sub CATMain()

Dim drawingDocument1 As Document
Dim n As Integer
Dim SearchString As String
Dim Selection As Object
Dim Balloon As Object

Set drawingDocument1 = CATIA.ActiveDocument
Set Selection = drawingDocument1.Selection

Selection.Clear
Selection.Search "CATDrwSearch.DrwBalloon,all"

For n = Selection.Count2 To 1 Step -1
    Set Balloon = Selection.Item2(n).Value
    If CInt(Balloon.Text) > 102 Then
        Balloon.Text = CStr(n + 1)
    End If
Next

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd

Danke für die schnelle antwort.

habe das macro gerade mal getestet und es funktioniert zumindest ansatzweise.

leider zählt es irgendwo falsch so das es mir aus der pos 114 zb. pos 39 macht.

werde gleich mal ein bischen rumporbieren um den fehler zu finden.

sollte ich es zum laufen bekommen werde ich den funktionierenden code natürlich hier posten.

€€€€€€

so problem gelößt

danke nochmal

hier der funktionierende code

Code:

---

Sub CATMain()

Dim drawingDocument1 As Document
Dim n As Integer
Dim SearchString As String
Dim Selection As Object
Dim Balloon As Object

Set drawingDocument1 = CATIA.ActiveDocument
Set Selection = drawingDocument1.Selection

Selection.Clear
Selection.Search "CATDrwSearch.DrwBalloon,all"

For n = Selection.Count2 To 1 Step -1
    Set Balloon = Selection.Item2(n).Value
    If CInt(Balloon.Text) > 103 Then
        Balloon.Text = CStr(Balloon.Text + 1)
    End If
Next

End Sub

---

[Diese Nachricht wurde von dero2k am 05. Aug. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP