• На форуме с 31 августа 2005г.
  • Сообщений: 3
  • Спасибо: 0

Тема: Lisp и "Browse for Folder"

Как из лиспа вызвать стандартное Windows-окно "Browse for Folder" и получить указанный в этом окне адрес ?
(GETFILED) не подходит, поскольку папка может быть пуста (или даже она еще не существует, а в "Browse..." будет тут же создана).
Спасибо.

  • serzh
  • Восстановленный участник
  • На форуме с 23 марта 2005г.
  • Сообщений: 341
  • Спасибо: 0

Re: Lisp и "Browse for Folder"

(defun BrowseFolder ( / ShlObj Folder FldObj OutVal)
  (vl-load-com)
  (setq
    ShlObj (vla-getInterfaceObject
       (vlax-get-acad-object)
       "Shell.Application"
     )
    Folder (vlax-invoke-method ShlObj 'BrowseForFolder 0 "" 0)
  )
  (vlax-release-object ShlObj)
  (if Folder
    (progn
      (setq
  FldObj (vlax-get-property Folder 'Self)
  OutVal (vlax-get-property FldObj 'Path)
      )
      (vlax-release-object Folder)
      (vlax-release-object FldObj)
      OutVal
    )
  )
)
;(BrowseFolder)
Код от сюда - http://discussion.autodesk.com

  • serzh
  • Восстановленный участник
  • На форуме с 23 марта 2005г.
  • Сообщений: 341
  • Спасибо: 0

Re: Lisp и "Browse for Folder"

> Шарапов К.Э.
или doslib качайте.

  • На форуме с 31 августа 2005г.
  • Сообщений: 3
  • Спасибо: 0

Re: Lisp и "Browse for Folder"

> serzh
Очень благодарен!

serzh пишет:

"или doslib качайте"

Это есть, но пока ну его в баню.
Тягай ради "Browse..." весь doslib везде и повсюду...................