Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Blöcke umbenennen, Wildcards

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

Anzeige:

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
Autor Thema:  Blöcke umbenennen, Wildcards (2166 mal gelesen)
ruffneck21
Mitglied



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

Beiträge: 30
Registriert: 19.09.2007

AutoCAD Architecture 2014

erstellt am: 11. Feb. 2014 12:00    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 Zusammen,

bezüglich der Umbenennung von Blöcken bin ich auf das Thema "Wildcards" gestossen, da ich ca. 250 Blöcke in einem Rutsch umbenennen muss.
Wie ich mehrere Blöcke mit den selben Eigenschaften "aufspüre" habe ich verstanden. (#,?,*,...)
Im Feld "Umbenennen in" stosse ich allerdings an meine Grenzen.

Folgende Namen sollen in einem Rutsch umbenannt werden:

00.00_xxx_test_xxx
00.10_xxx_test_xxx
00.20_xxx_test_xxx
...

00.00_xxx_test1_xxx
00.10_xxx_test1_xxx
00.20_xxx_test1_xxx
...

Was muss ich im Feld "Umbenennen in" eingeben?


Gruß

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

cadffm
Moderator
良い精神




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

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 11. Feb. 2014 12:29    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 ruffneck21 10 Unities + Antwort hilfreich

Wenn alle Blöcke dem NamenMuster(also auch der Länge) entsprechen:

ALT: ??????????????*
NEU: ??????????????1*

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

ruffneck21
Mitglied



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

Beiträge: 30
Registriert: 19.09.2007

AutoCAD Architecture 2014

erstellt am: 11. Feb. 2014 12:36    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

Danke für die schnelle Antwort!

Leider sind die Dateinamen immer unterschiedlich lang.
Das Wort "Test" im Beispiel steht immer an verschiedenen Positionen.

Zudem müsste das Wort "Test" auch teilweise komplett ersetzt werden.

[Diese Nachricht wurde von ruffneck21 am 11. Feb. 2014 editiert.]

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

cadffm
Moderator
良い精神




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

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 11. Feb. 2014 12:49    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 ruffneck21 10 Unities + Antwort hilfreich


Excelscript_RENAME-BLOCKs.zip

 
Super Beispiele gewählt

Mit RENAME kannst du es nur für jeweils gleiche Längen nutzen.
Bei 250 könnte man ein Umbenenn-Tool nutzen(www) oder sich ein SCRIPT machen.

Mit -BLOCK bekommst du deine Blockliste (oder mit DATENEXTRAKT)
In Excel editieren

_RENAME _BLOCK <alterBlockname> <neuerBlockname>
usw.

als Textdatei speichern
die Dateiendung *.SCR ändern
und in Acad mit SR laden.

[EDIT:Anhang der 3 Dateischritte ergänzt]
------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

rexxitall
Mitglied
Dipl. -Ing. Bau


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

Beiträge: 266
Registriert: 07.06.2013

erstellt am: 11. Feb. 2014 14:40    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 ruffneck21 10 Unities + Antwort hilfreich

Zum Umbenennen von Blöcken habe ich mir mal vor langer Zeit soetwas ausgedacht. Block anklicken editieren fertig.
Es zeigt wie man blockdefinitionen mit VBA umbenennt.
Mag hilfreich sein wenn nach der Excel Tabelle nocheinmal etwas ausgebessert werden muss.

lg
Thomas


Sub block_definition_rename()

    Dim fileName As String
    Dim oBlkRef As AcadBlockReference
    Dim oEnt As AcadEntity, oBlock As AcadBlock
    Dim varPt
    Dim insVpt, insPt(2) As Double
    Dim BNAME As String
    Dim i As Long, j As Long, idpairs As Long
    Dim expObjs As Variant

    Dim objSelSet As AcadSelectionSet
    Dim objTarget As AcadDocument
    Dim currentdrawing As AcadDocument
    Set currentdrawing = ThisDrawing
    'Dim documents As AcadDocuments
    Dim document As AcadDocument
    Dim objOrgEnts() As Object
    Dim destEnts As Variant
    Dim intCnt As Long
    Dim blo As AcadBlock
    Dim strFullDef As String
    Dim objBlock As AcadBlock
    Dim objBlock1 As AcadBlock
    Dim colBlocks As AcadBlocks
    Dim objArray(0) As Object

    Dim oldname As String

    ThisDrawing.SetVariable "DELOBJ", 1
    On Error Resume Next
    Err.Clear
    ThisDrawing.UTILITY.GetEntity oEnt, varPt, "Select block: "
    If Err.number <> 0 Then
        On Error GoTo 0
        Exit Sub
    End If

    If TypeOf oEnt Is AcadBlockReference Then
        Set oBlkRef = oEnt
        oldname = oBlkRef.EffectiveName
        BNAME = oBlkRef.EffectiveName & "_" & i
        BNAME = InputBox("New block name is: ", "BLOCKRENAM", BNAME)
        insVpt = oBlkRef.insertionPoint
        For j = 0 To UBound(insVpt)
            insPt(j) = insVpt(j)
        Next

        For Each oBlock In ThisDrawing.BLOCKS
            If oBlock.Name = BNAME Then
                MsgBox "Block " & BNAME & " does already exist"
                Exit Sub
            End If
        Next

        Set colBlocks = ThisDrawing.BLOCKS
        Set objBlock = colBlocks.ITEM(oldname)
        objBlock.Name = BNAME

    End If

Err_Control:
    If Err.number = 0 Then
        MsgBox "Done"
    Else
        MsgBox Err.Description
    End If
End Sub

------------------
Wer es nicht versucht, hat schon verlorn 
Und bei 3 Typos gibts den vierten gratis !
<<< for sale !

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 | CAD.de-Newsletter

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

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

(c)2023 CAD.de | Impressum | Datenschutz