Customized tool bar

[alextu]

:( My office needs someone to help us to make cutomized tool bar. We just need some simple tools (control layers and load Attributes).
Could anyone help us to make it? We are willing to pay for it.

Thank you

[Mr T]

:( My office needs someone to help us to make cutomized tool bar. We just need some simple tools (control layers and load Attributes).
Could anyone help us to make it? We are willing to pay for it.

Thank you

Right click a toolbar and go thru it's easy. have you tried typing
EXPRESS or looking for express tools in the help (hit F1)

nick

[alextu]

:lol:
Thank you for your replied, my office needs more then that. We need to load office standard layers and able to turn some of them on/off by clicking a buttom.

[hyposmurf]

You could just have a template file,that your company uses.The layers could be pre-frozen or thawed.Or you intiate the freezing of certain layers via a marco button when youve opened your template.

[fuccaro]

Alextu
Do you wish to buy something like this?


;| CREATE PREDEFINED LAYERS WITH GIVED COLORS
mfuccaro@hotmail.com October, 2003
|;
(defun c:LAC( / layers act) ;LAyer Create
(setvar "CMDECHO" 0)
(setq layers (list
(list "ans" 7) ;Edit this list as needed.
(list "screws" "red") ;You may add new lines
(list "PARTs" 2) ;
(list "2d" 255) ; the last created layer will becom the current one
))
(repeat (length layers)
(setq act (car layers)
layers (cdr layers))
(if (not (tblsearch "layer" (car act)))
(command "-layer" "m" (car act) "c" (cadr act) "" ""))
)
(princ)
)

; turn on all layers and off those from the list

(defun c:LAT( / layers act notf expert) ;LAyers Turn

(setq layers (list "ans" "2d")) ;layers to turn off
(setq expert (getvar "expert")
notf nil
act (tblnext "layer" T))
(setvar "expert" 1)
(setvar "CMDECHO" 0)
(command "-layer" "on")
(while act
(command (cdr (assoc 2 act)) "on")
(setq act (tblnext "layer"))
)
(command "" "off")
(repeat (length layers)
(setq act (car layers)
layers (cdr layers))
(if (tblsearch "layer" act)
(command act "off")
(setq notf (cons act notf)))
)
(command "" "")
(repeat (length notf)
(princ (strcat "\nlayer not found: " (car notf)))
(setq notf (cdr notf))
)
(setvar "expert" expert)
(princ)
)
Edit the text (with any text editor) to meet your needs. Create two buttons for the routines. Send us a feed back about how it works for you.

[hyposmurf]

Look at him go!Nice one Fuccaro!You seem to have a LISP for everything :)

[fuccaro]

Hyposmurf
No, I do not have a lisp for everything. I write my routines as I need them or as others need them :) . Incredible, but I do not even keep all routines I wrote. In most of cases my routines are for a specific application and even if I will need sometime a routine again, for sure I will find it... a day later.

[alextu]

:lol:
Thank you, Fuccaro,
Thank you for replying to Jeff and helping us out a lot, but..Jeff will e-mail to you about our problem