Newsgroup: it.comp.software.cad
Titolo: Finestra di dialogo file in AutoCAD2000i

In AutoCAD 2000i ho un problema con la 'Finestra di dialogo standard 
per la selezione dei file', e non sono riuscito a trovare la soluzione 
nella guida in linea nè nel manuale.
Non riesco ad impostarla in modo che di default la Vista dei file sia 
del tipo 'Dettagli'; invece mi compaiono sempre le icone, il che mi 
crea problemi di navigazione, specie da tastiera. Se pure imposto per 
la Vista su dettagli, cambiando cartella perdo l'impostazione.
Potete aiutarmi?
Grazie
-- 
Ciao, DOCstone

parecchie volte ho visto questa richiesta, 
ma nessuna risposta risolutiva
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio 
news:mn.33207d85b...@DOC.stone...


 Ciao Claudio
infatti č quella la procedura,
ma in alcuni casi, solo con la versione 2000ě,
 non funziona


 ma nessuna risposta risolutiva
In effetti i forum di autodesk ne sono pieni.
Un piccolo passo l'ho fatto così:
" You can change the registry entries for ViewMode in the keys "Select 
File" and "Save Drawing As" to 4 which is the setting for Details.  
When you do so the Autocad dialogs will open in the correct mode, but 
as soon as you change directories the ViewMode reverts to 1 which 
displays the icons.  Obviously, Autocad initializes with the correct 
registry entry and then loses it."
http://discussion.autodesk.com/thread.jspa?messageID=259127
Ma non c'è un modo per impedire ad autocad di modificare le relative 
chiavi di registro?
-- 
Ciao, DOCstone

 chiavi di registro?
se risolvi fai sapere


 se risolvi fai sapere
2 strade, entrambe da verificare, entrambe lette su
http://www.experts-exchange.com/Software/Photos_Graphics/CAD_Architecture/AutoCAD/Q_22738217.html
La prima è un lisp introvabile, la seconda credo sia una routine in VB, 
ma non so leggerne il codice, nè so come usarlo.
-------------------------------------------
I found mentions of an app called explorer.lsp that would fix this 
issue at Autodesk and even EE....unfortunatly, a links to this app 
seems to be broken/outdated..."
-------------------------------------------
I decided to do this:
Form this link:
http://www.codeguru.com/forum/showthread.php?s=&threadid=267394&highlight=registry
I butchered the code to the below:
In a module
Option Explicit
Public Const HKEY_CLASSES_ROOT As Long = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE As Long = &H80000002
Public Const HKEY_USERS As Long = &H80000003
Public Const HKEY_PERFORMANCE_DATA As Long = &H80000004
Public Const HKEY_CURRENT_CONFIG As Long = &H80000005
Public Const HKEY_DYN_DATA As Long = &H80000006
Const REG_SZ = 1
Const REG_EXPAND_SZ = 2
Const REG_BINARY = 3
Const REG_DWORD = 4
Const REG_MULTI_SZ = 7
Const ERROR_MORE_DATA = 234
Const KEY_READ = &H20019  ' ((READ_CONTROL Or KEY_QUERY_VALUE Or
                          ' KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And 
(Not
                          ' SYNCHRONIZE))
Const REG_OPENED_EXISTING_KEY = &H2
Const KEY_WRITE = &H20006  '((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or
                           ' KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As 
Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _
    "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, 
_
    ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, _
    ByVal cbData As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias 
"RegOpenKeyExA" _
    (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As 
Long, _
    ByVal samDesired As Long, phkResult As Long) As Long
'SetRegistryValue - Write a value in the Registry
'Date: 4/8/2000
'Versions: VB4/32 VB5 VB6 Level: Intermediate
'Author: The VB2TheMax Team
' Write or Create a Registry value
' returns True if successful
'
' Use KeyName = "" for the default value
'
' Value can be an integer value (REG_DWORD), a string (REG_SZ)
' or an array of binary (REG_BINARY). Raises an error otherwise.
Function SetRegistryValue(ByVal hKey As Long, ByVal KeyName As String, 
_
    ByVal ValueName As String, value As Variant) As Boolean
    Dim handle As Long
    Dim lngValue As Long
    Dim strValue As String
    Dim binValue() As Byte
    Dim length As Long
    Dim retVal As Long
    ' Open the key, exit if not found
    If RegOpenKeyEx(hKey, KeyName, 0, KEY_WRITE, handle) Then
        Exit Function
    End If
    ' three cases, according to the data type in Value
    Select Case VarType(value)
        Case vbInteger, vbLong
            lngValue = value
            retVal = RegSetValueEx(handle, ValueName, 0, REG_DWORD, 
lngValue, 4)
        Case vbString
            strValue = value
            retVal = RegSetValueEx(handle, ValueName, 0, REG_SZ, ByVal 
strValue, _
                Len(strValue))
        Case vbArray + vbByte
            binValue = value
            length = UBound(binValue) - LBound(binValue) + 1
            retVal = RegSetValueEx(handle, ValueName, 0, REG_BINARY, _
                binValue(LBound(binValue)), length)
        Case Else
            RegCloseKey handle
            Err.Raise 1001, , "Unsupported value type"
    End Select
    ' Close the key and signal success
    RegCloseKey handle
    ' signal success if the value was written correctly
    SetRegistryValue = (retVal = 0)
End Function
in the ThisDrawing Code Pane:
'this code will run on each document activate and set the ViewMode to 0
'which means that acad doesn't have a chance to reset to the value of 1
' if you use named profiles change as required
Private Sub AcadDocument_Activate()
    Dim mKey As String, mVal As String
    mKey = "Software\Autodesk\AutoCAD\R15.0\ACAD-1:409\Profiles\" & _
    "<<Unnamed Profile>>\Dialogs\Select File"
    mVal = "ViewMode"
    If Not SetRegistryValue(HKEY_CURRENT_USER, mKey, mVal, 0) Then
        MsgBox "Sorry List View was unable to be set."
    End If
End Sub
-- 
Ciao, DOCstone

solo chi ha la versione 2000ě (e il tuo problema) ti puň aiutare


 (e il tuo problema) 
tutti quelli che usano XP :-) (e forse Vista)
-- 
Ciao, DOCstone

 solo chi ha la versione 2000ì (e il tuo problema) ti può aiutare
Ho parzialmente risolto con questo lisp trovato su
http://discussion.autodesk.com/thread.jspa?messageID=273467
e che riporto in calce tradotto in italiano (che è il massimo che so 
fare).
Ora il menu si apre in modalità 'Elenco' e cambiando l'impostazione a 
'Dettagli' la mantiene fino al successivo 'Apri', poi la perde.
La cartella di partenza però è sempre quella di installazione di 
Autocad :-(
Siccome non conosco il lisp, chiedo se gentilmente qualcuno, pur non 
avendo acad2000, è disposto a modificare il lisp qui sotto in modo che 
almeno ricordi l'ultima cartella aperta e, soprattutto, che si applichi 
al comando INSER
TIA
----------------------------------------------------
(apply
  '(lambda (/ vTmp)
    (setq vTmp (getvar "cmdecho"))
(setvar "cmdecho" 0)
    (command "_undefine" "APRI")
    (setvar "cmdecho" vTmp)
  )
  nil
)
(defun c:APRI (/ strFilename)
  (setq
strFilename (getfiled "Seleziona File" "" "dwg" 2))
  (if strFilename
 (command "vbastmt" (strcat "AcadApplication.Documents.Open " (chr 34)
strFilename (chr 34)))
    )
  (princ)
)
----------------------------------------------------
-- 
Ciao, DOCstone


 
Selezionare la cartella generale che contiene i disegni e impostare
Dettagli; poi Visualizza-Personalizza cartella-Tipo cartella (usare
Documenti (per ogni tipo di file) e spuntare "applica il modello a tutte le
sottocartelle)
In Strumenti- Opzioni cartella- Visualizzazione- Applica a tutte le
cartelle.
Sempre in Visualizzazione - Impostazioni avanzate- esiste una Opzione
"Ripristina la finestra della cartella precedente all'accesso" forse da
spuntare.
Lascio a voi l'onere di fare qualche prova: non č detto che sia questa la
soluzione.
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 soluzione.
otto anni fa, a me quel problema non è mai successo,
 ti saprà dare una risposta l'autore di questa discussione, che usa ancora
la 2000ì


 questa la soluzione.
non è questa :-(
-- 
Ciao, DOCstone

 l'autore di questa discussione, che usa ancora la 2000ì
L'upgrade l'ho valutato. Siccome la 2000i non è aggiornabile, e siccome 
non faccio 3D, ero orientato su LT+ extender (da comprare in germania, 
che emiliano carica troppo), dopo aver valutato progecad e anche 
l'acquisto all'estero.
A questo punto ho scoperto che molti equiparano progecad a un autocad 
2000-2002, da cui ho dedotto che se progecad è un prodotto 
commercialmente valido, allora lo è anche la mia vecchia versione di 
autocad, almeno per il 2d.
Quindi, prima di aggiornare ho iniziato a patchare AutoCAd 2000i 
(grazie anche ai consigli di questo NG) e devo dire che le differenze e 
le incompatibilità con le versioni più recenti si sono davvero ridotte, 
almeno nel 2d.
Per ora quindi l'aggiornamento è rimandato. La prossima valutazione la 
farò quando passerò a vista (il più tardi possibile).
Resta qualche spigolo da smussare, ed è quello che sto tentando.
-- 
Ciao, DOCstone

 Forse allora non avevi XP
certo
con NT 4.0 ho usato AutoCAD 200ě
con XP   -> AutoCAD 2002
;)
