---

Hallo,

ich habe Zeichnungen mit vielen Blöcken.
ein Großteil der Blöcke sind gleich (Geometrie, Farbe, Linien usw.)

Da die Zeichnungen jedoch aus einer anderen Anwendung exportiert wurden, haben die Blöcke alle unterschiedliche Blocknamen.

a)
Wie kann ich allen geometrisch gleichen Blöcken den gleichen (neuen) Blocknamen zuweisen?

b)
Wenn möglich ohne diese vorher alle einzelnd auswählen zu müssen ;-)

------------------
Stephan
------------------

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

---

Das mit dem Namen wäre das kleinste Problem, das mit dem "gleiche Suchen"
aber schon ! Denn die Blöcken sind zu 99% nur für deine Augen gleich, in der
Datenstruktur werden sie sich aber unterscheiden.
(Block"A" wurde zuerst der Kreis und dann die Linie dem Block hinzugefügt und
bei dem gleich aussehen Block"B" genau umgekehrt etc.)

Dafür brauch man ein recht aufwändiges Programm und ich kenne keine billiges
oder gar kostenloses Tool was hier im Umlauf ist was diese Aufgabe bewältigen könnte.

Kann man die "gleichen Blöcke" nicht anhand von Layern oder evtl. an einem bestimmten
Attributwert erkennen/filtern ?

Wie gesagt: Die Blockreferenzen einem anderen Block zuzuordnen wäre kein Problem.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Dafür wirst du wohl ne Extra Programmierung brauchen, die IMHO auch nicht sooo einfach zu realisieren ist, da der Vergleich, ob es sich um geometrisch gleiche Blöcke handelt aufwendig gestalten wird, es sei denn , es sind immer nur Primi-Blöcke mit nur wenigen Objekten.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Die Blöcke sind definitiv gleich.
Es war in der ehemaligen Anwendung ja nur ein Block!
Leider exportierte das Prog dann jedes Vorkommen in einen eigenen Block mit eigenem Namen.
Und die Software gibt's nicht mehr 
Man könnte also einen Block als 'Referenzobjekt' nehmen, falls es dann eine Möglichkeit gibt?

Wenn ich die Blöcke auswähle und dann allen Blöcken den gleichen Namen gebe würde mir das ja schon etwas weiter helfen. Wie stelle ich das denn am besten an?

------------------
Stephan
------------------

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

---

Zitat:

---

Original erstellt von Plotter:

Wenn ich die Blöcke auswähle und dann allen Blöcken den gleichen Namen gebe würde mir das ja schon etwas weiter helfen. Wie stelle ich das denn am besten an?

---

Auch mit nem Tool, welches sich dann aber ganz entschieden einfacher gestaltet.
1. Auswahlsatz der Inserts erstellen
2. Blocknamen des ersten Inserts in der Auswahl holen
3. mittels entmod und sbst allen anderen Inserts im Auswahlsatz den gemerkten Blocknamen  verpassen ..

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Haben die Blöcke auch einen Bezugspunkt, der bezogen auf Ihre Grafik immer gleich ist?
Ich kenne das Problem mit Datenimport aus speedikon, wo jede Blockreferenz mit einem Bezugspunkt 0,0 belegt war. Wenn man jetzt alle optisch gleichen Referenzen zu einer gemacht hätte, wären sie auch alle übereinander gelegen.

[Diese Nachricht wurde von helmut51 am 09. Apr. 2009 editiert.]

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

---

Zitat:

---

Original erstellt von helmut51:
Haben die Blöcke auch einen Bezugspunkt, der bezogen auf Ihre Grafik immer gleich ist?
[Diese Nachricht wurde von helmut51 am 09. Apr. 2009 editiert.]

---

Die Blöcke haben alle den gleichen Einfügepunkt, liegen aber natürlich an verschiedenen Positionen in der Zeichnung. Dieser Einfügepunkt muss natürlich bleiben.

------------------
Stephan
------------------

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

---

Zitat:

---

Original erstellt von CADmium:
1. Auswahlsatz der Inserts erstellen
2. Blocknamen des ersten Inserts in der Auswahl holen
3. mittels entmod und sbst allen anderen Inserts im Auswahlsatz den gemerkten Blocknamen  verpassen ..

---

Inserts, entmod, sbst
Das ist mir zu hoch, da kann ich nicht ganz folgen 

------------------
Stephan
------------------

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

---

Zitat:

---

Original erstellt von Plotter:
Inserts, entmod, sbst

---

Ich glaube, da hat Dir CADmium ungewollt eine Rätselaufgabe gestellt. Wenn mich meine bescheidenen LISP-Kenntnisse nicht täuschen, soll es 'subst' statt 'sbst' heißen

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

---

In LISP bin ich eh' nicht besonders fit 

Vielleicht kann mir ja einer nach Ostern noch mal ein wenig helfen 

------------------
Stephan
------------------

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

---

dir hat schon "lang" vor deinem letzten Posting jemand VOR OSTERN geholfen,
du mußt nur mal deine PM´s einsehen 

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Hallo cadffm,

meine Benachrichtigung für PM's war wohl standardmäßig aus.
Habe ich natürlich sofort geändert  

Also schon mal danke für Deine Vorosterlichen Bemühungen!

Kann man das auch hinbekommen, dass man einen neuen Blocknamen nutzen kann?
Im Moment muss man ja einen schon in der Zeichnung vorhandenen Block(namen) eingeben.

Dann wär's nämlich wirklich schon 'ne große Hilfe.

1)
Der neue Blockname muss jetzt schon vorhanden sein.
Ist's machbar, dass man einen neuen Blocknamen eingebne könnte?

2)
Die vorhandenen Blöcke, die alle gleich sind, sind zum Teil gedreht.
Aber leider, da ja jeder Block einen eigenen Namen hat, ist nicht der Block gedreht, sondern jeder Drehwinkel liegt auf Null.
Die neuIch vermute mal, dass man

------------------
- Plotter -
------------------

[Diese Nachricht wurde von Plotter am 14. Apr. 2009 editiert.]

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

---

1. Kannst du einen Block ja problemlos umbenennen und hast dann einen
  "neuen" Blocknamen --> So ist das in der Nicht-Luxusvariante eben 

2. Tja, soviel zum Thema "die Blöcke sind gleich"   
  Was das angeht mußt DU eben die passenden Blockreferenzen
  per Hand auswählen, wenn es dabei auch um minimal-"gedrehte"
  Blöcke geht dann hast du eben Pech.

3. Wenn du die Dateien als ordentlichen Auftrag an einen Dienstleister
  abgibst so hat dieser kein Problem damit das Problem zu lösen wenn
  er einen "Konturenfinder" im Einsatz hat. Ich selbst kenne 1-2 persönlich
  die sowas haben, Sowie jede Firma die Elcocad mit dem Zusatz "Elcocad CA"
  im Einsatz haben ! <dieses Modul gibt es aber imho leider nicht Standalone>

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Mir fällt gerade noch etwas ein:
Gibt es denn evtl. pro Block (also in den Referenzen die eigentlich
zu einer einzigen Blockdefinition gehören sollten einen eindeutigen
TEXT oder Attributwert ? Dann würde es hier auf CAD.de noch ein Tool geben
was dir evtl. weiterhelfen kann.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

 

Zitat:

---

Original erstellt von cadffm:
Gibt es denn evtl. pro Block (also in den Referenzen die eigentlich
zu einer einzigen Blockdefinition gehören sollten einen [b]eindeutigen
TEXT oder Attributwert?[/B]

---

Leider nein.

Wir haben auch Elcocad im Einsatz.
"CA" sagt mir aber nichts?
Da werd' ich mal beim Hersteller schlau machen.

Danke für den Tipp!

------------------
- Plotter -
------------------

[Diese Nachricht wurde von Plotter am 14. Apr. 2009 editiert.]

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

---

müßte so grob 1500,- kosten glaube ich, frag mal nach !
(das ist aber wirklich TOP - wenn du ElcoCAD hast solltest du
das "CA" aber auch kennen denn im Elco sollte imho eine
lauffähige "Demoversion" enthalten sein   )

PS: Dann schreib doch das ElcoCAD evtl. mit in deine Systemangaben !?

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Hallo cadffm,

es wäre toll, wen diese Lösung kein Geheimnis bleibt. Dann könten Andere mit dem selben Problem (mehreren verschieden benannten Blöcken den gleichen Namen (und gleiches aussehen geben) das vielleicht auch gleich nutzen. Kannst Du das LISP hier einstellen?

THX,
Lola

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

---

Zitat:

---

Original erstellt von artes-indigo:
Hallo cadffm,

es wäre toll, wen diese Lösung kein Geheimnis bleibt. Dann könten Andere mit dem selben Problem (mehreren verschieden benannten Blöcken den gleichen Namen (und gleiches aussehen geben) das vielleicht auch gleich nutzen. Kannst Du das LISP hier einstellen?

THX,
Lola

---

Bin zwar nicht Cadffm .., aber mich würde mal interessieren, was so ein Programm für dich an Mehrwert bringen würde, und wieviel du dafür investieren würdest ?

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Lola,

ist zwar schon etwas älter, aber vieleicht hilft Dir dieses hier schon weiter.

Gruß
Thomas

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

---

Zitat:

---

Original erstellt von spider_dd:
Hallo Lola,

ist zwar schon etwas älter, aber vieleicht hilft Dir dieses hier schon weiter.

Gruß
Thomas

---

Da ist aber nix mit Automatik ( wie eigentlich der Anfang des Threads fordert ) ... erkennen was gleich ist und entsprechend klicken muss immer noch der Anwender .. aber ok .... vielleicht reichts ja ...

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo CADmium,

ich weiß nicht genau, was Du mir damit sagen willst, aber da ich davon ausgegangen bin, das cadffm den Fragesteller hier nicht persönlich kennt und ihm privat einen Gefallen tun will, war seine Hilfe ja freiwillig und unentgeltlich. Ich bin nicht davon ausgegangen, das dies in einem Forum auf Einzeluser beschränkt ist, sondern das er grundsätzlich bereit ist, seine Fähigkeiten und sein Wissen kostenlos anderen zur Verfügung zu stellen. Wie ich es übrigens auch tue, wen mich jemand um Hilfe fragt und ich dazu etwas weiß. Ist das nicht der Sinn eines Forums?

Aber um Deine Frage zu beantworten, ich investiere sicher bereits mehr Zeit in die Nachforschung nach einer Lösung und dem schreiben hier, als die Arbeit selbst dauert. Ich muß ca. 3 Blocktypen in ca. 16 Dateien auf einen Namen bringen. Das mach' ich bisher über "in leere Zeichnung kopieren - umbenennen - und zurück". Dieser geringe Aufwand rechtfertigt keinen finanziellen Einsatz meinerseits, ich bin einfach ein neugieriger Mensch, daher investiere ich lediglich Zeit. Ich würde auch gerne mehr über LISP lernen, nur fehlt mir immer wieder neben der Arbeit die Zeit für Fortbildung. Vielleicht kannst Du mir ja eine gute Schulung/Seminar o.ä. empfehlen. Dafür würde ich selbstverständlich Zeit investieren.

Vielleicht ist noch jemand hier, der mir diese eigentlich scheinbar simple LISP-Aufgabe mit "Inserts, entmod, subst" erläutert. Habe gestern gleich mal mein LISP-Buch rausgeholt, komme aber nicht weiter. Ich habe zwar verstanden, das man mit SUBST Eigenschaften von Etity-Listen ändern kann, aber wie ich eine Auswahl Blöcke als Liste definieren soll habe ich nicht verstanden. Mir fehlt einfach die Grundlage... 

LG
Lola

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

---

Uhhhh .. da haste mich ja mit der Moralkeule erwischt ... aber wir sind nunmal (leider) keine altruistische Gesellschaft und deshalb sehe ich es nicht ein, worum ich z.B. 40 Stunden Programmierarbeit mal einfach so hier im Forum raushauen sollten ... und wenn man das Thema ordentlich abarbeitet ist man da sicher locker ...
und dann geht's für den Anwender vielleicht bloß um die Einsparung von 10 Klicks oder so ...

Aber ich will mal nicht so sein .. abei ein Tool, das Blöcke "gleich setzt" .. - sowas ist mal schnell runtergetippt, das mach ich gerne ....die Auswahl der gleichen obliegt aber dem Anwender!!

(defun C:EQUALBLOCKS(/ ESC NOMUTT AWS NAME OBJLIST)
  (vl-load-com)
  (if(and(not ESC)
         (setq NOMUTT(getvar "NOMUTT"))
         (setvar "NOMUTT" 1)
         (princ "\nUmzuwandelne Blockreferenzen wählen: ")
         (or(vl-catch-all-error-p
               (setq AWS(vl-catch-all-apply 'ssget (list '((0 . "INSERT")))))
            )              
            'T
         )
         (setvar "NOMUTT" NOMUTT)
         (or(=(type AWS)'PICKSET)
            (and(setq ESC 'T)(prompt "\nAbbruch durch Anwender..."))
         )
         (setq OBJLIST(mapcar
                        '(lambda(X / Y)
                           (if(and(=(type(cadr X))'ENAME)
                                  (vlax-ename->vla-object (cadr X))
                              )   
                             (cadr X)
                           )
                         )
                        (ssnamex AWS)
                      )
         )
         (setq NAME (cdr(assoc 2 (entget(car OBJLIST)))))
     )
    (progn
      (mapcar '(lambda(X / )(setq D(entget X))(entmod(subst(cons 2 NAME)(assoc 2 D)D)))OBJLIST)
      (princ)
    ) 
  )
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hi CADmium

jetzt hat Dein Helfersyndrom doch wieder zugeschlagen...    DANKE!

Klappt wunderbar! Hast Du das grad schnell runtergeschrieben?

Ich würde das wirklich gerne lernen und wollte vorhin, als es um's investieren ging eigentlich "Geld" schreiben, nicht "Zeit", das ich für eine Schulung investieren würde. Hast Du da vielleicht eine Empfehlung, komme aus der Gegend südlich von München...

Viele Grüße,
Lola

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

---

Ja , das hab ich mal schnell runtergeschrieben .. Fingerübung sozusagen .. das "Tool" entspricht aber nicht den Anforderungen, von denen es weiter vorne im Thread ging, nämlich der automatischen Analyse, wann 2 Blöcke als "geometrisch" gleich zu bezeichnen sind ... und das ist alles andere als trivial .. Siehe folgendes Bsp: 2x die gleichen Objekte zu einem Block gemacht, aber mit unterschiedlichem Blockbasispunkt .... oder einmal die Objekte vorher zusammen gedreht .... optisch gleich, für den Rechner was komplett anderes ...

Zum Thema "Lisp-Schulung" ..die Forumsnutzer Brischke und archtools bieten sowas IMHO an  ...

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Dann nochmal extra danke für Deine Fingerübung!

Mir ist klar, das die Ursprungsfrage anders gemeint war, die Ratschläge dahingehend mit den entsprechenden Profi-Programmen hab' ich ja gelesen. Die Beschreibung von cadffm hat aber denk' ich genau zu meinem Problem gepasst, das ja viel einfacher geartet war und dank Dir jetzt nicht mehr existiert 

Ich mach' mich mal auf die Suche nach den Beiden...  

Lola

[Diese Nachricht wurde von artes-indigo am 02. Okt. 2014 editiert.]

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

---

Was hattest du denn gemeint von dem vor 5Jahren geschriebenem?
Falls PM, da müßte ich raten(vermutl.identisch mit CADmiums Prog)
Falls ???, beschreibe noch mal genauer was du meinst. Imho gabe ich doch nur noch ElcoCAD CA erwähnt?
Brischke hatte für sowas aber auch mal ne Funktion am Start, bin nur nicht sicher ob die käuflich war...

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

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

---

Hey :-)

Ja, meinte die PM, da ich mit den drei Stichwörtern von CADmium auch nicht anfangen konnte. Aber jetzt hat er mir ja bereits gaaaanz toll geholfen 

Ihr seid alle top!

THX
Lola

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

---

Zitat:

---

Original erstellt von cadffm:
... Brischke hatte für sowas aber auch mal ne Funktion am Start, bin nur nicht sicher ob die käuflich war...

---

Nein, nicht käuflich. Weil das Zusammensuchen der Elementhaufen nicht so einwandfrei funktioniert, als dass man das allen zugänglich machen könnte. Im internen gebrauch kann man ja bekanntlich mit den Unzulänglichkeiten leben.
Wenn sich hier aber genügend Interessenten finden, die das Thema als Crowdfounding-Projekt unterstützen (die Entwicklung finanzieren) möchten, kann ich das sicher weiter entwickeln.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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