---

Ich möchte DGM's aus C3D nach Microstation exportieren. Leider scheint das letzte, nicht mehr mit Ursprungs-Befehl auflösbare Element eine "3D-Fläche" zu sein, die Microstation nicht interpretieren kann.

Was könnte man tun?

thx,
PG.
P.S: Kennt ACAD 2000 auch schon 3D-Flächen?

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

---

Hallo PG,
diesmal darf ich wohl als erster herzlich willkommen im Forum schreiben.
Zu Deiner Frage:
Ich sehe nur die Möglichkeit:
Die 3D-Flächen in Regionen (Befehl region) umwandeln.
Zu beachten ist die Systemvariable DELOBJ:
0 = ursprüngliche Objekte werden nicht gelöscht
1 = ursprüngliche Objekte werden gelöscht
Diese Regionen können mit Ursprung aufgelöst werden.
Du erhältst dann ein Netz aus lauter einzelnen Linien mit den entsprechenden Z-Werten.
Danach müßte noch eine Zeichnungsbereinigung (mapclean) durchgeführt werden, da die Linien doppelt vorhanden sind.
Vielleicht hilft`s weiter.
Grüße,
Klaus

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

---

Zitat:

---

Original erstellt von PetGrue:
...
P.S: Kennt ACAD 2000 auch schon 3D-Flächen?

---

3D Flächen gibt es mindestens seit AutoCAD 9 (das ist jetzt ca. 20 Jahre her).

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Und um 3D-Flächen in Linien umzuwandeln hab ich hier noch ein Lisp-Tool ausgegraben:

Code:

---

; aus Discussion Groups Index > AutoCAD Groups > Visual LISP, AutoLISP and General Customization Issues > explode 3dface
; Reply From: Jürg Menzi
; Date: Jun/12/04 - 16:56 (; CEST)
; angepasst und erweitert von Udo Hübner 12.12.05
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(VL-LOAD-COM)

(DEFUN MeExplode3DFace (Obj / AcaDoc CurSpc PntCnt PntLst TmpObj)
  (SETQ AcaDoc (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT))
CurSpc (IF (OR
    (= (GETVAR "TILEMODE") 1)
    (> (GETVAR "CVPORT") 1)
  )
(VLA-GET-MODELSPACE AcaDoc)
(VLA-GET-PAPERSPACE AcaDoc)
      )
PntCnt 0
PntLst (MeTripleUp (VLAX-GET Obj "Coordinates"))
PntLst (IF (EQUAL (CADDR PntLst) (CADDDR PntLst) 1E-8) ;3 edges
(APPEND
  (REVERSE (CDR (REVERSE PntLst)))
  (LIST (CAR PntLst))
)
(APPEND PntLst (LIST (CAR PntLst)))
      )
  )
  (REPEAT (1- (LENGTH PntLst))
    (SETQ TmpObj (VLAX-INVOKE
  CurSpc
  "AddLine"
  (NTH PntCnt PntLst)
  (NTH (SETQ PntCnt (1+ PntCnt)) PntLst)
)
    )
    (VLA-PUT-COLOR TmpObj (VLA-GET-COLOR Obj))
    (VLA-PUT-LAYER TmpObj (VLA-GET-LAYER Obj))
    (VLA-PUT-LINETYPE TmpObj (VLA-GET-LINETYPE Obj))
    (VLA-PUT-LINETYPESCALE TmpObj (VLA-GET-LINETYPESCALE Obj))
    (VLA-PUT-LINEWEIGHT TmpObj (VLA-GET-LINEWEIGHT Obj))
    (VLA-PUT-VISIBLE TmpObj (VLA-GET-VISIBLE Obj))
  )
  (VLA-DELETE Obj)
  (PRINC)
)
;
; -- Function MeTripleUp
; Converts a list to a triple point list.
; Arguments [Type]:
; Lst = List to convert, eg. '(1 2 3 4 5 6) [LIST]
; Return [Type]:
; > Converted list '((1 2 3) (4 5 6)) [LIST]
; Notes:
; Credits to Ken Alexander
;
(DEFUN MeTripleUp (Lst / RetLst TmpLst)
  (IF (SETQ TmpLst Lst)
    (WHILE
      (SETQ RetLst (CONS
    (MAPCAR '(LAMBDA (l) (NTH l TmpLst)) '(0 1 2))
    RetLst
  )
    TmpLst (CDDDR TmpLst)
      )
    )
  )
  (REVERSE RetLst)
)

;; Use:
;; (MeExplode3DFace (VLAX-ENAME->VLA-OBJECT (CAR (ENTSEL))))

(DEFUN C:EX3DFLÄCHE ()
  (PROMPT "\n3DFlächen in Ursprung zerlegen:")
  (IF (SETQ aw (SSGET (LIST (CONS 0 "3DFACE"))))
    (PROGN
      (SETQ anz (SSLENGTH aw))
      (WHILE (>= (SETQ anz (1- anz)) 0)
        (MeExplode3DFace (VLAX-ENAME->VLA-OBJECT (SSNAME aw anz)))
      )
    )
  )
)

(PROMPT "nBefehl EX3DFLÄCHE steht zur Verfügung.")
(PRINC)

---

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Schönen Dank für die Begrüßung und die schnellen Reaktionen.
Eigentlich bin ich kein ACAD-Mensch, deshalb kommen Euch vielleicht einige Fragen ein bisschen simpel vor (z.B. nach den 3D-Flächen). Aber manche Sachen findet man eben nicht so leicht allein 'raus.

Jedenfalls der Umweg über die Umwandlung in Regionen funktioniert gut und ist ja auch nicht allzu kompliziert.
Das Lisp werde ich beizeiten auch 'mal testen.

PG.

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