---

Hi!
Ich würde gerne mehrere Blöcke die ich ausgewählt hab um dehren jeweiligen Basispunkt gleichzeitug drehen und nicht jeden immer einzeln auswählen und drehen müssen.

Anmerkung noch: Die Blöcke ausschneiden+umbenennen und dann die Blöcke editieren - sprich drehen und dann wieder einfügen geht nicht. Da ich letztendlich versuche mehrere Blöcke zu vereinheitlichen. Des ist aber bisher net wirklich gangen, da sie verschiede Grundausrichtungen haben.

I hoff mal des was halbwegs verständlich und jemand kann mir weiterhelfen. DANKE

[Diese Nachricht wurde von zwirbl am 27. Apr. 2009 editiert.]

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

---

Das funktioniert wenn alle Blöcke am Ende die gleiche verdrehung haben sollen, dann kannst Du im Eigenschaftenfenster diese für alle ausgewählten einstellen.

------------------
www.hollaus.at                     www.cars4fun.at

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

---

nein des wär viel zu einfach sie stehen alle kreuz und quer und haben eine unterschiedliche drehung

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

---

Du mußt die Referenzen für jeden betroffenen Block (welcher hinterher durch EINEN neuen ersetzt werden soll?)
einmal ändern - zum drehen um den Basispunkt gibt es kleine Helfer wie "drehen-e" KLICK!

BlockA soll es werden - optisch ein liegendes Rechteck - BlockB soll getauscht
werden das Rechteck darin ist jedoch hochkant ausgerichtet, also muß ich alle
Referenzen des B-Blockes um 90° drehen damit die Darstellung nach dem Blocktausch
mit BlockA wieder stimmt.

(ich hoffe die Blockbasispunkte liegen alle gleich)

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

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

---

Hallo zwirbl.

deine Systeminformationen wären bei der Problemlösung von Vorteil, da es sonst ein Ratespiel ist.

Achtung: Wenn du Attribute in den Blöcken hast, dann funktioniert das drehen über Eigenschaften in der 2008er Version nicht - die Attribute werden um ihren Einfügepunkt gedreht. In den Vorgängerversionen und in 2009 ist alles wieder beim alten. In 2010 noch nicht getestet.

------------------
Ciao Günter
--------------------------------------------------------------------------------
"Wir haben keine Probleme, nur Aufgaben zu lösen."

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

---

SUPER cadffm!!

Code:

---

;******************************************************************************
;DREHEN von Objekten die einen definierten Einfügepunkt haben.
;(Texte, Blöcke, Kreise ect.)
;******************************************************************************
(defun c:DREHEN-E (/ faktor aus n i nam ins)
(terpri)(terpri)
(setvar "cmdecho" 0)
(princ "\nDer DREHEN-BASIS-PUNKT ... ist der jeweilige Objekt-Einfügepunkt.")
(setq drehwink (getreal "\nDrehwinkel für die Objekte: "))
;-----Auswaehlen---------------------------------------------------------------
(setq aus (ssget) as aus) ;aus=Auswahl der Elemente
(setq n (sslength aus)) ;n=Anzahl der Elemente (max)
(command "bks" "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 "drehen" nam "" ins drehwink) ;nam=nur ein Element
  (setq i(1+ i)) ;Zaehler eins weiter
) ;while
(command "bks" "w")
(princ)
) ;defun
;******************************************************************************

---

1000 DANK!!

[Diese Nachricht wurde von zwirbl am 27. Apr. 2009 editiert.]

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

---

Ich war mal so frei und habe das zum skalieren umgeschrieben.
Funktioniert und ich habe sogar 20% vom Code verstanden :-D

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 skafa (getreal "\nSkalierfaktor für die Objekte: "))
;-----Auswaehlen---------------------------------------------------------------
(setq aus (ssget) as aus) ;aus=Auswahl der Elemente
(setq n (sslength aus)) ;n=Anzahl der Elemente (max)
(command "bks" "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 "varia" nam "" ins skafa) ;nam=nur ein Element
  (setq i(1+ i)) ;Zaehler eins weiter
) ;while
(command "bks" "w")
(princ)
) ;defun
;******************************************************************************

---

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

---

Was ist daran geändert ? (will mich nicht groß einlesen, es wäre nur nett wenn du das
gleich mal dazu schreibst, besonders für die nicht-Lisp´ler)

Wenn ich es richtig sehe hast du es sogar verschlimmerbessert !?

Der Code wurde hier ursprünglich (gleube ich) von Otterloh gepostet, so wie ich es oben auch verlinkt habe,
man sollte es nicht Stück für Stück auseinandernehmen, lieber im ganzen editieren (wenn "nötig")
und KOMMENTIEREN !

Hier nochmal der Link zum eigentlichen Beitrag von otterloh: KLICK!

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Bin dem Original-Link nicht gefolgt. Kann man löschen.

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