Layer Management

[Anonymous]

Hi,

Many users from the Land Desktop world sadly miss the Land Desktop layer
management tools and may or may not find the Express tools replacements for
them satisfactory.

Attached is an alternative Layer Management tool which enables the LDD Layer
Tools functionality in a different and in some places enhanced format .

Place the program in a location on your AutoCAD search path and add the
following to one of your Auto running lisp programs to run it

(defun C:Lay ()
(vl-load-com)
(setq sLayerManagerFunction "LayerManager-C3D2007-v0.dvb!LayerManager")
(vl-vbarun sLayerManagerFunction )
)

The program as posted is Open source written in R2007 Civil 3D, but should
run in R2006.

Hopefully it will encourage someone to have a go at VBA themselves to tidy
up some of the rough edges I've deliberately left.

Any positive feedback suggestions may be incorporated in a formal release of
the program a couple of months from now.


--

Laurie Comerford
CADApps
www.cadapps.com.au

[Anonymous]

Thanks Laurie.

I loaded it OK and it appears to be well worth the cost!



Bill

"Laurie Comerford" wrote in message
news:5316671@discussion.autodesk.com...
Hi,

Many users from the Land Desktop world sadly miss the Land Desktop layer
management tools and may or may not find the Express tools replacements for
them satisfactory.

Attached is an alternative Layer Management tool which enables the LDD Layer
Tools functionality in a different and in some places enhanced format .

Place the program in a location on your AutoCAD search path and add the
following to one of your Auto running lisp programs to run it

(defun C:Lay ()

(vl-load-com)
(setq sLayerManagerFunction "LayerManager-C3D2007-v0.dvb!LayerManager")
(vl-vbarun sLayerManagerFunction )
)

The program as posted is Open source written in R2007 Civil 3D, but should
run in R2006.

Hopefully it will encourage someone to have a go at VBA themselves to tidy
up some of the rough edges I've deliberately left.

Any positive feedback suggestions may be incorporated in a formal release of
the program a couple of months from now.


--


Laurie Comerford
CADApps
www.cadapps.com.au

[Anonymous]

similarly, those that miss the old menu pallettes and menubar tab of menuload tab can get them back for 2006 with the
Menusback tool free on Cadthinking.com.
It will work for 2007 when objectdcl gets converted for it.
LDT's menu pallettes only did pulldowns, but mine does toolbars too.

so for those that thought you had to learn the CUI and workspaces to move pulldowns around, you might be surprised.
The main thing I don't like about workspaces is its all or nothing. They move all items involved, you cannot choose to
just set pulldowns or toolbars to a given workspace. Menusback lets you choose.

Laurie's tool worked well, thanks for the generous posting of code.

Laurie Comerford
|>Hi,
|>
|>Many users from the Land Desktop world sadly miss the Land Desktop layer
|>management tools and may or may not find the Express tools replacements for
|>them satisfactory.
|>
|>Attached is an alternative Layer Management tool which enables the LDD Layer
|>Tools functionality in a different and in some places enhanced format .
|>
|>Place the program in a location on your AutoCAD search path and add the
|>following to one of your Auto running lisp programs to run it
|>
|>(defun C:Lay ()
|>
|>(vl-load-com)
|> (setq sLayerManagerFunction "LayerManager-C3D2007-v0.dvb!LayerManager")
|> (vl-vbarun sLayerManagerFunction )
|>)
|>
|>The program as posted is Open source written in R2007 Civil 3D, but should
|>run in R2006.
|>
|>Hopefully it will encourage someone to have a go at VBA themselves to tidy
|>up some of the rough edges I've deliberately left.
|>
|>Any positive feedback suggestions may be incorporated in a formal release of
|>the program a couple of months from now.
James Maeding
Civil Engineer and Programmer
jmaeding - athunsaker - com

[Anonymous]

To get this to work for 2006, you need to change the initialize code:

Private Sub UserForm_Initialize()
If InStr(Application.Version, "16") >= 1 Then
Set oColour = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
ElseIf InStr(Application.Version, "17") > 0 Then
Set oColour = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.17")
End If
PopulateColours
PopulateLineType
PopulateLineWeights

End Sub ' UserForm_Initialize

Laurie Comerford
|>Hi,
|>
|>Many users from the Land Desktop world sadly miss the Land Desktop layer
|>management tools and may or may not find the Express tools replacements for
|>them satisfactory.
|>
|>Attached is an alternative Layer Management tool which enables the LDD Layer
|>Tools functionality in a different and in some places enhanced format .
|>
|>Place the program in a location on your AutoCAD search path and add the
|>following to one of your Auto running lisp programs to run it
|>
|>(defun C:Lay ()
|>
|>(vl-load-com)
|> (setq sLayerManagerFunction "LayerManager-C3D2007-v0.dvb!LayerManager")
|> (vl-vbarun sLayerManagerFunction )
|>)
|>
|>The program as posted is Open source written in R2007 Civil 3D, but should
|>run in R2006.
|>
|>Hopefully it will encourage someone to have a go at VBA themselves to tidy
|>up some of the rough edges I've deliberately left.
|>
|>Any positive feedback suggestions may be incorporated in a formal release of
|>the program a couple of months from now.
James Maeding
Civil Engineer and Programmer
jmaeding - athunsaker - com