---

Hallo!

Ich habe einen Ordner, in dem etwa 100 Blöcke als *.dwg-Dateien liegen und würde diese gerne in eine Zeichnung einfügen.
Über "Block Einfügen" kann ich die Blöcke immer nur einzeln einfügen, was sich bei der Anzahl als recht mühsam gestaltet.
Hat jemand dafür eine Scriptlösung für so etwas? Idealerweise sollten die Blöcke nicht alle auf dem selben Punkt eingefügt werden sondern immer versetzt - ist aber kein muss.

Danke im Voraus für hilfreiche Beiträge!

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

---

Hallo,

füge Deine Blöcke über das Design-Center (STRG+2) ein, dort kannst Du als Quelle zwischen geöffneten Plänen und Ordnern auswählen. Unterschiedliche Einfügepunkte sind  zum Voreinstellen jedoch nicht möglich, war ja aber auch kein muss Deinerseits.

Gruß
Robert

EDIT: Sorry, leider ist es auch im Desing Center nicht möglich mehrere Blöcke auf einmal auszuwählen.
Mein Fehler.

[Diese Nachricht wurde von Fiedelzastrow am 16. Mrz. 2018 editiert.]

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

---

Hallo

Das Lisp hier habe ich mal kurz aus dem Ärmel geschüttelt.
Es setzt voraus, dass alle Blöcke als DWG in einem Unterordner der Zeichnung sind, in welche Du sie einfügen willst.

Es werden dann aber ALLE Blöcke eingefügt. Erstelle also einen Ordner, welche nur Zeichnungen enthält, welche Du auch wirklich brauchst.

Die 5 (!) kannst Du an Deinen gewünschten Abstand anpassen, mit welchem weitere Blöcke vom letzten eingefügt werden, so dass nicht alles auf dem Nullpunkt zu stehen kommt.

Code:

---

(vl-load-com)

(defun BrowseForFolder (text Rootfolder / ret y)
  (setq y (vlax-get-or-create-object "shell.application"))
  (if
    (setq ret (vlax-invoke y "BrowseForFolder" 0 text 1 Rootfolder))
    (setq ret (vlax-get (vlax-get ret "Self") "Path"))
    )
  (vlax-release-object y)
  ret
  )

(defun c:Allins (/ +X Blockordner Dateiliste) 
  (setq +X 0)
  (setq Blockordner (BrowseForFolder "Unterordner mit Blöcken wählen" (getvar "dwgprefix")))
  (setq Dateiliste (vl-directory-files Blockordner "*.dwg" 1))

  (repeat (length Dateiliste)
    (command "_-insert"
     (strcat Blockordner "\\" (car Dateiliste))
     (strcat (itoa +X) ",0") "1" "1" "0")
    (setq Dateiliste (cdr Dateiliste))
    (setq +X (+ +X 5)) ;_<-- hier den gewünschten Abstand zum nächsten Block eingeben (jetzt 5 Einheiten)
    )
  )

---

Den Ordnerauswahl-Dialog habe ich hier aus dem Forum. Danke an den Urheber.

Lade das Lisp, gib "allins" ein, wähle den gewünschten Unterordner aus und
Carpe Diem!

------------------
Du kannst in anderen nur entzünden,
was in Dir selber brennt!  

Wollte noch ein File anhängen, aber habe die Kiste schon heruntergefahren.

[Diese Nachricht wurde von CADuceus am 16. Mrz. 2018 editiert.]

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

---

Hallo brauma,

ein Script kann ich Dir nicht bieten, doch vielleicht wäre auch ein Workflow aus Bordmitteln was für Dich?
Wenn ich mehrere Blöcke auf einen Streich einfügen möchte, füge ich diese zuerst als Xref ein (hier ist eine Mehrfachauswahl möglich); anschließend die Xrefs über den Xref-Manager binden - thats it 

------------------
www.gestalten-mit-autocad.de   .  www.CADgestaltung.de   . 

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