---

UZU10.1129-Standard.zip

Hallo zusammen,

Ich suche nach einer Möglichkeit Punktsymbole und Text so zu Drehen, dass sie nach einem bestimmten BKS ausgerichtet werden.

In meinem Fall wurden die Punkte aus einem Leica Tachymeter importiert. Nun möchte ich damit in einem neuen BKS, welches ich erstellt habe Arbeiten. Das Problem ist aber, dass die Punkte und der Text nicht erkennbar bzw. lesbar sind da sie ja nach der Draufsicht ausgerichtet sind.
Gibt es eine Möglichkeit alle Punkte/Text gleichzeitig in ihrem jeweiligen Ursprung zu drehen? Oder muss ich tatsächlich jeden Punkt/text einzeln drehen?

Ich habe euch eine Beispiel Datei angehängt damit verständlich wird was ich eigentlich meine. Das BKS heisst Cella Wand.

Gruss und vielen Dank im voraus.
Zora

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

---

Zora,

willkommen.
Ich bin mir nicht sicher, aber mit dem Befehl "_copybase" müsste dein Vorhaben funktionieren.
Ansicht nach Text-BKS ausrichten -> "_copybase" -> neues BKS + neue Ansicht aktuell -> einfügen.
Was passiert?
EDIT: Na, es wird wohl nicht funktionieren, weil die Objekte zum WKS ganz anders liegen. Evtl. gibt es ein Lisp, was die Texte und/oder Punktsymbole dreht.

Lothar

[Diese Nachricht wurde von Kramer24 am 30. Nov. 2010 editiert.]

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

---

Hey Lothar,

merci für die Antwort.
Das Problem ist, dass die Koordinaten der Punkte sich nicht verändern dürfen. Wenn ich aber alle Punkte auswähle, kopiere und im neuen BKS wieder einfüge verändert sich ihre Position im Koordinaten System. Wenn ich jeden Punkt einzeln kopiere und einfüge funktioniert es, aber das ist natürlich unglaublich zeitaufwendig! Ich frage mich ob es eine Methode gibt alle Punkte gleichzeitig zu drehen ohne das sie ihre Position verändern.   

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

---

Hallo Zora,

als Willkommensgruß habe ich hier eine kleine Hilfsfunktion, die zumindest schon mal die Punkte in die richtige Richtung dreht.

Code:

---

;Funktion zum Ausrichten (drehen / kippen) von Punkten auf das aktuelle BKS
;Version 1.0

;Henning Jesse 01/2010

(defun c:vox-rotp2ucs ( / ss z x y r ele prop)
  (setq ss (ssget '((0 . "POINT"))) z -1)
  (setq x (getvar "ucsxdir"))
  (setq y (getvar "ucsydir"))
  (setq r (v_prod x y))
  (if ss
    (while (setq ele (ssname ss (setq z (1+ z))))
      (setq prop (entget ele))
      (entmod (subst (cons 210 r) (assoc 210 prop) prop))
    )
  )
  (prompt (strcat (itoa (1+ z)) " Punkte auf aktuelles BKS ausgerichtet."))
  (prin1)
)

; Vektorprodukt von Vektoren (ergibt Vektor senkrecht zur Ebene v1 v2) (3 Koordinaten)
(defun v_prod (v1 v2 / )
   (list
      (- (* (cadr  v1) (caddr v2)) (* (caddr v1) (cadr  v2)))
      (- (* (caddr v1) (car   v2)) (* (car   v1) (caddr v2)))
      (- (* (car   v1) (cadr  v2)) (* (cadr  v1) (car   v2)))
   )
)

---

Viel Spass damit.

Grüsse, Henning

Wie Lisp-Tool laden

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

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 30. Nov. 2010 editiert.]

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

---

...und/oder für den Text das Lisp "RotateToView" in der Version von Lee Mac...

Lothar

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

---

Danke viel mals!! Hat geklappt!

Falls ich wieder einmal in der klemme stecke werde ich mich bestimmt wieder melden 

Liebe Grüsse
Zora

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