| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
 | PNY wird von NVIDIA zum Händler des Jahres gewählt - zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: AxDbDocument, Xref manipulieren - pfad problem (705 mal gelesen)
|
tappenbeck Mitglied Vermessungsingenieur
   
 Beiträge: 1218 Registriert: 30.05.2002 AutoCAD (Map)2024, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 19. Jul. 2006 11:47 <-- editieren / zitieren --> Unities abgeben:         
moin ! hat schon mal einer von euch xref-pfade bei geschlossenen zeichnungen editiert ? und hat das mit dem zuweisen des neuen pfades geklappt ? bei nachfolgendem code bekomme ich in der gekennzeichneten zeile eine fehlermeldung, dass hier eine ungültige prozedure aufgerufen wurde. gruß Jan :-) hier mein code:
Code: Public Sub ChangeXrefpath(sFilename As String) Dim sOld_xrefpath As String Dim sRelPath As String Dim sNewAbsolute_XrefPath As String Dim sNewRelative_XrefPath As String Dim sFileByFindfile As String Dim sErrMessage As String Dim blkname As AcadBlock Dim oAxDbDoc As New AxDbDocument 'connect to DWG oAxDbDoc.Open sFilename
Dim tempCounter As Integer tempCounter = 0 For Each blkname In oAxDbDoc.Blocks If blkname.IsXRef Then 'reading old path sOld_xrefpath = blkname.Path '************** here the mistake ******************* oAxDbDoc.Blocks(blkname).Path="the new filepath" oAxDbDoc.Blocks(blkname).Reload End If '------ blkname.IsXRef Next blkname Exit_ChangeXrefpath:
On Error GoTo 0 Exit Sub Err_ChangeXrefpath: Call "there is a mistake" GoTo Exit_ChangeXrefpath End Sub
------------------ jan :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Carsten1210 Mitglied staatl. geprüfter Holztechniker
   
 Beiträge: 1360 Registriert: 24.07.2002
|
erstellt am: 19. Jul. 2006 12:10 <-- editieren / zitieren --> Unities abgeben:          Nur für tappenbeck
|
tappenbeck Mitglied Vermessungsingenieur
   
 Beiträge: 1218 Registriert: 30.05.2002 AutoCAD (Map)2024, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 19. Jul. 2006 14:57 <-- editieren / zitieren --> Unities abgeben:         
|
tappenbeck Mitglied Vermessungsingenieur
   
 Beiträge: 1218 Registriert: 30.05.2002
|
erstellt am: 21. Jul. 2006 15:51 <-- editieren / zitieren --> Unities abgeben:         
|
Carsten1210 Mitglied staatl. geprüfter Holztechniker
   
 Beiträge: 1360 Registriert: 24.07.2002 AutoCAD ACA 2024 Solidworks 2022 Sp5 Enterprise PDM 2022 Sp5 Pascam Woodworks Visual Studio 2017 Pro Windows 10 64Bit Dell Precision 3660 Intel Core i9-12900K 32 GB Arbeitsspeicher 2x Dell U2415
|
erstellt am: 21. Jul. 2006 17:07 <-- editieren / zitieren --> Unities abgeben:          Nur für tappenbeck
|