Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Problem mit Rückgabewert einer Funktion: Statt STR wird SYM geliefert

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 Autodesk Produkte
Autor Thema:  Problem mit Rückgabewert einer Funktion: Statt STR wird SYM geliefert (1169 mal gelesen)
JohannW.
Mitglied



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

Beiträge: 14
Registriert: 29.10.2013

Windows 7 Enterprise SP2
Core i5-2520M
8 GB RAM<P>AutoCAD 2013

erstellt am: 11. Nov. 2013 14:52    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,

ich stöpsle mir gerade eine Funktion zusammen, die einen Teil des Dateinamens ausliest und damit ein Attribut befüllt. Einzeln funktionieren die Programmteile schon, aber die Kombination macht leider Probleme.

Dateiname: XXX_XXX_------_001-002-003-030-060_XXX.dwg
Gewünschter String: /002/003/030/060

Ablauf: ExtractPartofFilename liest den Dateinamen aus und baut den gewünschten String unter Zuhilfename der Funktion split_string (stammt von hier) zusammen [EDIT: Link ausgebessert]. Wenn ich den String jetzt in einer weiteren Funktion (hier: testfunction) benutzen will um die eingebaute Funktion -attedit zu füttern, stoße ich auf einen Fehler - es wird statt einem String ein Symbol übergeben.

Eine Überprüfung mittels (type ...) ergibt, dass am Ende von ExtractPartofFilename die Variable immer noch ein String ist, nach testfunction aber nicht mehr; woran könnte das liegen?

Hier mein Code:

Code:
(defun c:testfunction ()

(setq temp (ExtractPartofFilename))

(princ "Type der Variable nach testfunction:\n")
(princ (type temp))
(princ "\n")
(princ temp)

(princ "\n")
;(command "._attedit" "_N" "_N" "Testblock" AttrTag "*" CurAttrValue NewAttrValue)
;(setvar "CMDECHO" 1)
(princ)
)

(defun ExtractPartofFilename (/ tz dwgname test counter finalstring)
(setq tz "/")
(setq dwgname (substr (getvar "dwgname") 1 (- (strlen(getvar "dwgname")) 4)))
(setq test (split_string dwgname "-"))
(setq test (cddr test))
(setq test (subst (car (split_string (last test) "_")) (last test) test))

(setq finalstring (strcat tz (car test)))
(setq counter 1)

(while (< counter (length test))
(setq finalstring (strcat finalstring tz (nth counter test)))
(setq counter (+ counter 1))
);while

(princ "Type der Variable nach ExtractPartofFilename:\n")
(princ (type finalstring))
(princ "\n")
(princ finalstring)
; (princ (type finalstring))
(princ) ;clean exit
);end of defun

(defun split_string (target delimeter / )
  ;; Get the length of the target string. We will need this for the loop below.
  (setq target_length (strlen target))

  ;; Set-up the loop.
  (setq counter 1) ;; Counter used to access the correct character in the string.
  (setq first_char_parsed 0) ;; Boolean flag to determine if we have already parsed the first character in the string
  ;; or the first character after a delimeter.
  (setq first_string_made 0);; Boolean flag to determine if we have already separated the first substring from the target.

  (repeat target_length
    (setq current_char (substr target counter 1))

    (if (not (= current_char delimeter))
      ;; The character was not the delimeter.
      (progn
;; If this was the first character we need to set up a new string.
        (if (= first_char_parsed 0)
  ;; This was the first character. Make a new string. Set first_char to 1.
  (progn
    (setq current_string current_char)
    (setq first_char_parsed 1)
  );; end progn
 
  ;; This was not the first character. Append the current character to the existing string.
  (setq current_string (strcat current_string current_char))
);; end if
      );; end progn

      ;; The character was the delimeter.       
      (progn
;; if the delimeter is the first character encountered, ignore it.
  (if (= first_char_parsed 0)
  ;; We just parsed the first character.
  (setq first_char_parsed 0)

  ;; We did not just parse the first character. So we need to add the current string to our list of strings. Then set first_char to 0.
  (progn
    ;; If this is the first substring we separated, we need to create a new list.
    (if (= first_string_made 0)
      ;; This is the first substring. Create the list and set the first_string flag to 1.
      (progn
(setq to_return (list current_string))
(setq first_string_made 1)
(setq first_char_parsed 0)
      )
      ;; This is not the first substring. Append the current string to the list that is already been created.
      (progn
(setq to_return (append to_return (list current_string)))
        ;; Now reset the first_char flag so we start building a new string.
        (setq first_char_parsed 0)
      )
    );; end if
  );; end progn    
);; end if
      );; end progn
    );; end if

    ;; If the character is the last character in the target string, we need to add the current string to the list. This code
    ;; is needed because most strings aren't terminated by the delimeter.
    (if (= counter target_length)
      ;; We want to ignore the last character if it is the delimeter.
      (if (not (= current_char delimeter))
        (setq to_return (append to_return (list current_string)))
      )
    );; end if
   
    ;; Increment the counter.
    (setq counter (+ counter 1))
  );; end repeat

      (setq to_return to_return)
  );; end defun 



lg,

Johann

[Diese Nachricht wurde von JohannW. am 11. Nov. 2013 editiert.]

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

JohannW.
Mitglied



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

Beiträge: 14
Registriert: 29.10.2013

Windows 7 Enterprise SP2
Core i5-2520M
8 GB RAM<P>AutoCAD 2013

erstellt am: 11. Nov. 2013 15:13    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

Achja: Ganz wichtig ist mir die Kompatibilität mit der Core Console -> deswegen fallen alle vl- und acet- Funktionen für die Lösung weg.

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

cadffm
Moderator
良い精神




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

Beiträge: 21533
Registriert: 03.06.2002

Alles

erstellt am: 11. Nov. 2013 15:14    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 JohannW. 10 Unities + Antwort hilfreich

Servus, der tote Link sollte vermutlich zu SourceForge.net gehen und zu deinem Problem:

Deine Funktion ExtractPartofFilename liefert nichts zurück, der letzte Eintrag ist (princ)
und (princ) liefert eben nicht deinen String.
Das Ende der Funktion sollte also so aussehen:

...
  );while
finalstring
  ;und wenn du die Ausgabe am Montitor sehen möchtest, gerne auch (princ finalstring)
);end of defun

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

JohannW.
Mitglied



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

Beiträge: 14
Registriert: 29.10.2013

Windows 7 Enterprise SP2
Core i5-2520M
8 GB RAM<P>AutoCAD 2013

erstellt am: 11. Nov. 2013 15:24    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

Ah, das das ergibt Sinn! Jetzt wird wie gewünscht ein String geliefert. Vielen, vielen Dank!

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

cadplayer
Ehrenmitglied
CADniker


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

Beiträge: 1832
Registriert: 28.04.2009

erstellt am: 12. Nov. 2013 10:00    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 JohannW. 10 Unities + Antwort hilfreich


textfield.dwg.txt

 
warum verwendest du eigentl. nicht das Acad repertoire (siehe Anhang)

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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



Produktionsingenieur (m/w/d) Beleuchtung
Die LED Linear GmbH wurde 2006 gegründet und ist heute ein international erfolgreicher Premium-Hersteller von linearen LED-Beleuchtungssystemen. Seit 2016 gehören wir zur schwedischen Fagerhult-Gruppe mit 665 Millionen Euro Umsatz und 4.400 Mitarbeiter*innen, einem der größten und erfolgreichsten Leuchten-Unternehmen in Europa.

Wir suchen Sie zum nächstmöglichen Zeitpunkt an unserem ...
Anzeige ansehenProzessmanagement
JohannW.
Mitglied



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

Beiträge: 14
Registriert: 29.10.2013

Windows 7 Enterprise SP2
Core i5-2520M
8 GB RAM<P>AutoCAD 2013

erstellt am: 12. Nov. 2013 10:43    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

Ursprünglich habe ich es auch mit Diesel in Schriftfeldern gelöst, leider kann der Dateiname an einer bestimmten Stelle variabel sein (d.h. es gibt einen Freitext, der keine fixe Länge hat). Das übersteigt leider die Fähigkeiten von Diesel, deswegen der Weg über Lisp.

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