Author Topic: FileDialog start in?  (Read 1788 times)

0 Members and 1 Guest are viewing this topic.

TimSpangler

  • Water Moccasin
  • Posts: 2010
  • CAD Naked!!
FileDialog start in?
« on: November 14, 2007, 12:56:53 PM »
I'm using TonyT's FileDialog.lsp to select a file, and I was wondering if it is possible to have it open to a certian folder?
ACA 2015 - Windows 7 Pro
All Comments and Content by TimSpangler, Copyright © 2016

TimSpangler

  • Water Moccasin
  • Posts: 2010
  • CAD Naked!!
Re: FileDialog start in?
« Reply #1 on: November 14, 2007, 01:14:07 PM »
Nevermind:

Code: [Select]
;; Create browse for folder dialog box for folder selection
;; By Tony Tanzillo
(defun PLOT_FILE_DIA (Message[color=red] Directory[/color] / sh folder folderobject result)

(setq sh (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application"))
(setq folder (vlax-invoke-method sh 'BrowseForFolder (vla-get-HWND (vlax-get-acad-object)) Message 0 [color=red]Director[/color]y ))
(vlax-release-object sh)
(if folder
(progn
(setq folderobject (vlax-get-property folder 'Self))
(setq result (vlax-get-property FolderObject 'Path))
(vlax-release-object folder)
(vlax-release-object FolderObject)
(if (/= (substr result (strlen result)) "\\")
(setq result (strcat result "\\"))
result
)
)
)
)

This seems to work
ACA 2015 - Windows 7 Pro
All Comments and Content by TimSpangler, Copyright © 2016