Autor
|
Thema: mehrere Blocks um Basispunkt drehen (5442 mal gelesen)
|
zwirbl Mitglied Bauing.
Beiträge: 22 Registriert: 09.03.2007 AutoCAD 2010 + 2013 - Deutsch
|
erstellt am: 27. Apr. 2009 08:22 <-- editieren / zitieren --> Unities abgeben:
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 |
Ingenieur Studio HOLLAUS Mitglied CAD / CAFM / GIS Beratung-Programmierung-Schulung
Beiträge: 1049 Registriert: 06.11.2008 Autocad 2 bis Autocad 2020 (+Map3D, +Civil3D, +Infraworks) RKV .... CAFM+mehr HMap ... Vermessung und Verkehr OoC .... Raumplanung CBox ... Tools für AutoCAD und BricsCAD (kostenfrei)
|
erstellt am: 27. Apr. 2009 08:42 <-- editieren / zitieren --> Unities abgeben: Nur für zwirbl
|
zwirbl Mitglied Bauing.
Beiträge: 22 Registriert: 09.03.2007 AutoCAD 2010 + 2013 - Deutsch
|
erstellt am: 27. Apr. 2009 08:51 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 27. Apr. 2009 08:59 <-- editieren / zitieren --> Unities abgeben: Nur für zwirbl
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 |
GWH Mitglied
Beiträge: 552 Registriert: 08.06.2001
|
erstellt am: 27. Apr. 2009 09:00 <-- editieren / zitieren --> Unities abgeben: Nur für zwirbl
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 |
zwirbl Mitglied Bauing.
Beiträge: 22 Registriert: 09.03.2007 AutoCAD 2010 + 2013 - Deutsch
|
erstellt am: 27. Apr. 2009 09:23 <-- editieren / zitieren --> Unities abgeben:
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 |
Swaddy Mitglied Elektroplaner
Beiträge: 53 Registriert: 09.03.2009 Win 11 / i7-10700 UHD 630, 16 GB / AutoCAD Map 3D 2024.1 / SAMO:LIDS 8
|
erstellt am: 12. Feb. 2010 11:29 <-- editieren / zitieren --> Unities abgeben: Nur für zwirbl
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 |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 12. Feb. 2010 11:39 <-- editieren / zitieren --> Unities abgeben: Nur für zwirbl
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 |
Swaddy Mitglied Elektroplaner
Beiträge: 53 Registriert: 09.03.2009 Win 11 / i7-10700 UHD 630, 16 GB / AutoCAD Map 3D 2024.1 / SAMO:LIDS 8
|
erstellt am: 12. Feb. 2010 11:55 <-- editieren / zitieren --> Unities abgeben: Nur für zwirbl
|