Community
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
"Ender" <
href="mailto:Aschamen@yahoo.com">Aschamen@yahoo.com> wrote in message
href="news:14C7BED74BA105F78CBF8DA65A412CE5@in.WebX.maYIadrTaRb">news:14C7BED74BA105F78CBF8DA65A4......
In ADT 2.0 is it possible to import several wall
styles from a template with a lisp routine? I am trying to create a
routine to redefine existing wall styles since a lot of our old drawings were
using messed up wall styles.
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
Ender,
The only way to import specific Aec Objects is
via DBX . Or you can save your default template file as a drawing. I
have one called AecStyleFile.dwg.
Then add this line to your Acad2000doc.lsp
file
(if (not (tblsearch (namedobjdict)
"AEC_WALL_STYLES")
(progn
(command "_.insert"
"YourFileName")
(command "_.explode" (entlast)
"")
)
)
let me know how it goes.
--
-------------------------------------------------------------------------
Rob
Starz
Stardsign cad solutions
iC - AEC Information Center
href="http://www.stardsign.com/aecic.html">www.stardsign.com/aecic.html
LayerX
beta testers needed...
href="http://www.stardsign.com/beta_programs.htm">www.stardsign.com/beta_programs.htm
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
"Ender" <
href="mailto:Aschamen@yahoo.com">Aschamen@yahoo.com> wrote in message
href="news:14C7BED74BA105F78CBF8DA65A412CE5@in.WebX.maYIadrTaRb">news:14C7BED74BA105F78CBF8DA65......
In ADT 2.0 is it possible to import several
wall styles from a template with a lisp routine? I am trying to create
a routine to redefine existing wall styles since a lot of our old drawings
were using messed up wall
styles.
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
"Ender" <
href="mailto:Aschamen@yahoo.com">Aschamen@yahoo.com> wrote in message
href="news:41A86988C2093DAFBBE8A24217814A6A@in.WebX.maYIadrTaRb">news:41A86988C2093DAFBBE8A242178......
This creates wall styles right? I'm trying
to redefine existing wall styles. Your routine won't redefine
existing wall styles, will it?
"Rob Starz" <
href="mailto:rob@stardsignNOSPAM.com">rob@stardsignNOSPAM.com> wrote in
message
href="news:1CF994652E79C6AE21598DED61937475@in.WebX.maYIadrTaRb">news:1CF994652E79C6AE21598DED619......
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
Ender,
The only way to import specific Aec Objects is
via DBX . Or you can save your default template file as a drawing. I
have one called AecStyleFile.dwg.
Then add this line to your Acad2000doc.lsp
file
(if (not (tblsearch (namedobjdict)
"AEC_WALL_STYLES")
(progn
(command "_.insert"
"YourFileName")
(command "_.explode"
(entlast) "")
)
)
let me know how it goes.
--
-------------------------------------------------------------------------
Rob
Starz
Stardsign cad solutions
iC - AEC Information Center
href="http://www.stardsign.com/aecic.html">www.stardsign.com/aecic.html
LayerX
beta testers needed...
href="http://www.stardsign.com/beta_programs.htm">www.stardsign.com/beta_programs.htm
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
"Ender" <
href="mailto:Aschamen@yahoo.com">Aschamen@yahoo.com> wrote in
message
href="news:14C7BED74BA105F78CBF8DA65A412CE5@in.WebX.maYIadrTaRb">news:14C7BED74BA105F78CBF8DA......
In ADT 2.0 is it possible to import several
wall styles from a template with a lisp routine? I am trying to
create a routine to redefine existing wall styles since a lot of our old
drawings were using messed up wall
styles.
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
"jbuzbee" <Yes
href="mailto:jimbuzbee@chanceydesign.com">jimbuzbee@chanceydesign.com>
wrote in message
href="news:f085f9d.1@WebX.maYIadrTaRb">news:f085f9d.1@WebX.maYIadrTaRb...
it is, however, it requires some pretty advanced code. How in-depth is your
knowledge of the ActiveX extensions exposed in AutoLISP for 2000+? Here is a
road map: 1. You will first need to create a routine that access the ObjectDBX
Interface to "open" the "template drawing". 2. Access the dictionary
collection of the opened DBX document and look for "AEC_WALL_STYLES". 3. At
this point you can search for individual "styles" as defined in the
dictionary. 4. Once you have found the entity of the style you want to
"import" you need to use the "vla-copy" method to copy the dictionary from the
DBX document to the active document. 5. VERY IMPORTANT: at this point you need
to release everything or your program will crash AutoCAD. I'm not trying to
scare you away from attempting this, just let you know ahead of time what your
in for. You might want to check with Peter Funk over at the ADT customization
NG for a VBA equivalent - if it even can be done in VBA. James
Buzbee