Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for
Show only
|
Search instead for
Did you mean:
This page has been translated for your convenience with an automatic translation service. This is not an official translation and may contain errors and inaccurate translations. Autodesk does not warrant, either expressly or implied, the accuracy, reliability or completeness of the information translated by the machine translation service and will not be liable for damages or losses caused by the trust placed in the translation service.Translate
Call save and restore layer states with Macro or lisp??
Call save and restore layer states with Macro or lisp??
I would like to setup two new toolbar buttons to call both the save and restore layer states dialogs without having to first go into the layer properties manager. Is it possible to do this with a macro or lisp?
-LAYER command (note the dash), look at the command line prompts, follow the
one(s) you need through the entire process, record what you did, write a
simple toolbar button macro (explained in HELP).
Post back if you need help finishing or writing a LISP version.
--
Dean Saadallah
Add-on products for LT
http://www.pendean.com/lt
--
Dean, thanks very much for the reply, it's nearly what i was looking for. I was hoping to call the dialog box so that I can click on the layer state to be restored rather than typing in the name. Do you know if this is possible?
(initdia)(command "layer")
Don
"buttonmonkey" wrote in message
news:3529930.1079122129476.JavaMail.jive@jiveforum1.autodesk.com...
> I would like to setup two new toolbar buttons to call both the save and
restore layer states dialogs without having to first go into the layer
properties manager. Is it possible to do this with a macro or lisp?
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.591 / Virus Database: 374 - Release Date: 2/17/2004
That's half way there, as it opens the layer properties manager dialog but it's still a second click to open either the save or restore states dialogs. I wanted to achieve this with a single click. It is possible?
What version of Acad?
--
Ken Alexander
Acad2004
Windows2000 Prof.
"We can't solve problems by using the same kind
of thinking we used when we created them."
--Albert Einstein
"buttonmonkey" wrote in message
news:4681914.1079196525473.JavaMail.jive@jiveforum1.autodesk.com...
> Does anyone have any suggestions??
AutoCAD LT2002 (occasionally full version 2002) - I'd prefer a macro/diesel if it's possible but I can use Autolisp with LT as i'm forced to use a lisp enabler when all the full version licences are taken (which is often).
Message was edited by: buttonmonkey
I don't know anything about LT or 2002 but take a look at this and
see if it can get you going.
;;;Restore Layer States 2004
;;;Ken Alexander 3/13/04
;;;Requires doslib2004
(defun C:re_lay_state (/ dos2004 data inf_obj state_names ans)
(vl-load-com)
(cond
((and
(not (member "doslib2004.arx" (arx)))
(setq dos2004 (findfile "doslib2004.arx"))
(arxload dos2004)
)
T
)
((member "doslib2004.arx" (arx)) T)
(T
(princ "\nDos_lib is not loaded. ")
(exit)
)
)
(or *app*
(setq *app* (vlax-get-acad-object)))
(or *actdoc*
(setq *actdoc* (vla-get-activedocument *app*)))
(setq lay_col (vla-get-layers *actdoc*)
data (vla-get-database *actdoc*)
inf_obj (vla-getinterfaceobject
*app*
"AutoCAD.AcadLayerStateManager.16")
state_names (get_lay_states lay_col))
(if state_names
(progn
(setq ans (dos_listbox
"Select Layer State"
"Select a state"
state_names
)
)
(vla-setdatabase inf_obj data)
(vla-restore inf_obj ans)
(vla-update app)
)
(princ "\nNo Layer States!: ")
)
(princ)
)
(defun get_lay_states (lay_col / ex_dict state_list)
(if (= (vla-get-hasextensiondictionary lay_col) :vlax-true)
(progn
(setq ex_dict (vla-getextensiondictionary lay_col))
(vlax-for each ex_dict
(if (= (vla-get-name each) "ACAD_LAYERSTATES")
(vlax-for each_st each
(setq state_list (cons (vla-get-name each_st) state_list))
)
))
)
)
(reverse state_list)
)
--
Ken Alexander
Acad2004
Windows2000 Prof.
"We can't solve problems by using the same kind
of thinking we used when we created them."
--Albert Einstein
"buttonmonkey" wrote in message
news:27288692.1079200240878.JavaMail.jive@jiveforum1.autodesk.com...
> AutoCAD LT2002 (occasionally full version 2002)
AutoCAD 2002 LT doesn't support Lisp does it?
Don
"buttonmonkey" wrote in message
news:27288692.1079200240878.JavaMail.jive@jiveforum1.autodesk.com...
> AutoCAD LT2002 (occasionally full version 2002)
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.591 / Virus Database: 374 - Release Date: 2/17/2004
