---

linie_Sp.txt

Habe ein kleines Problem bei einem Macro wo ich xy Punkte aus einer Datei in das ME10 einlesen möchte. Dieses Macro funktioniert prima wenn ich mir die Punkte auf den Bildschirm darstellen lasse oder auch eine Liniendarstellung. Leider bin ich noch nicht dahinter gekommen wie ich einen Kurvenzug mir erstellen lasse, habe es schon mit BSPLINE versucht, jedoch sind die einzelnen verbundenen Punkte nicht als Kurve verbunden sondern wieder als Linie.

Kann mir da jemand weiterhelfen??
Als Anhang sende ich das vorhandene Macro mit.

------------------
MFG Metz

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

---

Morgen!

Du versuchst, in der Schleife jeweils einen Spline mit 2 Punkten zu erzeugen - weil jeder weitere BSPLINE-Befehl den letzten Befehl beendet.

Versuch mal, den Befehl "BSPLINE" vor die Schleife zu stellen.
Die READ- und LET-Aufrufe dürften den BSPLINE-Befehl nicht unterbrechen.

Etwa so:

Code:

---

DEFINE linie_Sp
LOCAL X
LOCAL Y
LOCAL P
LOCAL P1

INPUT 'c:/p/CAD.DAT

READ X
READ Y

LET P (PNT_XY X Y)
LET P1 P

BSPLINE P

LOOP
  READ X
  READ Y
  LET P (PNT_XY X Y)
  IF(P<;>;P1)
    {BSPLINE} P
  END_IF
  LET P1 P
END_LOOP
END_DEFINE

---

quick, dirty & untested - wie immer 

Hannes

PS: und frag mich nicht, wie die Strichpunkte in diese Zeile kommen:
    IF(P<;>;P1)
von mir sind sie nicht - soll natürlich heissen:
    IF(P<>P1)

------------------
. owa ned jedn dog .

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

---

Na, hat ja geklappt 

------------------
Sven                 "Gilde der Erfinnder - Lehrling Stufe 5".

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

---

Hallo H.annes,

hmm ja leider noch nicht ganz richtig.
Ich sehe wie sich die Kurve erstellt, jedoch ist die nicht da d.h. der Linienzug ist kurz sichtbar auf dem Bildschirm wenn ich jedoch den Kurvenzug zoomen möchte ist er wieder wech.
Echt komisch

------------------
MFG Metz

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

---

Da brauchts noch nach dem END_LOOP ein END, um den BSPLINE-Befehl ordnungsgemäß zu beenden

------------------
meine LISP-Makros sind auf osd.cad.de
Grüße aus Wien   
   
Walter
DC4 Technisches Büro GmbH

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

---

Absolut Spitzenklasse.
besten dank an alle die mir geholfen haben.
Beim nächsten Problem komme ich gerne wieder.

------------------
MFG Metz

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

---

So, und für die Hilfe verteile ich sogleich mal wieder Us   

------------------
DIE inoffizielle Hilfeseite zum OneSpace Designer

"Es hängt alles irgendwo zusammen. Sie können sich am Hintern ein Haar ausreißen, dann tränt das Auge." Dettmar Cramer

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

---

Zitat:

---

Original erstellt von Walter Geppert:
Da brauchts noch nach dem END_LOOP ein END, um den BSPLINE-Befehl ordnungsgemäß zu beenden

---

so isses - das war der dirty-Anteil an der Lösung 

------------------
. owa ned jedn dog .

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