---

Hallo!

Folgendes Problem: Ich möchte mehrere Kreise mit darin enthaltenen Linien und Text insgesamt vergrößern. Wenn ich aber die Kreise markiere, als Block einfüge und dann den Faktor vergrößere, vergrößert er mir auch den Abstand der Objekte zueinander. Gibt es eine Möglichkeit mehrere Objekte als Block zusammenzufassen, aber bei der Skalierung den Abstand der Einzelobjekte zueinander gleich zu lassen, also dass nur die Größe des Objekts, nicht aber dessen Relation geändert wird?

Danke für Hilfe

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

---

Falls alle Kreise gleich gross sind, kann man sie mittels den Eigenschaften gemeinsam in der Grösse ändern.

Ansonsten jeden einzeln, oder einer mir nicht bekannten Weise.

Vielleicht gibt es ein Lisp-Programm?

mfg skyzem

------------------
Ich bin Atheist - Gott sei Dank!

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

---

Hallo Oerter,
erst einmal Wilkommen im Forum!
Nun aber zur Frage...
die ich nicht so ganz verstehe, aber evtl. hilft Dir da ein DYNAMISCHER Block, der nur den Kreis skaliert.

Grüsse, Henning

(PS: Sysinfo ausfüllen! Welche AutoCAD Version?)
------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 09. Apr. 2008 editiert.]

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

---

ACADSkalieren_2.wmv.txt

Moin Moin,

hier ein kleines Video mit dem Problem, dass mich auch schon Nerven gekostet hat...

 

Zitat:

---

die ich nicht so ganz verstehe

---

und der Lösung für zumindest gleich große Kreise!

 

Zitat:

---

Falls alle Kreise gleich gross sind

---

Vom Anhang einfach .txt löschen.

Ansonsten ist mir auch keine andere Vorgehensweise bekannt als die schon angesprochenen.

MfG MacFly

------------------
- - - der Erleuchtung ist es egal wie du Sie erlangst - - -

-edit- Anhang vergessen anzuhängen 

[Diese Nachricht wurde von MacFly8 am 09. Apr. 2008 editiert.]

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

---

Hallo Oerter!

Mich würde interessieren, was Du erreichen willst. Details größer darstellen oder in verschiedenen Maßstäben unterschiedlich? Komme 'drauf, weil Du Kreise mit darin enthaltenem Text und Linien vergrößern willst. Dann könnte man vielleicht eine andere Vorgehensweise überlegen.

Ansonsten wäre mein Vorschlag (ungetestet):
- aus den einzelnen Kreisen samt Inhalt jeweils einen Block machen mit Einfügepunkt im Kreiszentrum
- diese Blöcke wieder in einen Gesamtblock packen
- den Gesamtblock wie gewünscht skalieren, z.B. Faktor 2
- in der Gesamtblockdefinition mit dem Blockeditor den Skalierfaktor der Einzelblöcke anpassen (z.B. Faktor 0,5), damit die Größe wieder stimmt...

Gruß Dietrich

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

---

Hallo zusammen!

Danke für Eure Antworten, aber so richtig weiter bringt mich das nicht. Also, zur nähreren Erläuterung: Bei den Kreisen mit den Linien und dem Text handelt es sich um Informationen für einen Kanallageplan. Jedem Kanal ist so ein Kreis zugeordnet und gibt die an den Kanal angeschlossene Geländeoberfläche und den Versiegelungsgrad an. Bei hunderten von Kanälen könnt Ihr Euch die Anzahl dieser Kreise wohl vorstellen. Jetzt sind die Kreise für die Darstellung im M 1:500 zu klein und müssen größer skaliert werden. Da sich die kreise aber in einer eingezeichneten Fläche (Polylinie) befinden (die an den Kanal angeschlossene Geländeoberfläche) kann ich das Problem nicht über den Gesamtblock lösen, da sich die Position der Einzelkreise verschieben würde. Ich kann auch nicht nur den Kreis und den Text größer skalieren, da die in den Kreisen enthaltenen Linien (der Kreis ist wegen der verschiedenen Informationen (angeschlossene Geländeoberfläche und Versiegelungsgrad) wie ein Kuchen in 3 Teile aufgeteilt (unten link und rechts je ein Viertel und oben links und rechts zusammen die Hälfte). Wenn ich jetzt den Kreis größer skaliere, reichen die Linien nicht mehr bis an den Kreisrand. Ich muss also Kreis+Linie+Text schon als Block definieren um eine Gesamtvergrößerung hinzubekommen. Ich kann aber aufgrund der Anzahl dieser Kreise nicht jeden einzelnen anpacken und als Block definieren. Daher suche ich nach einer Lösung die schneller geht und zum gleichen Ergebnis führt.

MfG

Oerter

                   

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

---

Ich würde mir da ein Prog für schreiben:
-suche alle Kreise mit dem Durchmesser X in der Zeichnung
-skaliere die Kreise und alle Linien und Texte in ihnen um den Kreismittelpunkt mit dem Faktor Y

------------------
  - 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 Oerter!

Hilft Dir das weiter?

Code:

---

;******************************************************************************
;VARIA von Objekten die einen definierten Einfügepunkt haben.
;(Texte, Blöcke, Kreise ect.)
;******************************************************************************
(defun c:VARIA-E (/ faktor aus n i nam ins)
(terpri)(terpri)
(setvar "cmdecho" 0)
(princ "\nDer VARIA-BASIS-PUNKT ... ist der jeweilige Objekt-Einfügepunkt.")
(setq faktor (getreal "\nVergrößerungsfaktor für die Objekte: "))
;-----Auswaehlen---------------------------------------------------------------
(setq aus (ssget) as aus) ;aus=Auswahl der Elemente
(setq n (sslength aus)) ;n=Anzahl der Elemente (max)
(command "_ucs" "_w")
(setq i 0) ;Zaehler auf 0
;-----Bearbeiten---------------------------------------------------------------
(setvar "cmdecho" 0)
(while (< i n) ;solange wie Zaehler < max
(setq nam (ssname aus i)) ;jedem i aus Auswahl einen Namen
(setq ins (cdr (assoc 10 (entget nam))))
(command "_scale" nam "" ins faktor) ;nam=nur ein Element
(setq i(1+ i)) ;Zaehler eins weiter
) ;while
(command "_ucs" "_p")
(princ)
) ;defun

---

Habe ich mal von einem der CAD Gurus hier im Forum bekommen...

------------------
Viele Grüße Lutz

Glück Auf!

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

---

Hallo Oerter,
hab' mal mein Lisp zum Skalieren von Achsbezeichnungen etwas modifiziert. Sollte in etwa machen, was Du brauchst...

Code:

---

(defun c:pos-varia ( / z f ss p1 p2 p)
(vl-load-com)
(setq z -1)
(setq f (getreal "Faktor"))
(setq ss (ssget '((0 . "CIRCLE"))))
(while (setq e (ssname ss (setq z (1+ z))))
(vla-getboundingbox (vlax-ename->vla-object e) 'p1 'p2)
(setq p (mapcar 'vlax-safearray->list (list p1 p2)))
(command "_scale" e (ssget "_W" (car p) (cadr p)) "" (cdr (assoc 10 (entget e))) f)
)
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 10. Apr. 2008 editiert.]

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