---

Hallo,

ich brauche hilfe, ich kann den grossteil meiner zeichnung nicht schraffieren oder abrunden, weil nahezu alle linien verschiedene z-werte haben. Die Linien sollten aber eigentlich auf z=0 sein. Gibt es einen Befehl, der automatisch alle z-Werte gleich Null setzt?

Danke - Jenny

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

---

Hi Jenny,
schau mal auf www.cadwiesel.de da gibt es LispŽs mit denen du die Zeichnung schon "platt" bekommst. Es gibt zwar noch in den Expresstools (V1.9) den Befehl "flatten" der ist aber nicht so effektiv, und über Ändern z-Wert bekommst du oft nicht alles gepackt.

Gruss Caladia

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

---

Ich habs auch ohne Programm hinbekommen:
Alles Markieren; Strg+1 drücken und dort kann man nun den Startpunkt und Endpunkt der Linien auf 0 setzten und fertig.

------------------
viglconsult
tunneling & hydraulic engineering
a-6780 schruns

[Diese Nachricht wurde von Christian Barwart am 17. September 2002 editiert.]

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

---

Was????
Ist das 'ne neue Geheimwaffe?
mit Strg 1 kann man das Eigenschaftenfenster öffnen u. schließen, aber dass mann da auch alle Z-Werte auf einmal ändern kann, ist mir neu.

------------------
Gruß
CADwiesel

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

---

Ich weiß nicht ob du ACAD 2002 hast?. Bei mir funtkioniert es jedenfalls bzw vielleicht funktioniert es nur bei ACAD2002. Alle Linien anwählen die man ändern will. Bei Eigenschaftenfenster, steht dann zwar bei Sart Z und bei Ende Z kein Wert. Danach gibt man einfach für die beieden Werte 0 ein und fertig.

------------------
viglconsult
tunneling & hydraulic engineering
a-6780 schruns

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

---

Do musst also erstmal rauskriegen, welches Objekt einen Z.wert <> 0 hat. Das kann aber dauern!
Und was ist mit anderen Objekten?

------------------
Gruß
CADwiesel

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

---

HIer hilft doch aber die Schnellauswahl.
Bei dem Kriterium kann man da doch ungleich 0 setzten und dann bei der Auswahl ganze Zeichnung. Da jedes gezeichnete Element eben einen Z-Wert besitzt werden auch alle Element untersucht. Anschließend kann man dann mit den Eigenschaften die Werte ändern.
Oder eben sofort alles Markieren und über die Eigenschaften die Werte für Start-Z und End-Z auf 0 setzten. Dann ist man sicher das alle auf einmal auf 0 gesetzt werden.
Hab ich schon ausprobiert und funzt sehr gut.

Sparky

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

---

Jenny hat das alle Linien irgenwo in der Z ebene liegen. Und so ist es eigentlich egal wo sie liegen, alle markieren und fertig.
Jedoch wenn man 3d zeichnet muss man jedoch mit dem Eigenschaftenfenster schauen wo sie liegen. Bei mir ist das Eigenschaftenfenster immer offen und somit entfallen recht viele Befehle z.b. wie strecken und messen, weil man recht viel dort editieren kann.
Kreise, Kreisbogen und Polylinien kann man auch mit der Methode auf eine gewünschte x,y oder z ebene bringen. Mit der splinie habe ich es noch nicht probiert.

------------------
viglconsult
tunneling & hydraulic engineering
a-6780 schruns

[Diese Nachricht wurde von Christian Barwart am 17. September 2002 editiert.]

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

---

Zitat:

---

Original erstellt von CADwiesel:
Do musst also erstmal rauskriegen, welches Objekt einen Z.wert <> 0 hat. Das kann aber dauern!

---

Hallo CADwiesel,
wenn Du den Befehl VIEW eingibst und dann Frontansicht waehlst, siehst Du auf einen Blick die Linien die nicht Z=0 sind und kannst sie auswaehlen und dann eben auf z=0 schieben.

------------------
Gruss aus dem sonnigen Athen
Wolfgang

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

---

Hey Leute,

danke fuer die vielen tips. Aber leider hat nichts funktioniert. Ich zeichne hier immer noch mit version 14 (in englisch). Entweder 14 ist zu bloed oder ich. Bei Strg 1 passiert nichts. Und ich habe mir smash und plaetten runtergeladen, bekomm sie aber nicht gestartet...
Help!
Danke - Jenny

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

---

Hi Jenny,
kann leider nicht sagen ob die lispŽs unter 14 laufen, unter 2000 tun sie es jedenfalls. Mit _appload laden und dann jeweils smash oder plaetten als Befehl eingeben.

Gruss Caladia

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

---

Ich zeichne mit der 2002er version. Bei der 14er Version funktioniert der Stgr+1 Befehl nicht, dort ist das Eigenschaftenfeld über das Menü zu finden, ob man dort die Werte auch so komfortabel ändern kann weiß ich jetzt nicht.

------------------
viglconsult
tunneling & hydraulic engineering
a-6780 schruns

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

---

project.zip

Servus Jenny

Das beigefügte Lisp "project.lsp" stammt noch von ACAD12, und sollte auch unter ACAD14 laufen.

Gruß, Ernst

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

---

Hallo Jenny,

wenn Du deinen ganzen Plan verschiebst von 0,0,0 auf 0,0,-9999999999999999 und danach wieder davon zurück auf 0,0,0 sollten bei R14 alle z-Werte auf Null sein. Dieser Tip sollte eigentlich irgendwo in diesem Forum schon zu finden sein

------------------


gruß
stephan

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

---

Hallo Jenny,

wenn Du deinen ganzen Plan verschiebst von 0,0,0 auf 0,0,-9999999999999999 und danach wieder davon zurück auf 0,0,0 sollten bei R14 alle z-Werte auf Null sein. Dieser Tip sollte eigentlich irgendwo in diesem Forum schon zu finden sein

------------------


gruß
stephan

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

---

Hallo Jenny,
wenn in einem Element die Z-Höhe gleich ist, d.h eine Linie Z.B nicht diagonal durch den Raum läuft sondern nur waagerecht auf der Z-Höhe, dann benutze den Autocad-Befehl ÄNDERN; EIgenschaften; ERhebung; dann neue Höhe auf 0 setzen, bestätigen dann sind alle o.a. Elemente auf Z 0.00

CU CADKAISER

------------------
xxxxx

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

---

Hey...
Ich habe genau das gleich Problem. In vielen älteren Zeichnungen haben so gut wie alle Linien eine seltsame z-Höhe. Woher die kommt ist mir schleierhaft. Schließlich zeichnen wir nur in 2D.
Ich habe mir dann den Lisp (plaetten) runtergeladen. Nur leider stürzen bei mir die Zeichnungen bei der Anwendung immer ab. Ist das normal??
Ich arbeite mit AutoCAD 2000.

Hoffe mir kann jemand helfen, denn das Schraffieren und Punkte fangen ist so echt anstrengend!

Danke.

Nina

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

---

Hi Nina,

hast Du es schon mit den Express Tools probiert?

Achso und hier noch StephanJPs Vorschlag in Lisp:
(defun c:flatt ()
(command "_move" "_si" "_all" "_none" "0,0,1e99" "")
(command "_move" "_si" "_all" "_none" "0,0,-1e99" "")
(princ)
)
Gruß
CADchup

------------------
www.cadditions.de

[Diese Nachricht wurde von CADchup am 14. Juli 2003 editiert.]

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

---

Hallo zusammen,

wir benutzen "makeflat".

(defun c:makeflat ( / ent pcode lst pkt n j)
  (setq
    ent (entnext)
    j  1
  )
  (princ "\n0\tObjekte korrigiert")
  (while ent
    (setq
      pcode 10
      lst  (entget ent)
      lst  (subst (list 210 0 0 1) (assoc 210 lst) lst)
    )
    (while (setq pkt (cdr (assoc pcode lst)))
      (if (/= (caddr pkt) 0)
        (progn
          (setq
              j  (1+ j)
              pkt (list (car pkt) (cadr pkt) 0)
              lst (subst (cons pcode pkt) (assoc pcode lst) lst)
          )
        )
      )
          (entmod lst)
          (entupd ent)
          (princ "\r") (prin1 j)
      (setq pcode (1+ pcode))
    )
    (setq ent (entnext ent))
  )
  (prin1)
)

Keine Ahnung wo es her ist.
Aber läuft problemlos und macht alles schön platt!

------------------
Mit freundlichen Grüßen

Otze Mach Ed

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

---

ObjHoe20.zip

Ich habe mal was benötigt was die OBJEKThöhe (Thickness) auf
0 stellt:

(Ändert Thickness auf 0 , ausgenommen verschachtelte Objekte)
[sucht Objekte dxfcode 39/=0 und setzt sie auf 0 , über Aws - daher
keine Objekte in Blöcken berücksichtigt]

------------------
Gruß Sebastian , Ffm
Der Feind des Guten ist das Bessere.

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

---

Hey...
Habe mal den etwas längeren Lisp ausprobiert. Also einfach so in die Befehlszeile geschrieben. Leider kam dann der Hinweis auf einen internen Fehler und AutoCAD ist abgestürzt.
Kann ich den Lisp auch dauerhaft irgendwie benutzen? Wenn ja, wie geht denn das. Habe noch nie mit Lisps gearbeitet. Wäre nett, wenn mir da mal jemand helfen könnte...

Danke!

Nina

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

---

Hallo Nina,

also, als erstes legst Du mal ein Verzeichnis unter Deiner ACAD Installation an. z.b. D:\ACAD\LISP

In einem Texteditor kopierst Du den LISP Text und speicherst die Datei unter Dein neues Verzeichnis als "makeflat.lsp"

In ACAD kannst Du nun unter AutoLISP laden die LISP Datei laden.
Nun in die Befehlszeile den Befehl "makeflat" eingeben und das Programm fängt an zu arbeiten.

Ich hoffe ich habe nichts vergessen.

Du kannst Dir auch ein ICON erstellen und ein AutoLoad mit einbauen, dann steht dir die entsprechende LISP immer in jeder ACAD Sitzung zur Verfügung.
Kann ich Dir gerne bei Bedarf auch erklären!

Viel Erfolg.

------------------
Mit freundlichen Grüßen

Otze Mach Ed

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

---

Mhm... Habe alles planmäßig gemacht. Den Lisp mit _appload geladen und dann mit makeflat ausgeführt. Nur leider bekomme ich dann sofort ein kleines Fenster mit "Interner Fehler". Das kann doch nicht sein. Ich werde dann auch gleich aus der Zeichnung rausgeschmissen.
Bin ich jetzt doof, oder liegt das an AutoCAD...??
Nina

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

---

Hmmmm,

dass verstehe ich leider auch nicht.
Bei uns läuft das auf ACAD2000 und ACAD2002.
Kann da jemand helfen?

------------------
Mit freundlichen Grüßen

Otze Mach Ed

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

---

Hallo,
ich hatte es schon mal mit 'ner PM versucht. Vielleicht kann Nina mal einen Ausschnitt (z.B.: Alle Layer deren Objekte nicht gleich 0)ihrer *.dwg hier posten...? Irgendwie lässt sich doch alles platt kloppen.
Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

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

---

was ist mit meinem Plaetten?
Hast du das denn schonmal ausprobiert?
Hab' 'ne neue Version up.

------------------
Gruß
CADwiesel
bin auch im Urlaub: 29.07 - 27.08

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

---

ACH_DOLL2.zip

Noch ein Plattmacherle als Lisp
Damit die Sammlung komplett ist.

Ist wahrscheinlich viel zu kompliziert gestrickt.

------------------

Rechtschreibfehler sind im Preis enthalten und können nicht einzeln zurückgegeben werden.

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

---

Hey.. Habe den letzten Lisp ausprobiert... Nur leider schon wieder ein interner Fehler! :-(

Gruß
Nina

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

---

Hi Nina,
tritt der Fehler bei jeder Zeichnung auf, oder nur bei "Fremdzeichnungen"?

------------------
Gruss
Caladia

[Diese Nachricht wurde von Caladia am 17. Juli 2003 editiert.]

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

---

Leider tritt der Fehler bei jeder Zeichnung auf...
Ich habe nun schon alle Lisps ausprobiert, die mir hier so zur Verfügung gestellt worden sind!

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

---

Alles sehr Seltsam. Hm, wie siehts den bei ganz anderen LispŽs aus? Würd mich doch interressieren ob die auch nur Fehler ausgeben, z.B. Heilen, 0-PL, Nuke oder so.

------------------
Gruss
Caladia

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

---

platt.zip

Hallo!
Ich weiß nicht, welche Lisp's du schon bekommen hast, aber hier noch mein Beitrag! Funktionsaufruf mit "platt" (ohne "")in der Befehlszeile
Hoffe, es klappt!

------------------
wisch

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