| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Ausrichten mehrere Elemente (380 mal gelesen)
|
Session Mitglied Technischer Zeichner
Beiträge: 70 Registriert: 24.05.2005
|
erstellt am: 14. Sep. 2006 15:37 <-- editieren / zitieren --> Unities abgeben:
Hallo. Ich haben mehrere 3D Blöcke in einer Ebene liegen, die richtig ausgerichtet sind, und möchte alle diese Blöcke in dieser Ebene in richtung X-Achse an einem selben Punkt verschieben. Anders erklärt: Ich zeichne gerade einen Rohrverteiler, und die Ventile sollen alle höhenmässig paralell im Raum liegen. Leider ist das beim Einfügen nicht möglich, da das "Einfügen" über eine eigene Applikation funzt. d.h. ich kann die Blöcke nicht an einem bestimmten Punkt einfügen sondern MUSS für diese Applikation (ACPlant Designer) die Punktfangfunktion "Nächster" nehmen. Daher muss ich im Anschluss jeden einzelnen Block angreifen und mit der Punkt-Filterfunktion an einen definierten Punkt schieben. Der ACPlantdesiger hat leider keine Funktion für das Verschieben mehrer Blöcke an eine Refernzlinie etc. Kann AutoCAD das ?? Bitte um Hilfe, Danke Chrisu
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, Monitore, ...
|
erstellt am: 14. Sep. 2006 15:47 <-- editieren / zitieren --> Unities abgeben: Nur für Session
Ja, mit Lisp ... einfach ein BKS-Anlegen ... dann die Blöcke mit Lisp am Bassispunkt entlang rotieren (sieht aus wie ausrichten) . Lisp müsste auch hier im Forum rumfliegen ... Suchbegriffe _allign, bks / ucs ... wenn nicht kann es ja schnell geschrieben werden. ------------------ MfG Proxy Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Session Mitglied Technischer Zeichner
Beiträge: 70 Registriert: 24.05.2005
|
erstellt am: 14. Sep. 2006 15:56 <-- editieren / zitieren --> Unities abgeben:
Danke für die schnelle Antwort. Anbei eine kurze Skizze von dem, was ich brauch .... Nur damit wir vom selben reden Man sieht darauf die T-Stücke und die Ventile links davon sollen einheitlich 50 mm von den T-Stücken entfernt sein. lg Chrisu Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, Monitore, ...
|
erstellt am: 14. Sep. 2006 19:47 <-- editieren / zitieren --> Unities abgeben: Nur für Session
Lösungsvorschlag (1): Code:
(defun C:block_rotate () (setq #cb (ssget) z 0 ) (setq bksxdir (getvar "ucsxdir")) (setq p1 (list 0 0)) (setq p2 (list (car bksxdir) (cadr bksxdir))) (setq bksrot (angle p1 p2)) (repeat (sslength #cb) (setq cb (entget (ssname #cb z)) z (1+ z) ) (setq cb (subst (cons 50 bksrot) (assoc 50 cb) cb)) (entmod cb) ) )
Lösungsvorschlag (2):Code:
(defun C:alignsameblocks (/ block blockname blockwinkel #bloecke z BLK nw) (command "_.undo" "_G") (setq block (entsel "\nVORGABEBLOCK WÄHLEN:") block (if block (car block) ) ) (if (and block (= "INSERT" (cdr (assoc 0 (entget block)))) ) (setq blockname (cdr (assoc 2 (entget block))) blockwinkel (* (/ (cdr (assoc 50 (entget block))) pi) 180.0) #bloecke (ssget "x" (list (cons 0 "INSERT") (cons 2 blockname))) z 0 ) ) (if #bloecke (progn (princ (sslength #bloecke)) (repeat (sslength #bloecke) (setq block (entget (setq BLK (ssname #bloecke z))) z (1+ z) nw (* (/ (cdr (assoc 50 block)) pi) 180.0) ) (command "_.rotate" BLK "" (cdr (assoc 10 block)) "B" nw blockwinkel ) ) ) ) (command "_.undo" "_E") ) (princ)
------------------ MfG Proxy Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Cadzia Ehrenmitglied V.I.P. h.c. CAD/Grafik-Dienstleister
Beiträge: 2912 Registriert: 02.07.2004 AutoCAD 2020 + MAP + WS.LandCAD Bricscad V21 pro
|
erstellt am: 14. Sep. 2006 19:55 <-- editieren / zitieren --> Unities abgeben: Nur für Session
Hallo Chrisu, mal noch ein aderer Weg. markiere die (Hilfs-)Linie und schau im Eigeschaftsfenter nach dem "X-Wert" ; den Zahlenwert kopierst Du Dir in die Zwischenablage (Strg+c). danach markierst Du nur die Blöcke und fügst im Eigenschaftsfenter unter "Position X", den vorherigen Wert wieder ein (Strg+v) - voila ------------------ Grüße Karin
Willst du wertvolle Dinge sehen, so brauchst du nur dorthin zu blicken, wohin die große Menge nicht sieht. (Laotse) [Diese Nachricht wurde von Cadzia am 14. Sep. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Session Mitglied Technischer Zeichner
Beiträge: 70 Registriert: 24.05.2005
|
erstellt am: 15. Sep. 2006 09:30 <-- editieren / zitieren --> Unities abgeben:
Danke Euch Beiden. Vor allem Dir, Cadzia für den einfachen Weg, der ist super. (Wenn ich ein bissi nachgedacht hätte ... aber man lernt nie aus.) @Proxy Mit Lisp´s & Co habe ich bis jetzt noch nicht so viel zu tun gehabt, aber ich werde mich da mal reinlesen, wie die anzuwenden sind etc. Trotzdem vielen Dank. lg Chrisu Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |