---

Hallo,

ich habe eine Zeichnung die aus 3d Teilen beststand. Dann habe ich den Volumenkörper geprengt, weil ich Einzelteile mit Ansicht und Seitenansicht zum weiterkonstruieren brauchte.
Die explodierten Teile habe ich verarbeitet und mit Flatten con cadwiesel platt gemacht.... soweit ist alles in Ordnung, allerdings habe ich nun lauter 3d Flächen die von der Fräse nicht verarbeitet werden können.
Kann man 3d Flächen in Linien, oder polylinien umwandeln?

------------------
Gruß Björn

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

---

Also wenn es ein Volumenkörper war und du deine Zeichnung mit plaetten bearbeitet hast, dann hast du jetzt keine 3D-Flächen drinnen, sondern Regionen (was ganz was anderes ist...).

Diese Regionen kannst du mittels eines simplen auflös in "dumme" Linien zerlegen - danach nochmal plaetten ausführen (wenn du die 3D-information nicht haben willst/brauchst).

------------------
Grüsse

Thomas

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

---

Sorry....
es war kein Volumemkörper, sondern ein Vielflächennetz, was wohl mit 3d Studio Max vom Kunden erstellt wurde.

------------------
Gruß Björn

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

---

Guggst du hier

Tool 1691 - Aufruf mit FACE2LIN

------------------
Grüsse

Thomas

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

---

Hallo Thomas,

vielen Dank. Das war es, was ich gesucht habe.

------------------
Gruß Björn

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

---

So weit, so gut.
Nur mit der Anwendung des Befehls haperts.
Was hat denn das Umwandeln von 3D-Flächen in Linien
mit Layern zu tun.
Ich komme da leider nicht weiter.

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

---

Hi,

weis ich auch nicht - aber du warst bist jetzt die einzige, die da was mit Layern liest; erklär mal wo du das her hast.   

------------------
Grüsse

Thomas

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

---

So sieht das ungefähr immer aus:

Befehl: face2lin

Convert 3dfaces to Plines or Lines? <Lines>:

Select sample 3dface:
Nicht eindeutige Antwort, bitte präzisieren...
; Fehler: Funktion abgebrochen
SEtzen oder SPerren oder STatus?

Ungültiger Optionstitel.
SEtzen oder SPerren oder STatus? se

Namen des zu aktivierenden Layers eingeben oder <Objekt wählen>:

Objekt wählen:
Layer "0" wurde zum aktuellen Layer gemacht.
Option eingeben
[?/Machen/SEtzen/Neu/EIn/Aus/FArbe/Ltyp/LStärke/MATerial/Plot/FRieren/Tauen/SPer
ren/ENtsperren/STatus]: m

usw.

LG Meraia

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

---

Geh mal in dem Tool in Zeile 47 und tausche folgende Zeile

Code:

---

(command ".layer" "s" (cdr (assoc 8 3d-inf)) "")

---

gegen diese hier aus:

Code:

---

(command ".layer" "_s" (cdr (assoc 8 3d-inf)) "")

---

------------------
Grüsse

Thomas

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

---

Erstmal danke schön für die Tips.
Sowas hab ich ja noch nie gemacht, aber das Ergebnis ist jetzt das hier:

Befehl: face2lin

Convert 3dfaces to Plines or Lines? <Lines>:

Select sample 3dface: Unbekannter Befehl "LINE". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "C". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "LINE". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "C". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "LINE". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "C". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "LINE". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "C". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "LINE". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "C". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "LINE". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "C". Drücken Sie F1-Taste für Hilfe.

Delete 3dfaces? <Y>:
Unbekannter Befehl "ERASE". Drücken Sie F1-Taste für Hilfe.
<Auswahlsatz: 207>
Unbekannter Befehl "FACE2LIN". Drücken Sie F1-Taste für Hilfe.

6 3dfaces converted

Allerdings sind das jetzt immer noch 3D-Flächen, leider.

LG  Meraia

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

---

Code:

---

;Tip1691:  FACE2LIN.LSP    3D faces to lines            (c)2001, Jeff Foster

;OBJECTIVE***
;The purpose of this routine is to allow the user to select a group
;of 3dfaces on a selected layer and convert them to either lines or
;3dpolylines as directed by the user.  All 3d information is preserved.
;3dfaces may be retained or erased.
;
;TO RUN***
;At the command line, type (load "c:/lispdir/face2lin")
;where c:/ is the drive where FACE2LIN.lsp is contained
;where lispdir/ is the directory where FACE2LIN.lsp is contained

(Defun C:FACE2LIN ()
  (PREPROCESS)
  (PROCESS)
  (POSTPROCESS)
)

(Defun PREPROCESS ()
  (setq
    c-cmd (getvar "cmdecho")
    c-lyr (getvar "clayer")
  )
  (setvar "cmdecho" 0)
  (initget 0 "Pline Lines")
  (setq
    p-l (getkword "\nConvert 3dfaces to Plines or Lines? <Lines>: ")
  )
  (if (= p-l nil)
    (setq p-l "Lines")
  )
  (prompt "\n")
  (princ)
)

(Defun PROCESS ()
  (while (= (setq get3dface (car (entsel "\rSelect sample 3dface: ")))
    nil
)
  )
  (setq 3d-inf (entget get3dface))
  (if (/= (cdr (assoc 0 3d-inf)) "3DFACE")
    (PROCESS)
  )
  (command "_-layer" "_s" (cdr (assoc 8 3d-inf)) "")
  (setq
    ss3d
    (ssget "X"
    (list (cons 0 "3DFACE") (cons 8 (cdr (assoc 8 3d-inf))))
    )
    2del
    (ssget "X"
    (list (cons 0 "3DFACE") (cons 8 (cdr (assoc 8 3d-inf))))
    )
    cnt 0
  )
  (while (/= (setq sse3d (ssname ss3d 0)) nil)
    (setq
      sse3d-inf (entget sse3d)
      pt1 (cdr (assoc 10 sse3d-inf))
      pt2 (cdr (assoc 11 sse3d-inf))
      pt3 (cdr (assoc 12 sse3d-inf))
      pt4 (cdr (assoc 13 sse3d-inf))
    )
    (if (= p-l "Lines")
      (command "_line")
      (command "_3dpoly")
    )
    (command pt1 pt2 pt3)
    (if (= (distance pt3 pt4) 0)
      (command "_C")
      (command pt4 "_C")
    )
    (setq cnt (+ cnt 1))
    (ssdel sse3d ss3d)
  )
)

(Defun POSTPROCESS ()
  (initget 0 "Yes No")
  (setq y-n (getkword "\nDelete 3dfaces? <Y>: "))
  (if (or (= y-n nil) (= y-n "Yes"))
    (command "_erase" 2del "")
  )
  (prompt (strcat "\n" (itoa cnt) " 3dfaces converted"))
  (setvar "cmdecho" c-cmd)
  (setvar "clayer" c-lyr)
  (princ)
)

;;;;(C:FACE2LIN)

---

In der Hoffnung nun alle englischen Befehle internationalisiert zu haben.

------------------
Grüsse

Thomas

[Diese Nachricht wurde von tunnelbauer am 05. Apr. 2006 editiert.]

[Diese Nachricht wurde von tunnelbauer am 05. Apr. 2006 editiert.]

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

---

Moin,

bin gestern nicht mehr dazu gekommen.
Leider funktioniert das immer noch nicht. Trotzdem nochmal vielen Dank für deine Mühe.

LG  Meraia

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

---

Hi,

wenn du uns (mir) nooch verrätst was jetzt noch nicht funktioniert, dann können wir ja gemeinsam eine Lösung finden (ich kann den Fehler nicht ganz ohne deiner Hilfe finden, da ich mit einem englsichen AutoCAd arbeite unsd somit das Tool bei mir läuft).

------------------
Grüsse

Thomas

[Diese Nachricht wurde von tunnelbauer am 05. Apr. 2006 editiert.]

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

---

Ok,

also, ich habe deinen Text kopiert und ihn im Visual Lisp Editor eingefügt, also den alten Text ersetzt.
Das Ergebnis ist:

Befehl: _appload Tip1691.lsp erfolgreich geladen.

Befehl:
Befehl:
Befehl: face2lin

Convert 3dfaces to Plines or Lines? <Lines>:

Select sample 3dface:
Nicht eindeutige Antwort, bitte präzisieren...
; Fehler: Funktion abgebrochen
SEtzen oder SPerren oder STatus?

Ungültiger Optionstitel.
SEtzen oder SPerren oder STatus? se

Namen des zu aktivierenden Layers eingeben oder <Objekt wählen>:

Objekt wählen:
Layer "0" wurde zum aktuellen Layer gemacht.
Option eingeben
[?/Machen/SEtzen/Neu/EIn/Aus/FArbe/Ltyp/LStärke/MATerial/Plot/FRieren/Tauen/SPer
ren/ENtsperren/STatus]:

Also fast wieder so wie vorher.

LG  Meraia

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

---

Wenn du es jetzt nochmal testest - bin nochmal korregierender Weise drüber gegangen.

------------------
Grüsse

Thomas

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

---

Hi,

ändere das:
(command "_-layer" "s" (cdr (assoc 8 3d-inf)) "")

in das:
(command "_-layer" "_s" (cdr (assoc 8 3d-inf)) "")

Gruß
CADchup

------------------
CADmaro.de

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

---

Sorry, tut sich nichts.

Befehl: face2lin

Convert 3dfaces to Plines or Lines? <Lines>:

Select sample 3dface:
Nicht eindeutige Antwort, bitte präzisieren...
; Fehler: Funktion abgebrochen
SEtzen oder SPerren oder STatus?

Ungültiger Optionstitel.
SEtzen oder SPerren oder STatus? se

Namen des zu aktivierenden Layers eingeben oder <Objekt wählen>:

Objekt wählen:
Layer "0" wurde zum aktuellen Layer gemacht.
Option eingeben
[?/Machen/SEtzen/Neu/EIn/Aus/FArbe/Ltyp/LStärke/MATerial/Plot/FRieren/Tauen/SPer
ren/ENtsperren/STatus]: m

Namen für neuen Layer eingeben (wird aktueller Layer) <0>:
Option eingeben
[?/Machen/SEtzen/Neu/EIn/Aus/FArbe/Ltyp/LStärke/MATerial/Plot/FRieren/Tauen/SPer
ren/ENtsperren/STatus]: ?

Aufzulistende(n) Layernamen eingeben <*>:

    Layername        Status      Farbe        Linientyp    Linienstärke
------------------ ----------- ------------- ------------ ------------
"0"                ein      -P  7 (weiß)        "CONTINUOUS"  Standard

Aktueller Layer: "0"

Option eingeben
[?/Machen/SEtzen/Neu/EIn/Aus/FArbe/Ltyp/LStärke/MATerial/Plot/FRieren/Tauen/SPer
ren/ENtsperren/STatus]: *Abbruch*

LG  Meraia

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

---

Danke, danke.........

super, die Kombination aus beidem hats gebracht.
Das geht jetzt.

LG Meraia

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