---

Hallo!
Hab mal versucht die Koordinaten aus einem normalen Rechteck zu lesen, was ja auch kein Problem da es im Objekt ja mehr oder weniger im Klartext drinnen steht. siehe hier

Code:

---

(entget(entlast))

---

((-1 . <Entity name: 7ef98218>;) (0 . "LWPOLYLINE") (330 . <Entity name:
7ef96cf8>;) (5 . "133") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
(100 . "AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10
45.5253 -70.7354) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 47.5688 -70.7354) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 47.5688 -116.626) (40 . 0.0) (41 . 0.0) (42 .
0.0) (10 45.5253 -116.626) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

So und nun habe ich das bei einem 3d Solid probiert, und das bekommen:

Code:

---

-): {rn rn {rn 90-(>-; $ />-@61+@<*- ,*22>-& m o n oqoon POZQ ") (1 . " ,/361:
90-(>-; $ -:9 in \" V V V V ") (1 . " 1*33@,*-9><: ") (1 . " 1*=, n 0/:1 m ")
(1 . " o n n n ") (1 . " o o ") (1 . " o n ") (1 . " ") (1 . " 1*33=, ") (1 . "
.............
|") (1 . "9><: {fkf rn {rn {ghf {ghn {h {rn {fjo -:):-,:; ,6183: |") (1 .
"/+36,+r:&:r>++-6= {rn rn {rn {rn {ghi |") (1 . "61+<*-):r<*

---

(ich sehe nicht wirklich wo da die Koordinaten versteckt sind)

Wie geht man vor wenn man alle Koordinaten der Ecken eines 3d Solids braucht.

LG THE_ONE

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

---

Vergiss es. Autodesk hat das Volumenmodell lizensiert gekauft, und verschlüsselt die Daten.

Grüsse, Henning

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

  http://www.voxelman.de

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

---

Zitat:

---

Original erstellt von wronzky:
    Vergiss es. Autodesk hat das Volumenmodell lizensiert gekauft, und verschlüsselt die Daten.

Grüsse, Henning

---

He, warte mal, so schnell gebe ich mich nicht geschlagen. Kann ich das vielleicht anders lösen???
Z.B. umwandeln das 3d Solids in ein Drahtgittermodell,.... ich weiß ja nicht was es sonst noch für Möglichkeiten gibt. Arbeite fast ausschließlich in 2d. Mit 3d habe ich mich so gut wie überhaupt nicht auseinandergesetzt.

LG THE_ONE

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

---

zu dem Thema war auch hier mal was .. und IMHO hatte Axel mal was auf IDUMA gepostet ..

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

---

Na gut, noch ein Tipp, wenn Du schon nicht aufgibst :
Solids kopieren und solange auflösen, bis nur noch Linien/Kreise/Bögen übrig bleiben. Diese dann weiterverarbeiten. Aber das geht wirklich nur bei ganz einfachen Objekten (Quader z.B.). Keine Kurven oder so.

Grüsse, Henning

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

  http://www.voxelman.de

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

---

Zitat:

---

Original erstellt von THE_ONE:
He, warte mal, so schnell gebe ich mich nicht geschlagen. Kann ich das vielleicht anders lösen???
Z.B. umwandeln das 3d Solids in ein Drahtgittermodell,.... ich weiß ja nicht was es sonst noch für Möglichkeiten gibt. Arbeite fast ausschließlich in 2d. Mit 3d habe ich mich so gut wie überhaupt nicht auseinandergesetzt.

LG THE_ONE

---

Die "Verschlüsselung" ist nur ein Witz. Hier die nötigen Tools zum Ent- und Verschlüsseln:

Code:

---

;;;
;;; der Schlüssel dcValue ist 95
;;;
(defun acisdecrypt (string dcValue / temp i len)
  (setq len (strlen string))
  (setq i 0)
  (setq temp "")
  (while (< i len)
    (setq i (+ i 1))
    (setq c (ascii (substr string i 1)))
    (if (/= c 32)
      (setq temp (strcat temp (chr (boole 6 dcValue c))))
      (setq temp (strcat temp " "))
    )
  )
)

(defun acisencrypt (st / ln n c st1)
  (setq st1 ""
n  (strlen st)
  )
  (while (> n 0)
    (setq c (ascii (substr st n 1)))
    (setq st1
  (strcat
    (cond
      ((= c 32) " ")
      ((= c 86) "I")
      ((chr (boole 6 c 95)))
    )
    st1
  )
    )
    (setq n (1- n))
  )
  st1
)

(defun acislist (en / el result)
  (setq el (entget en))
  (while el
    (if (= 1 (caar el))
      (setq result (cons (acisdecrypt (cdar el) 95) result))
    )
    (setq el (cdr el))
  )
  (reverse result)
)

---

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