Schöck
Показать сообщение отдельно
Непрочитано 28.11.2007, 22:50 #1
DwgRuLispLib: Преобразование значения в строку
Кулик Алексей aka kpblc
Moderator
 
LISP, C# (ACAD 200[9,12,13,14])
 
С.-Петербург
Регистрация: 25.08.2003
Сообщений: 37,457

Код:
[Выделить все]
(defun _dwgru-conv-value-to-string (value)
                                   ;|
*    Преобразование значения в строку. Для nil возвращает пустую строку.
*    Примеры вызова:
(_dwgru-conv-value-to-string 123)	; "123"
(_dwgru-conv-value-to-string 123.50)	; "123.5"
(_dwgru-conv-value-to-string "qwer")	; "qwer"
|;
  (cond
    ((not value) "")
    ((= (type value) 'str) value)
    (t (vl-princ-to-string value))
    ) ;_ end of cond
  ) ;_ end of defun
P.S. Код сформирован благодаря Александру Ривилису.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.

Последний раз редактировалось Кулик Алексей aka kpblc, 29.11.2007 в 00:27.
Просмотров: 22569
 
Размещение рекламы