---

Hallo,
uns ist bei einer Routine ein Fehler unterlaufen. Dadurch haben etliche Schrauben eine falsche Gewindebeschreibung. Diese würde ich jetzt gerne mit einem Makro löschen. Mit SWX2005 habe ich folgenden String aufgezeichnet:

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6("W:\Data\30000000\30000001\30000002\30000010\30000011\30000051\601205.sldprt", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc2("601205", False, longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID2("Gewindedarstellung1", "CTHREAD", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Gewindedarstellung1", "CTHREAD", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0, 0, 0, True, 0, Nothing, 0)

'Ab hier läuft ISOSave!

Part.ShowNamedView2 "*Dimetric", 9
Part.ViewZoomtofit2
Part.Save2 False
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "601205"
End Sub

Problem:
Wenn ich bei Gewindebeschreibung nochmals was eintrage, wird das Feld nicht geleert  
Was ist falsch??

------------------
Grüße von der Saar
Uwe Blum

www.hydac.com/

[Diese Nachricht wurde von ublum am 15. Nov. 2005 editiert.]

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

---

Hallo Uwe,

sieht aus wie ein aufgezeichnetes Makro mit ein bisschen IsoSave dran?

Im oberen Makroteil wird zwar eine Gewindedarstellung namens "Gewindedarstellung1" selektiert, aber nix damit gemacht, also auch der Text nicht gelöscht.

Du musst mit dem selektierten Objekt (ist ja ein Cthread, also Gewindedarstellung) mit CThread::GetAnnotation den passenden "Text" dazu greifen und den mit Note::SetText auf einen leeren String setzen.

Das Hauptproblem (wie meist bei SolidWorks) ist das sichere Selektieren der Gewindedarstellung, in deinem Beispiel muss das Gewindedarstellung1 heißen.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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