---

Ein Tool, um nachträglich den Basispunkt eines Blockes zu verändern. Dazu wird eine Blockreferenz durch "Anpicken" gewählt, und anschließend der neue Basispunkt bezüglich der Blockreferenz eingegeben.
Ist die Blockreferenz transformiert (skaliert oder gedreht), wird - auf Wunsch - der Basispunktverschiebungsvektor auf den Blockursprungszustand rücktransformiert. Weiterhin werden - ebenfalls auf Wunsch - alle anderen Referenzen des Blocks in der Zeichnung upgedatet. Da die Blockneudefinition mit "_insert" "_explode" "_block" erfolgt, werden evtl. vorhandene Attribute mit berücksichtigt.

Der Code ist etwas länger geworden, aber um die Lesbarkeit beizubehalten und die anderen Möglichkeiten
aufzuzeigen, habe ich ihn nicht weiter "gestrafft".

[Edit : Anhang gelöscht, Code Siehe unten]
Gruß Thomas

------------------

[Diese Nachricht wurde von CADmium am 13. Mrz. 2004 editiert.]

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

---

Hallo Thomas,
dein Anhang wird leider nicht gefunden. Ist das nur bei mir so??

------------------
Gruß Heidi

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

---

Also bei mit klappt es mit der Lisp-Funktion:

10 Unities. Danke schön für die verbesserte Version.

------------------
      "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

Hi,

die Routine kann irgendwie keine anonymen Blöcke (z.B. "*U8") handeln!

Grüße

CAD-Tötti 

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

---

Danke für den Hinweis - das hatte ich noch nicht getestet ..
.. ich schraube weiter

------------------
- Thomas -

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

---

Hallo,

also dieses Tool ist wirklich super!
Das sind so diese kleinen netten Funktionen,
die ACAD eigentlich im Standard haben mußte!
Prinzipiell ist das ja nichts aufregendes wie man meint,
aber wenn man es hat ist es sehr hilfreich!
Wie oft sprengt man Blöcke und hat sich sowas gewünscht!

Prima!

Mfg Alpschorsch

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

---

...find ich auch super....fehlt nur die Sache mit den U-Blocks...aber Thomas hat ja schon gesagt, dass er es "weiterschraubt" 

Gruß

CAD-Tötti 

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

---

Block-MovebasePoint.VLX.txt

..so neue Version zum Austesten! Sollte ich wieder was übersehen haben -> kurze Mitteilung.

Tool funktioniert jetzt im Prinzip so :
1. Auswahl einer Blockreferenz und Wahl eines neuen Basispunktes
2. Ist die Blockreferenz gedreht oder Skaliert erfolgt (auf Wunsch) eine Umrechnung des Basispunktverschiebevektors.
3. Neudefinition des Blockes durch
     - Verschieben aller Elemente des Blockes um den umgedrehten Basispunktverschiebevektor
       (dabei wird GC 10 unter anderem auf (0.0 0.0 0.0) gesetzt)
4. Update aller Referenzen (auf Wunsch) durch entsprechende Verschiebung ihres Einfügepunktes

Zur Anwendung :
1. Speichern als *.vlx
2. ins Autocad Laden
3. Aufruf mit DT:BLOCK-MOVEBASEPOINT in der Befehlszeile
oder ^C^CDT:BLOCK-MOVEBASEPOINT auf einem Button

------------------
        - Thomas -

[Diese Nachricht wurde von CADmium am 15. Mrz. 2005 editiert.]

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

---

@cadmium,

irgendwie stimmt da etwas nicht!
Oder ich bin mal wieder zupaddelig!
Bei mir bleibt der Einfügepunkt der Alte! Der Griff auch!
Aber wenn ich den Block nocheinmal anklicke, dann hat sich das "Gummiband" schon zum neuen Einfügepunkt bewegt!

Verstehst Du das?

Mfg Alpschorsch

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

---

Sehe gerade das es in einer anderen Zeichnung geht!
Gibt es einen Tip für eine sysvar!

Gruß Alpschorsch

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

---

cadde_blkmod.zip

Hab mal rumgespielt (seit 2000).
Rückmeldung ist willkommen.
Das ist unser "ALLINONEBLOCKMODIFIKATOR" und wird laufend verbessert.

------------------
mfg schnurlos 

[Diese Nachricht wurde von schnurlos am 05. Aug. 2004 editiert.]

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

---

@schnurlos
Hab's mal getestet,
1. Fürs Hinzufügen und Entfernen von Blockelementen gibt es _refedit !
2. Dein Tool funzt nicht bei anonymen Blöcken! ( aber nicht so schlimm ! - Refedit in ACAD2000 auch nicht, anders hab ich jetzt nich getestet)
3.- vernachlässigt, das es auch Blockreferenzen mit Attributen gibt.(z.B. beim Attdef hinzufügen)
4.- wehrt bei Skalierten und gedrehten Blockreferezen dankend ab..
5. arbeitet intern viel mit "command" und setzt dabei das Undo nicht richtig

aber sonst... Nicht schlecht!Und da du ja noch verbessern willst 

------------------
  - Thomas -

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

---

zu _refedit: schon mal unter Acad12 probiert? (Daher stammt die Idee für das Tool)

zu den Attributen: dafür war das Tool nie gedacht, hat sich ja entwickelt. Zuerst Element hinzu und weg, danach kam Umbenennen, ...

------------------
mfg schnurlos  

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

---

Guten Tag CADmium,
ich möchte auch gern wissen, wie ich die Basispunkte von Blöcken ändern kann, aber leider verstehe ich die Beiträge nicht, die hier stehen. Ich fange gerade erst an etwas mehr in die Tiefe zu gehen. Könntest Du mir bitte erklären wie ich das machen muß? Und auch bitte so, daß es eine Anfängerin verstehen kann? Das wäre sehr nett, danke.

------------------
Nikie

Ich übe noch 

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

---

Hi Nikie!
Ist ein bißchen komplexes Tool als Einstieg, aber zur Reinen Anwendung hilft dir vielleicht erstmal dieser Beritrag weiter, und zum Lispverständis kann ich bloß die Seiten von Mapcar empfehlen - die waren auch mein "Einstieg"!

------------------
- Thomas -

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

---

Hallo CADmium,
das Lisp einfügen, oder wie man das wohl nennt, hab ich schon mal gemacht. Aber gibt es denn evtl. auch solch ein Lisp-Datei, die das mit dem zu ändernden Basispunkt macht, die ich auch über den Befehl appload einarbeiten kann?

------------------
Nikie

Ich übe noch 

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

---

@Nikie:
<Staun> .. na dieses Lisp findest doch im 8.Beitrag -wenn ich mich nicht verzählt habe- dieses Threads -> ... Klick mit rechter Maustaste drauf , speichern unter *.vlx ... und dann laden...

------------------
    - Thomas -

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

---

Jetzt hab ichŽs hinbekommen.
Die PM ist also hinfällig.
Danke schön 

------------------
Nikie

Ich übe noch 

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

---

DU BIST EIN GOTT!!

Vielen Dank für das Tool, hat mir eine Menge Arbeit erspart!

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Can we have different version of this application? I want to have the scale and rotation factors of the blocks to be optional..

Thanks in advance

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