[sdv79]

Подскажите почему
(vl-string-right-trim "." (vl-string-right-trim "LDT" "CS 50 8D.LDT"))
работает правильно и выдает "CS 50 8D"
(vl-string-right-trim ".LDT" "CS 50 8D.LDT")
выдает неправильный результат "CS 50 8" (не хватает D)

[Capiton]

Всё правильно.Она работает так Удаляет все перечисленые символы, а не заданную последовательность
можно использовать функцию дважды. Сначала удалить LTD, а потом точку.

[Do$]

Функция работает примерно так: берет крайний справа символ, сверяет, есть ли такой в образце, если есть - удаляет и берется за следующий, если нет - то заканчивает работу.
В этом случае лучше воспользоваться конструкцией:

Код:

[Выделить все]

(vl-filename-base "CS 50 8D.LDT")

[sdv79]

Почему тогда в выражении (vl-string-right-trim ".LDT" "DHR 70.LDT") все верно
и нет ошибок?
Do$ спасибо.

[Do$]

потому что
вдумчиво почитай то что выше написано

[Makswell]

Можно так вот ещё например:

Код:

[Выделить все]

(cadr (fnsplitl "CS 50 8D.LDT"))

[Do$]

Откуда такой зверь: fnsplitl?
Мой автокад ее распознал, но в справке о ней ничего нет!
Из экспрессов чтоли?

[Makswell]

Это недокументированная, но тем не менее стандартная функция Автолиспа.
Ибо:

_$ (atoms-family 1 '("fnsplitl")) ("FNSPLITL")

А работает она так:

_$ (fnsplitl "D:\\path\\CS 50 8D.LDT") ("D:\\path\\" "CS 50 8D" ".LDT") _$ (fnsplitl "CS 50 8D.LDT") ("" "CS 50 8D" ".LDT") _$ (fnsplitl "D:\\path\\") nil

[sdv79]

попробовал fnsplitl без экспресса, работает.
Do$, подскажи не понимаю.
(vl-string-right-trim ".LDT" "CS 50 8D.LDT")
выдаст"CS 50 8" т.е удаляет D
(vl-string-right-trim ".LDT" "DHR 70.LDT")
выдаст "DHR 70"
Судя по #3 должно удалить D? при этом вернуть "HR 70"

[Do$]

vl-string-right-trim
удаляет символы только справа.

Сообщение от sdv79 (vl-string-right-trim ".LDT" "DHR 70.LDT") выдаст "DHR 70"

"D" осталась потому, что слева в строке находится.
Вот если использовать vl-string-trim, тогда и слева и справа символы поудаляются.
Makswell, получается, эта FNSPLITL то же самое, что:

Код:

[Выделить все]

(lambda (str)
   (if (/= (vl-filename-base str) "")
     (list (vl-filename-directory str)
    (vl-filename-base str)
    (vl-filename-extension str)
     ) ;_ end of list
   ) ;_ end of if
 ) ;_ end of lambda

То есть три функции "в одном флаконе"?

[Makswell]

Сообщение от Do$ То есть три функции "в одном флаконе"?

Ага, видимо так.