Hot News:
   

Mit Unterstützung durch:

  Foren auf CAD.de
  AutoCAD VBA
  AxDbDocument, Xref manipulieren - pfad problem

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
Jetzt verfügbar: NVIDIA RTX PRO 6000 Blackwell Server Edition, eine Pressemitteilung
Autor Thema:  AxDbDocument, Xref manipulieren - pfad problem (713 mal gelesen)
tappenbeck
Mitglied
Vermessungsingenieur


Sehen Sie sich das Profil von tappenbeck an!   Senden Sie eine Private Message an tappenbeck  Schreiben Sie einen Gästebucheintrag für tappenbeck

Beiträge: 1222
Registriert: 30.05.2002

AutoCAD (Map)2024, Topobase, MapEdit, Lisp, .vb.net

erstellt am: 19. Jul. 2006 11:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Carsten1210 an!   Senden Sie eine Private Message an Carsten1210  Schreiben Sie einen Gästebucheintrag für Carsten1210

Beiträge: 1362
Registriert: 24.07.2002

erstellt am: 19. Jul. 2006 12:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für tappenbeck 10 Unities + Antwort hilfreich

Hallo Jan,

Ich denke, das du ein Xref erst lösen und dann neu einbinden (Stichwort detach und attach). Sonst kannst du den Pfad nicht ändern.

Gruß, Carsten

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

tappenbeck
Mitglied
Vermessungsingenieur


Sehen Sie sich das Profil von tappenbeck an!   Senden Sie eine Private Message an tappenbeck  Schreiben Sie einen Gästebucheintrag für tappenbeck

Beiträge: 1222
Registriert: 30.05.2002

AutoCAD (Map)2024, Topobase, MapEdit, Lisp, .vb.net

erstellt am: 19. Jul. 2006 14:57    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

hallo carsten,

ein gedanke, über den ich einmal nachdenken muss !

vorerst vielen dank.

gruß jan :-)

------------------
jan :-)

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

tappenbeck
Mitglied
Vermessungsingenieur


Sehen Sie sich das Profil von tappenbeck an!   Senden Sie eine Private Message an tappenbeck  Schreiben Sie einen Gästebucheintrag für tappenbeck

Beiträge: 1222
Registriert: 30.05.2002

erstellt am: 21. Jul. 2006 15:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

moin !

hier ein beitrag in dem ich ein beispiel bekomme habe das bei mir funktioniert:

http://discussion.autodesk.com/thread.jspa?threadID=485757

gruß jan :-)

------------------
jan :-)

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



Anzeige:Infos zum Werbeplatz >>

ISYBAU Translator 2025 CAD APP für Kostenlose Werkzeuge / Add-Ons, Infrastruktur, Datenaustausch

Das Original jetzt auch auf CADSOMA! Der ISYBAU Translator für Autodesk® Civil 3D® 2025 ist eine unverzichtbare Erweiterung für jeden, der Kanaldaten im ISYBAU (-XML) Format exportieren oder importieren muss. Es besteht ein direkter Zugriff auf die Autodesk® Civil 3D® eigenen Daten.

Carsten1210
Mitglied
staatl. geprüfter Holztechniker


Sehen Sie sich das Profil von Carsten1210 an!   Senden Sie eine Private Message an Carsten1210  Schreiben Sie einen Gästebucheintrag für Carsten1210

Beiträge: 1362
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für tappenbeck 10 Unities + Antwort hilfreich

Hallo Jan,

du hast wohl ein kleines Problem mit dem setzen der Links in den Beiträgen. Hier der Link funktioniert nun. 

Gruß, Cartsten

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen .... | Nach anderen Beiträgen suchen

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2025 CAD.de | Impressum | Datenschutz