Ještě mi to nedalo
[CODE](setq dlg (vlax-get-or-create-object "UserAccounts.CommonDialog"))(vlax-put-property dlg 'flags (+ 524288 512)) ; Explorer + multiselect 524288(vlax-put-property dlg 'filter "AutoCAD drawing (*.dwg)|*.dwg|All files (*.*)|*.*")(vlax-invoke dlg 'showopen)(print (vlax-get-property dlg 'filename))(if dlg (vlax-release-object dlg))(princ)[/CODE]
Pokud to zavolám takto a vyberu více souborů, tak (vlax-get-property dlg 'filename) vrací soubory oddělené null znakem. A to lisp domnívám se neumí přečíst. Nebo ano?
Pokud nechám flags pouze na 512, tak to zavolá starý dialog a oddělí názvy souborů mezerami, ale jsou to short names.
Jak z toho ven?
 
Pavel Štyl

Možná by to za to stálo. Mimochodem:[QUOTE=pavelstyl]Ještě mi to nedalo
[CODE](setq dlg (vlax-get-or-create-object "UserAccounts.CommonDialog"))(vlax-put-property dlg 'flags (+ 524288 512)) ; Explorer + multiselect 524288(vlax-put-property dlg 'filter "AutoCAD drawing (*.dwg)|*.dwg|All files (*.*)|*.*")(vlax-invoke dlg 'showopen)(print (vlax-get-property dlg 'filename))(if dlg (vlax-release-object dlg))(princ)[/CODE][/QUOTE](vlax-get-or-create-object "UserAccounts.CommonDialog")mi vrací NIL

Tenhle objekt v novějších Windows neexistuje. Ale jak přesně vypadá ta struktura? Jen dlouhý string s NULL znaky mezi jednotlivými soubory?