Vytisknout stránku | Zavřít okno

Výběr více souborů

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=14381
Datum vytištění: 16.čer.2026 v 11:30


Téma: Výběr více souborů
Odeslal: pavelstyl
Předmět: Výběr více souborů
Datum odeslání: 26.led.2012 v 11:37
Ještě mi to nedalo 
(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)
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


Odpovědi:
Odeslal: alfred
Datum odeslání: 26.led.2012 v 13:02
Možná by to za to stálo.

Mimochodem:
Původně odeslal(a) pavelstyl pavelstyl napsal(a):

Ještě mi to nedalo 
(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)


(vlax-get-or-create-object "UserAccounts.CommonDialog")
mi vrací NIL

Odeslal: Vladimír Michl
Datum odeslání: 26.led.2012 v 13:16
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?

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)


Vytisknout stránku | Zavřít okno