' ****************************************************************************** ' swxJRNL.swj - journal recorded on 02/27/07 by Laurent ' ***************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = Application.SldWorks Set Part = swApp.OpenDoc6 ("D:\2006-2007\ROC1\Apprentissage SW\Echangeur\Rechauffeur pour tank à suif 2.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("Rechauffeur pour tank à suif 2 - Feuille1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD10@Vue de mise en plan20", "DIMENSION", 0.5481039537068, 0.7340935980854, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Vue de mise en plan19", "DRAWINGVIEW", 0.5719195918975, 0.7196866070812, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.6871755199315, 0.692048705971, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 1.000210222256, 0.354106416878, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.9881522608125, 0.4159034692748, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 0.9760942993692, 0.3940484141589, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 0.9768479219594, 0.4023382626511, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 0.9768479219594, 0.4023382626511, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 0.9776015445496, 0.4023382626511, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 0.9497175087121, 0.3767150945842, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 0.9512247538925, 0.3978165271099, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 0.9474566409414, 0.4008310174707, 0, False, 0, Nothing) ' MSGBOX ' Veuillez entrer un nombre supérieur ou égal à 18.97295047 et inférieur ou égal à 1000000 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditUndo 1 Part.EditUndo 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 1.054867178136, 0.456864984213, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 1.011726677173, 0.3225600357058, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 1.072766796791, 0.3263534894674, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 1.136910651305, 0.3215254574072, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 1.137255510738, 0.3260086300345, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 0.9900005329026, 0.3391132884835, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 0.9900005329026, 0.3401478667822, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 1.065179889268, 0.3398030073493, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 1.061041576074, 0.3449758988423, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 1.120357398527, 0.343251601678, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 0.9365473208078, 0.3453207582752, 0, False, 0, Nothing) ' MSGBOX ' Cette valeur de cellule est paramétriquement liée à un document de pièce ou d'assemblage. ' Remplacer cette valeur manuellement rompra ce lien. ' (Pour restaurer le lien dans le futur, supprimez le texte défini par l'utilisateur dans la cellule.) ' Continuer l'édition de la cellule? boolstatus = Part.Extension.SelectByID("Objet de détail81@Feuille1", "ANNOTATIONTABLES", 0.9924145489327, 0.3218703168401, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.9789650310508, 0.4115337693862, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 1.101897140215, 0.01509043820951, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 1.109296949718, 0.01601541439747, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 1.101565968099, 0.003373014313726, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Ligne de cassure3", "BREAKLINE", 0.8020428602599, 0.620686783457, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ligne de cassure6", "BREAKLINE", 0.6499903711801, 0.7509450824353, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Ligne de cassure6", "BREAKLINE", 0.6494835295499, 0.7509450824353, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.6722914029118, 0.6252483581294, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Ligne de cassure6", "BREAKLINE", 0.6520177377012, 0.6992472361482, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Vue de mise en plan13", "DRAWINGVIEW", 0.586011549455, 0.9547996244413, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameState = 1 ' MSGBOX ' Enregistrer les modifications apportées à Rechauffeur pour tank à suif 2 - Feuille1? swApp.ExitApp End Sub