[swkx]

Что-то я перегрелся к вечеру

Объясните, плиз, как строку

X:\Dir1\Dir2
преобразовать в строку
X:\\Dir1\\Dir2
Какая-то неразбериха с кавычками и слэшами...

И ещё: можно ли программно получить путь папки Рабочего стола ?

[Александр Ривилис]

Сообщение от swkx преобразовать в строку

Зачем?

Сообщение от swkx И ещё: можно ли программно получить путь папки Рабочего стола ?

Можно. Как вариант прочитать значение переменной Desktop из ключа реестра:

Код:

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

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

[swkx]

Спасибо!

А вопрос про преобразования строк всплыл, потому что оказалось, что функция

(vl-string-subst "НовыйКусокСтроки" "СтарыйКусокСтроки" ВсяСтрока)

почему-то меняет только первый попавшийся ей на глаза "СтарыйКусокСтроки".
А остальными, если таковые имеются, что делать ?

[Дима_]

Сообщение от swkx почему-то меняет только первый попавшийся ей на глаза "СтарыйКусокСтроки". А остальными, если таковые имеются, что делать ?

Изучать рекурсию.

[swkx]

Сообщение от Дима_ Изучать рекурсию.

Ну! Так каждый дурак может

Просто гораздо логичнее выглядело бы
(vl-string-subst "НовыйКусокСтроки" "СтарыйКусокСтроки" "ВсяСтрока" [СкокаРазЗаменить])

Нет параметра [СкокаРазЗаменить] - меняй всё подряд.

Или похожая функция всё-таки есть ?

[hwd]

Сообщение от swkx Или похожая функция всё-таки есть ?

Даже если нет, что мешает самому написать её? За то время, что ты здесь потратил на этот топик, уже можно было 100 раз написать её и забыть за проблему.

[swkx]

hwd, прав абсолютно!

Если бы проблема не отпала сама собой через час после появления, так бы и сделал.

А так, поскольку я старый и ленивый, решил просто поворчать и мысли высказать

[Do$]

Иногда полезно заглянуть в готовые функции:
http://forum.dwg.ru/showthread.php?t=15661

[skkkk]

Может, уже и не актуально, но всё же отпишусь. Если речь о системной переменной DWGPREFIX, которая возвращает путь расположения текущего файла чертежа в виде X:\Dir1\Dir2\, то конструкция (getvar "DWGPREFIX") вернёт X:\\Dir1\\Dir2\\

>Do$
а готовая библиотечная функция dwgru-string-replace слэши воспринимает как переход на новую строку - и ничего не выходит.

[Do$]

Сообщение от skkkk а готовая библиотечная функция dwgru-string-replace слэши воспринимает как переход на новую строку - и ничего не выходит

Вот лично я из этой фразы проблемы не понял. Лучше код показывайте, а то когда вы своими словами что-то объяснять пытаетесь, мозг взрывается

[VVA]

Сообщение от swkx можно ли программно получить путь папки Рабочего стола ?

Парочку функций

Код:

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

(defun mip-get-special-folder (folder / WS ret)
;;; Функция для определения одной из "специальных папок" Windows
;;; folder может быть:
;;; "AllUsersDesktop" - Windows 2000, Windows XP
;;; "AllUsersStartMenu" - Windows 2000, Windows XP
;;; "AllUsersPrograms" - Windows 2000, Windows XP
;;; "AllUsersStartup" - Windows 2000, Windows XP
;;; "Desktop" - Windows 98/ME, Windows 2000, Windows XP
;;; "Favorites" - Windows 98/ME, Windows 2000, Windows XP
;;; "Fonts" - Windows 98/ME, Windows 2000, Windows XP
;;; "MyDocuments" - Windows 98/ME, Windows 2000, Windows XP
;;; "NetHood" - Windows 98/ME, Windows 2000, Windows XP
;;; "PrintHood" - Windows 98/ME, Windows 2000, Windows XP
;;; "Programs" - Windows 98/ME, Windows 2000, Windows XP
;;; "Recent" - Windows 98/ME, Windows 2000, Windows XP
;;; "SendTo" - Windows 98/ME, Windows 2000, Windows XP
;;; "StartMenu" - Windows 98/ME, Windows 2000, Windows XP
;;; "Startup" - Windows 2000, Windows XP
;;; "Templates" - Windows 2000, Windows XP
;;; Возвращает или путь, или ""
;;; Пример:
;;;  (mip-get-special-folder "PrintHood")
(vl-load-com)
  (and
    (setq WS (vlax-get-or-create-object "WScript.Shell"))
    (setq folder (mip-conv-to-str folder))
    (setq ret (vlax-invoke-method (vlax-get-property WS "SpecialFolders") "Item" folder))
    (vlax-release-object ws)
    )
  ret
);defun

и

Код:

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

(defun _GetSpecialFolder ( int / fso fob res )
;;; USE: (_GetSpecialFolder 0) ;_"C:\\Windows"
;;; USE: (_GetSpecialFolder 1) ;_"C:\\Windows\\System32"
;;; USE: (_GETSPECIALFOLDER 2) ;_"C:\\Users\\azarko\\AppData\\Local\\Temp"
;;; http://www.theswamp.org/index.php?topic=39415.0
;;; http://msdn.microsoft.com/en-us/library/a72y2t1c%28v=VS.85%29.aspx
    (vl-catch-all-apply
       '(lambda nil
            (setq fso (vlax-create-object "Scripting.FileSystemObject")
                  fob (vlax-invoke-method fso 'getspecialfolder int)
                  res (vlax-get-property fob 'path)
            )
        )
    )
    (if fob (vlax-release-object fob))
    (if fso (vlax-release-object fso))
    res
)

По поводу замены можно попробовать эту

Код:

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

    (defun mip-string-subst (newchar curchar str / pos)
    ;|===========================================================================================
Функция заменяет в строке str все встречающие сочетания символов chars_old на chars_new. 
Фактически является расширением функции vl-string-subst, которая заменяет только первое
попавшееся сочетание
* Регистрозависимо
*	newchar	новая подстрока
*	curchar	старая подстрока
*	str		исходная строка
*    Примеры вызова:
(mip-string-subst "Па" "Ма" "Мама мыла раму")
; "Пама мыла раму" 
=============================================================================|;      
      (setq pos 0)
      (while (setq pos (vl-string-search curchar str pos))
        (setq str (vl-string-subst newchar curchar str)
              pos (+ (strlen newchar) pos)
        ) ;_ end of setq
      ) ;_ end of while
      str
    ) ;_ end of defun

[gomer]

skkkk, надеюсь ты уже понял, где слажал, если нет, то:

Код:

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

 (princ (getvar 'dwgprefix))

Сообщение от Do$ Иногда полезно заглянуть в готовые функции:

а иногда и вредно!

[skkkk]

Сообщение от Do$ Лучше код показывайте, а то когда вы своими словами что-то объяснять пытаетесь, мозг взрывается

Да, сэнсэй, как скажешь... Мозг-то собрать смогёшь? ("Вы" - это мы - ламеры, как я понимаю)

Код:

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

(dwgru-string-replace "X:\Dir1\Dir2" "\" "\\")

- вот так не выходит. Только непонятно, что непонятного? Как правильно-то эту загвоздку объяснить?
>VVA

Код:

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

(mip-string-subst "\\" "\" "X:\Dir1\Dir2")

- тоже не получается. В обоих случаях выдает

Код:

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

(">

В принципе, замена одного символа на два таких же работает, но не со слэшем.

[Do$]

Код:

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

"X:\Dir1\Dir2"

- откуда такая строка появляется? В лиспе она равнозначна вот такой:

Код:

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

"X:Dir1Dir2"

Если же в строке есть одинарные слеши, то строка должна выглядеть так: "X:\\Dir1\\Dir2". Эта особенность из-за использования такого слеша в спецсимволах: \n, \r, \t и т.п.
Это еще полезно почитать.

[gomer]

Сообщение от Do$ - откуда такая строка появляется?

из командной строки

[Кулик Алексей aka kpblc]

gomer, что-то у тебя не то:

Код:

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

Command: (setq aa (getstring t "\nEnter string:"))

Enter string:c:\program files\autocad 2009
"c:\\program files\\autocad 2009"

Command: !aa
"c:\\program files\\autocad 2009"

[skkkk]

Сообщение от Do$ - откуда такая строка появляется?

см. #9. Я в лиспе нуб-самоучка, поэтому шагаю иной раз по граблям Ну не сразу я сообразил, что чтобы получить "X:\\Dir1\\Dir2", надо сказать (getvar "DWGPREFIX"), а не (dwgru-string-replace (vl-princ-to-string "DWGPREFIX") "\" "\\"). Ноги вообще растут отсюда.

Сообщение от gomer skkkk, надеюсь ты уже понял, где слажал, если нет, то: Код: [Выделить все] (princ (getvar 'dwgprefix))

Не понял... Это вернуло мне

Код:

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

E:\Temp\"E:\\Temp\\"

а мне-то нужно

Код:

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

"E:\\Temp\\"

. В чем подвох?
Вообще я уже написал себе команду, уже пользуюсь во всю, кайфую, осталось отлов ошибок замутить, обработку там кнопки Отмена и всякое такое... Выложу код тогда уж вам совсем поржать

Код:

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

(defun C:my-imageattach (/ pt1 pt2)
	(command 
		"_-image" 
		"В";русская опция 
		(strcat 
			(getvar "DWGPREFIX") 
			(vl-princ-to-string 
				(mydcl "Выберите файл" 
					(mapcar 
						(function 
							(lambda(x) 
								(strcat 
									(vl-filename-base x)
									(vl-filename-extension x)
								);end strcat
							);end lambda
						);end function
						(dwgru-browsefiles-in-directory (getvar "DWGPREFIX") "*.jpg" nil)
					);end mapcar
				);end mydcl
			);end vl-princ-to-string


		);end strcat 
		pause 
		"0.1" 
		""

		"_draworder"
		"_l"
		""
		"А";русская опция

		"_rotate"
		"_l"
		""
		(setq pt1 (getpoint "Укажите первую точку линии, которая должна стать горизонтальной"))
		"_r"
		(getvar "lastpoint")
		(setq pt2 (getpoint "Укажите вторую точку линии"))
		(polar pt1 0 5)
	);end command

);end defun

Используется функция mydcl от VVA и dwgru-browsefiles-in-directory. Команда выдает список растров в папке с текущим чертежом, вставляет выбранный, ну и так далее...

[Кулик Алексей aka kpblc]

(setq aa (getvar 'dwgprefix))
И проверь значение аа.

[skkkk]

Код:

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

(dwgru-browsefiles-in-directory (getvar "DWGPREFIX") "*.jpg" nil)

А так неправильно что ли? Работает ведь.

[gomer]

skkkk, посмотри функцию princ что она делает и что возвращает!
даю наводку, то что ты видишь в ком. строке вводит тебя в заблуждение