String (Autodesk/Lisp) - Foren auf CAD.de

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Exklusives EDU-Programm für RTX PRO Blackwell, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: String (482 mal gelesen)

RoyCAD
Mitglied
Dipl-Ing Energietechnik

Senden Sie eine Private Message an RoyCAD

Schreiben Sie einen Gästebucheintrag für RoyCAD

Beiträge: 206
Registriert: 24.05.2004

Win XP
AutoCAD2008-2010
Inventor 2008-2010
Productstream Compass
P4 3,0GHz
512MB Ram

erstellt am: 30. Nov. 2006 16:05

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

"1.-1x148.0/29.7"
"2.-15x48.0/290.7"

Wie kann ich so ein String auseinander nehmen um sowas zu bekommen

(setq a 1 b 1 c 148.0 d 29.7 )
bzw
(setq a 2 b 15 c 48 d 290.7
mit substr hat kein Sinn da die Strings unterschiedliche Länge haben.

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

joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung und AutoLISPler

Senden Sie eine Private Message an joern bosse

Schreiben Sie einen Gästebucheintrag für joern bosse

Beiträge: 1781
Registriert: 11.10.2004

Window 11
ACAD 2021
CIVIL 2021
BricsCAD ab V14
11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz
32.0GB RAM
NVIDIA GeForce MX450<P>

erstellt am: 30. Nov. 2006 16:26

<-- editieren / zitieren -->

Unities abgeben:

Nur für RoyCAD

Hallo RoyCAD,
wenn die Trennzeichen ".-" "x" und "/" in jedem String gleich sind, dann kann man es doch mit substr machen:

Code:

(defun string_test (string / a b c d)
(setq a (atoi(car (setq temp(string_trenn string ".-"))))
b (atoi(car (setq temp(string_trenn (cadr temp) "x"))))
c (atof(car (setq temp(string_trenn (cadr temp) "/"))))
d (atof(cadr(string_trenn (cadr temp) "")))))
(defun string_trenn (string trennstring / x )
(list(substr string 1 (vl-string-search trennstring string))
(substr string (+(vl-string-search trennstring string)(+(strlen trennstring)1)))))

------------------
viele Grüße

Jörn

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

Anzeige:	Infos zum Werbeplatz >>
cseTools Kanalkataster CAD APP für Tiefbau, AEC - Architektur-, Ingenieur- und Bauwesen Mit dem cseTools Kanalkataster werden komfortable Funktionen zu Aufbau, Verwaltung, Berechnung, Dokumentation, Analyse und Auswertung von Kanalnetzen bereitgestellt. Als Grundlage dienen u.a. Inspektions- bzw. Befahrungsdaten inklusive Schadensbildern und -Filmen.

RoyCAD
Mitglied
Dipl-Ing Energietechnik

Beiträge: 206
Registriert: 24.05.2004

Win XP
AutoCAD2008-2010
Inventor 2008-2010
Productstream Compass
P4 3,0GHz
512MB Ram

erstellt am: 30. Nov. 2006 16:28

<-- editieren / zitieren -->

Unities abgeben:

Ich habe auch ein super Programm von Holger Brischke
es funktioniert auch Perfekt. Danke für die Hilfe

Gruß
Roy

(defun c:StringteilerTest (/ TEXT antw TRENNER)
(setq TEXT(getstring "\nText eingeben: ")
)
(while (/= ""(setq antw (getstring "\nTrennzeichen eingeben:")))
(setq TRENNER (cons (substr antw 1 1) TRENNER))
)
(STR:TRENN TEXT TRENNER)
)
(defun STR:TRENN (TEXT TRENNER / TEXTLI)
(setq TEXTLI (list TEXT))
(foreach TRENN TRENNER
(setq TEXTLI (flatten(mapcar '(lambda (TXT)
(do:TRENN TXT TRENN)
)
TEXTLI
)))
)
(vl-remove "" TEXTLI)
)
(defun flatten(liste / )
;von Axel Strube-Zettler. Danke!
(cond
((null liste)nil)
((atom liste)(list liste))
(1(append(flatten(car liste))(flatten(cdr liste))))
)
)
(defun do:TRENN (TEXT ZEICHEN / POS VTEXT NTEXT)
(if (wcmatch TEXT (strcat "*"ZEICHEN"*"))
(progn
(setq POS (vl-string-position (ascii ZEICHEN) TEXT)
VTEXT (substr TEXT 1 POS)
NTEXT (substr TEXT (+ POS 2))
)
(mapcar '(lambda (TXT)
(do:TRENN TXT ZEICHEN)
)
(list VTEXT NTEXT)
)
)
TEXT
)
)

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)

cseTools Kanalkataster CAD APP für Tiefbau, AEC - Architektur-, Ingenieur- und Bauwesen