Topic: "Wblock Layers", saving the contents of each layer to a separate file

[Kerry]

< .. >
You'll also notice I'm not using any error checking either - shame on me.

Naughty, naughty.

not sure what to recommend as punishment   

masochist says 'whip me', sadist answers 'no' ...

[Glenn R]

hehe...oldy but a goody. Actually, wouldn't the sadist say 'maybe'

G'day Kerry.

[kaefer]

You'll also notice I'm not using any error checking either - shame on me.

Not at all. What could possibly go wrong?

And even if anything does go wrong, either the .NET unhandled exception handler kicks in and informs you that an "unhandled exception has occurred in a component in your application", or you're toast anyway. Wrapping the code in a try-catch block doesn't really buy anything.

Now checking for error codes, status indications and the like is an entirely different matter.

Cheers, Thorsten

[gile]

Hi,

I'm still trying to understand some F# so I read the old threads where I can find some understandable code (for me).

This one make me think about a way to avoid using the Autodesk.AutoCAD.Interop to get the Template path by readin in the registry.
So I tried to write a little function.

Code: [Select]

let GetTemplatePath() = 
    let openKey key = Registry.CurrentUser.OpenSubKey(key)
    let getPath sub next key = key + "\\" + (openKey(key).GetValue(sub) :?> string) + next   
    ("Software\\Autodesk\\AutoCAD"
    |> getPath "CurVer" ""
    |> getPath "CurVer" "\\Profiles"
    |> getPath "" "\\General"
    |> openKey).GetValue("TemplatePath") :?> string
Or, more 'generic'

Code: [Select]

let CurProfileRegKey() =
    let openKey key = Registry.CurrentUser.OpenSubKey(key)
    let getPath sub key = key + "\\" + (openKey(key).GetValue(sub) :?> string)
    ("Software\\Autodesk\\AutoCAD" |> getPath "CurVer" |> getPath "CurVer") + "\\Profiles"
    |> getPath "" |> openKey

CurProfileRegKey().OpenSubKey("General").GetValue("TemplatePath")

[gile]

May be no need to build so many functions.

Code: [Select]

let sTemplatePath =
    let getPath sub key =
        key + "\\" + (Registry.CurrentUser.OpenSubKey(key).GetValue(sub) :?> string)   
    ((("Software\\Autodesk\\AutoCAD" |> getPath "CurVer" |> getPath "CurVer") + "\\Profiles"
    |> getPath "") + "\\General"
    |> Registry.CurrentUser.OpenSubKey).GetValue("TemplatePath") :?> string + "\\acadiso.dwt"

[kaefer]

May be no need to build so many functions.

The head hurts and there's fierce need...

You could get around the downcasts to string by supplying an explicit type parameter, which is resolved by inference.

Code: [Select]

module Reg =
    let substKey<'T> sub key = (Microsoft.Win32.Registry.CurrentUser.OpenSubKey key).GetValue sub :?> 'T
    let getPath sub key = key + "\\" + substKey<_> sub key

let curVer = "Software\\Autodesk\\AutoCAD" |> Reg.getPath "CurVer" |> Reg.getPath "CurVer"
let sTemplatePath =
    ((curVer + "\\Profiles" |> Reg.getPath "") + "\\General" |> Reg.substKey<_> "TemplatePath") + "\\acadiso.dwt"

Or if you're planning to do this a lot, go the whole mile and define custom operators. These here have the same precedence and associativity as to get rid of the ugly parentheses.

Code: [Select]

let openKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey
let (+&) key sub = (openKey key).GetValue sub
let (+/) key sub = key + "\\" + (key +& sub :?> string)
let templatePath() =
    "Software\\Autodesk\\AutoCAD"
    +/ "CurVer"
    +/ "CurVer"
    + "\\Profiles"
    +/ ""
    + "\\General"
    +& "TemplatePath"
    :?> string
    + "\\acadiso.dwt"

Take care, Thorsten

[gile]

Thank you very much kaefer.
I'll study all this...

the ugly parentheses

I'am comming from LISP, parentheses reassure me.