---

Refum.lsp

Hallo Forum,

für das Austauschen von Referenzen (über Name und Pfad) wurde der angehängte Code erstellt.

Bis zum Generieren der geänderten Datenliste funktioniert es (scheinbar).

Die Daten werden mit entmode leider nicht in die Datenbank geschrieben.

Ich komme jetzt nicht mehr weiter.

Habt ihr vielleicht einen Tipp für mich?

Gruß

Archi

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

---

AutoLISP bearbeitet Objekte "recht dumm", wenn man in inem Arbeitsschritt (NUR) den Namen eines Blockes ändern würde,
dann hätte dieser keine Blockreferenzen(nicht so schlimm).
Andernsseits würde zu allen Blockreferenzen des Blockes plötzlich die Blockdefinition fehlen

Block ALT
100 Blockreferenzen referenzieren den Block ALT

Name ändern von ALT in NEU

Block ALT
100 Blockreferenzen referenzieren den NICHT MEHR VORHANDENEN Block ALT
*ERROR*FEHLER*

Daher geht das nicht.
In AutoLisp wäre der Weg: Eine Kopie des Blockes mit neuem Namen erstellen, alle Blockreferenzen
auf den neuen Block umleiten (GC2 der INSERTs), alten Block löschen.

Das ist aber nicht nötig:

Nutze etwas neuere Technik des VisualLisp, so wie hier:
http://forum.cad.de/foren/ubb/Forum54/HTML/033211.shtml#000011

Acad benennt den Block und die Referenzen in einem Rutsch um (wie gewünscht),
BefehlszeilenBeispiel:

(vla-put-Name(vla-item (vla-get-Blocks(vla-get-activeDocument(vlax-get-Acad-Object))) (cdr(assoc 2 (entget(car(entsel)))))) "NeuerName")

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

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

---

Hallo Archi,
ich glaub ich weis was du vorhast.
Hab ich auch schon mal mit entmod versucht.

Das hier geht besser:

Code:

---

(vl-load-com)

(setq alt "01-") ;?01-G...
(setq neu "02-") ;?02-G...

(vlax-for blk (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
      )
  (if (not (vl-catch-all-error-p
    (setq path
    (vl-catch-all-apply
      'vla-get-path
      (list blk)
    )
    )
  )
      )
    (progn
      (setq filename (vl-string-subst neu alt (vl-filename-base path)))
      (setq path
    (strcat (vl-filename-directory path) "\\" filename ".dwg")
      )
      (vla-put-name blk filename)
      (vla-put-path blk path)
      (vla-Reload blk)
    )
  )
)

---

Probiers mal aus

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

Hallo cadffm,

die neuere Technik macht es wirklich leichter!
Da müssen alte Tools wohl doch radikal umgestaltet werden!

Vielen Dank für die Unterstützung, es läuft.

Gruß

Archi

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