---

ganzvieleKreise.zip

Hallo,

Weiß garnicht, ob ich hier richtig bin oder ob das schon abgehandelt wurde in einem anderen Forum. Ich konnte bis jetzt leider nichts finden. 

In meiner Zeichnung (siehe Anhang) sind Sprinklerköpfe mit mehreren einzelnen Kreisen und Linien gezeichnet. Ich möchte aus diesen einzelnen Gebilden Blöcke erstellen. Möchte dabei aber nicht jeden Sprinklerkopf einzeln setzen.

Ich danke im Voraus
Ramona

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

---

Hallo Ramona, willkommen im Forum.

Ja, das geht. Es ist etwas Fummelarbeit dabei. Anbei die Schritte. Es geht auch kürzer, aber ich kenne deinen ACAD-Wissensstand nicht.

1
gewünschten Block erstellen.

2
Mit _OVERKILL doppelte Linien loschen. -> Du hast 580 Sprinkler.

3
Alles löschen bis auf einen Kreis pro Sprinkler. Befehl: SAUSWAHL

4
LISP von Lee Mac (cir2ins.lsp) laden.

5
LISP ausführen -> gewünschten Block wählen -> Kreise wählen -> fertig.

Lothar

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

---

Ja die Frage gab es schon.
http://forum.cad.de/foren/ubb/Forum54/HTML/029512.shtml#000000

Hier ein Makro (von CADmium, nur geringfügig angepasst), das alle Außen-Kreise mit Block "Sprinkler" übermalt.
Objektfang aus, dann einen Block SPRINKLER definieren, dann dieses Lisp-Codeschnipsel in die Befehlszeile einfügen. Danach sollten 580 Sprinkler Blöcke in der Zeichnung eingefügt worden sein.

Code:

---

(if (Not (tblobjname "BLOCK" "SPRINKLER")) (alert "zuerst einen Block namens SPRINKLER definieren"))
(if(and(setq A(ssget "_x" (list'(0 . "CIRCLE")(cons -4  ">") (cons 40 0.088) (cons 410 (getvar"CTAB")))))
      (tblobjname "BLOCK" "SPRINKLER")
  )   
  (mapcar
    '(lambda(X)(command "_-insert" "SPRINKLER" (cdr(assoc 10 (entget (cadr X)))) 1.0 1.0 0))
    (ssnamex A)
  )
)

---

[EDIT] ab AutoCAD 2015 command besser durch command-s ersetzen.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 05. Jan. 2015 editiert.]

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