Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  PTC Creo Elements/Direct Modeling
  Kontur über LISP erzeugen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für PTC CREO
Autor Thema:  Kontur über LISP erzeugen (1367 mal gelesen)
jpsonics
Mitglied
Auftragsabwicklung und Konstruktion


Sehen Sie sich das Profil von jpsonics an!   Senden Sie eine Private Message an jpsonics  Schreiben Sie einen Gästebucheintrag für jpsonics

Beiträge: 704
Registriert: 04.01.2006

Master of the Unicorns

erstellt am: 24. Mai. 2018 10:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Huhu WBF,

vielleicht kann mich mal kurz jmd. in die richtige Richtung schupfen.

Ausgangslage (Was bisher geschah) oder wie weit es bisher funktioniert:

- Externes Program erzeugt eine Punkteliste (X|Y) als *.csv
- Über LISP wird die *.csv eingeladen und ein Spline wird erzeugt

nun brauche ich zur weiteren Verarbeitung ein wenig zusätzliche (und im Prinzip immer gleiche) Kontur.

Code:
;;-------------------------------------
;;--  Zusaetzliche Kontur erzeugen  --
;;-------------------------------------
( display ( first L_list ) )
( display ( last L_list ) ) ; Anzeige ( last L_list ) funktioniert
;; R50
( sd-call-cmds ( 2dcopilot :arc_center_mode :real_geometry 0,0 ( first L_list ) 44.7950157118,22.2127568614))
;; R70
( sd-call-cmds ( 2dcopilot :arc_center_mode :real_geometry 0,0 70,0 ( last L_list ))) ; ( last L_List ) wird nicht akzeptiert. WARUM????
;; Polyline
( sd-call-cmds ( 2dcopilot :line_mode :real_geometry 44.7950157118,22.2127568614 39.9299,30.6393 35.2846,35.2849))
;;-- ENDE Zusaetzliche Kontur ---------

bei ";; R70" bekomme ich die Fehlermeldung:

Zitat:
"Sie haben eine ungültige Option oder Daten-Zeichenkette eingegeben.   (Fehler 139)"

Dies liegt zweifelsohne an "( last L_List )", denn wenn ich hier irgendwelche Koordinaten eingebe wird der Bogen gezeichnet. Mich irritiert dabei, dass " (display ( last L_List ) )" aber tadellos funktioniert.

Wo liegt hier mein denkfehler???  

Vielen lieben Dank euch schon mal.

[EDIT] Nachtrag: der Punkt ( last L_list ) liegt im übrigen definitiv auf einem Kreis mit R70. zig mal nachgemessen und auch rechnerisch auf 10 Kommastellen genau [/EDIT]

------------------
Grüße.
Christian -jpsonics- J.
-----------------------------------------------
Einmal immer !!!
-----------------------------------------------
This post was sent using 100 recycled electrons

[Diese Nachricht wurde von jpsonics am 24. Mai. 2018 editiert.]

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

lix b
Mitglied
Konstrukteur, CAD-Admin


Sehen Sie sich das Profil von lix b an!   Senden Sie eine Private Message an lix b  Schreiben Sie einen Gästebucheintrag für lix b

Beiträge: 279
Registriert: 03.10.2014

Creo Elements / Direct Modeling 20.2.1.0
Creo Elements / Direct Model Manager 20.2.1.0
Creo 5.0.2.0 Simulate
<P>Notepad++
Win 10

erstellt am: 24. Mai. 2018 12:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für jpsonics 10 Unities + Antwort hilfreich

Hi!

Öffne mal die Konsole und vergleiche die Ausgabe von

Code:
( pprint( first L_list ) )

und

Code:
( pprint( last L_list ) )

------------------
Viele Grüße
Felix

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

jpsonics
Mitglied
Auftragsabwicklung und Konstruktion


Sehen Sie sich das Profil von jpsonics an!   Senden Sie eine Private Message an jpsonics  Schreiben Sie einen Gästebucheintrag für jpsonics

Beiträge: 704
Registriert: 04.01.2006

Master of the Unicorns

erstellt am: 24. Mai. 2018 12:40    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Felix,

ist das gleiche Ergebnis wie mit (display):

Code:
47.615352880000003,15.25706952
(69.909358040000001,3.5611315509999999)

zum vergleich die Werte aus der *.csv:

Code:
47,61535288;15,25706952
...
69,90935804;3,561131551

------------------
Grüße.
Christian -jpsonics- J.
-----------------------------------------------
Einmal immer !!!
-----------------------------------------------
This post was sent using 100 recycled electrons

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

taino
Mitglied
CAD Konstrukteur


Sehen Sie sich das Profil von taino an!   Senden Sie eine Private Message an taino  Schreiben Sie einen Gästebucheintrag für taino

Beiträge: 93
Registriert: 11.06.2013

PTC Creo Elements/Direct Modeling 19

erstellt am: 25. Mai. 2018 12:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für jpsonics 10 Unities + Antwort hilfreich

Hallo

probier es mal so:

(sd-call-cmds (2dcopilot :arc_center_mode :real_geometry 0,0 70,0 (first (last L_list))))

Das Problem mit dem last und first kämpfe ich auch ab und zu mal.

Gruß

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

jpsonics
Mitglied
Auftragsabwicklung und Konstruktion


Sehen Sie sich das Profil von jpsonics an!   Senden Sie eine Private Message an jpsonics  Schreiben Sie einen Gästebucheintrag für jpsonics

Beiträge: 704
Registriert: 04.01.2006

Master of the Unicorns

erstellt am: 25. Mai. 2018 12:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Mahlzeit Taino,

DANKE, das hat funktioniert.

------------------
Grüße.
Christian -jpsonics- J.
-----------------------------------------------
Einmal immer !!!
-----------------------------------------------
This post was sent using 100 recycled electrons

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

der_Wolfgang
Ehrenmitglied V.I.P. h.c.
Tastenhauer


Sehen Sie sich das Profil von der_Wolfgang an!   Senden Sie eine Private Message an der_Wolfgang  Schreiben Sie einen Gästebucheintrag für der_Wolfgang

Beiträge: 2017
Registriert: 3.20.

● PE6+8@home
● W10 Pro Build19044.2364
● Drafting V20.1+4
● Modeling V20.1+4

erstellt am: 27. Mai. 2018 16:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für jpsonics 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von jpsonics:
ist das gleiche Ergebnis wie mit (display):

Code:
47.615352880000003,15.25706952
(69.909358040000001,3.5611315509999999)


Ich würde trotzdem IMMER pprint bevorzugen  (oder gar (format T ... ) )

vergleiche:
  (pprint :no-error) (pprint "ein String")  (pprint pi)
versa
  (display :no-error) (display "ein String")  (pprint pi)

keywörter sind keine keywörter mehr, strings keine strings. So was verfälschtes (mit display) ist gerade für weniger erfahrene eher schlecht.

TIP: (oli:sd-show-console-window) aufrufen wenn man loslegt zu lispeln (wenn man schon nicht mit -v gestartet hat)

___________________________________


in deinem Fall lag das Problem aber darin , das (LAST liste) wieder eine liste zurückliefert.
weil:
(LAST liste 5)  geht nämlich auch, und liefert die letzten 5 Elemente, und dann ist auch klar warum da ne liste zurückkommt.
(LAST liste 1) ist der default fuer einen (LAST liste) Aufruf. Aber eben auch hier ist es eine Liste und kein einzelnes Object.

------------------
Firefox ESRJava Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en)NotePad++BuFDi

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

jpsonics
Mitglied
Auftragsabwicklung und Konstruktion


Sehen Sie sich das Profil von jpsonics an!   Senden Sie eine Private Message an jpsonics  Schreiben Sie einen Gästebucheintrag für jpsonics

Beiträge: 704
Registriert: 04.01.2006

Master of the Unicorns

erstellt am: 04. Jun. 2018 14:04    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Wolfgang,

vielen Lieben Dank für die Erläuterungen. (Ja, ich fange mit LISP leider gerade erst an.)

Hier und da fehlt mir hier noch so ein wenig die Logik "First" spuckt den ersten Wert aus, "Last" aber eine Liste?  (Hätte man in der Doku aber auch herausfinden können, wenn man ordentlich gelesen hätte  )
Hatte es auch mal mit "NTH" probiert und bin ebenfalls kläglich gescheitert. Ich sehe aber schon, das Thema wird mich noch laaaaaaange begleiten und mir so manch einen "interessanten" Abend bereiten 

------------------
Grüße.
Christian -jpsonics- J.
-----------------------------------------------
Einmal immer !!!
-----------------------------------------------
This post was sent using 100 recycled electrons

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz