Subject: Re: Re-define attribute laden title blocks
From: Rod Young
Date: Fri, 20 Dec 1996 23:11:26 -0800
Keith Biggs wrote:
>
> I want to re-define the attributes in my title blocks and re-insert this into
> an existing drawing. The title block will re-define, however, the changes are
> not visible. The only way I can get around this is to erase the old title
> block and insert the new one and fill in the new values one at time. Needless
> to say, I do not want to do this to all of my drawings invidually.
>
> Any Suggestions?
>
> Keith
> civic@direct.ca
The following code is offered as an example. It shows the new attribute
values as hard coded but they could just as easily be coming from a
linked database, text file or whatever.
Our program RUN LISP can run programs like this over hundreds of
drawings at a time in batch mode.
;updblk function to update a title block in unattended batch mode
;assuming that your title block is named TBLOCK and has attributes of
;project
;designedby
;checkedby
;etc
(defun updblk()
(setq theblk(ssget "X" '((2 . "TBLOCK")))) ;I assume that there is only
one such block in the drawings
;get the head
(setq head(ssname theblk 0))
;update the first attribute value
(setq attr1(entnext head))
(setq dummy (entget attr1))
(setq dummy(subst (cons 1 "The revised project name")(assoc 1
dummy)dummy))
(entmod dummy)
;update the second attribute value
(setq attr2(entnext attr1))
(setq dummy(entget attr2))
(setq dummy(subst (cons 1 "The revised designed by value")(assoc 1
dummy)dummy))
(entmod dummy)
;update the third attribute value
(setq attr3(entnext attr2))
(setq dummy(entget attr3))
(setq dummy(subst (cons 1 "The revised checked by value")(assoc 1
dummy)dummy))
(entmod dummy)
;etc etc etc
(entupd head)
(setq theblk nil)
)
(updblk) ;make this program 'load and go' batch compatible
--
Sierra Hermitage
If this ftp site is busy, go to and search
for mirror
sites worldwide where these demos may also be downloaded.
RUN LISP - batch acad R12
RUN LISP - batch acad R13
DIRECTORY TAMER - Simple EDM
BATCH PLOT - auto plot dwgs
AUTO LOADER - alisp manage
AUTOBMP - dwg > bmp
DWGDOC - attach file to dwg
FINDVARS - alisp helper
Subject: BLOCK REFERENCING ITSELF
From: "ALLEN UGHOC"
Date: 21 Dec 1996 08:11:19 GMT
Hello,
At times when I bring in a block from one of my libraries, I get the
message, " block references itself, invalid operation, or words to that
effect. When time is very important, that message is annoying ! I have to
go back to the utilities option and rename that particular dwg in order for
me to use it. What causes that situation, and how can I avoid it ?
Thanks...Al
Subject: Re: LISP QUESTION
From: (Reini Urban)
Date: Sat, 21 Dec 1996 08:23:50 GMT
"Tony Tanzillo" wrote the 2nd time:
>(defun thawed_layer_list ( / rslt layer)
> (while (setq layer (tblnext "layer" (not layer)))
> (if (zerop (logand 1 (cdr (assoc 70 layer))))
> (setq rslt (append (list (cdr (assoc 2 layer))))))
> )
> (acad_strlsort rslt)
>)
Once using append is forgiven but the 2nd time it's a sin. :)
Better use (setq rslt (cons (cdr (assoc 2 layer)) rslt)))
BTW: Tony, you forgot the 2nd rslt in the append functions, but this can
happen.
append is generally speaking very slow and only appropriate for merging
trees. Esp. when you sort the list afterwards, cons is much better. just
hooks a pointer to the front of the list and needs only memory for one
new node. append parses all lists as arguments, mallocs the resulting
list and releases memory for the old list. And this n times. (From a c
programmers view awful, brrhh!)
(defun dummy (lst)
(while lst
(setq newlst (cons (car lst) newlst)
lst (cdr lst)))
(reverse newlst))
is even faster than
(defun dummy (lst)
(while lst
(setq newlst (append (list (car lst)) newlst)
lst (cdr lst)))
newlst
)
with reverse it needs linear time (n+n) and only n new nodes (called
"conses" in lisp).
The append code needs n+n time too but n*n/2 nodes.
(in the general case even n*n/2 time, but here the first argument is
very short, only one node)
To be very correct:
This depends on the implementation of reverse. reverse needs O(n) time
and n nodes.
The undocumented (reversip) function (in ACADLC.EXP) swaps the nodes in
place, so needs 0 nodes. ("reverse in place": Is this correct serge?)
I'm getting better and better in understanding undocumented functions.
:)
---
Reini Urban, TU Graz, Architecture & X-RAY
http://xarch.tu-graz.ac.at/autocad/
Attention! From: header is garbled on purpose!
(defun tail (l n)
(cond ((zerop n) l)
(t (tail (cdr l) (1- n)))))
Subject: Re: R12 DOS+ Win95 + Dongle = Dongle not Recognized. HELP!
From: bsawyer@ibm.net (Brian Sawyer)
Date: Sat, 21 Dec 1996 13:23:48 GMT
Would you expand a bit on setting up R12 DOS to run in a Win95
Dos shell? I have recently added enough ram that I would like to
this, as I have never gotten as productive in R13 as I was in R12 Dos,
but need to use my other W95 programs. Whart are your settings that
allow this?
On 14 Dec 1996 07:13:25 -0800, hopltd@giasdl01.vsnl.net.in (G Rajesh)
wrote:
>This is surprising. I also have a similar setup , but whenever I want to
>work on 3D Studio , I reboot my system in MS DOS MODE and start working
>on it. After working in 3DS , I exit the program and start Windows 95 by
>typing EXIT. It automatically starts and R12 works fine in a DOS SHELL.
>G.Rajesh
>//Autodesk Product Support on the Internet//
>
>
Subject: Re: BLOCK REFERENCING ITSELF
From: Lu
Date: Fri, 20 Dec 1996 21:40:43 -0800
ALLEN UGHOC wrote:
>
> Hello,
> At times when I bring in a block from one of my libraries, I get the
> message, " block references itself, invalid operation, or words to that
> effect. When time is very important, that message is annoying ! I have to
> go back to the utilities option and rename that particular dwg in order for
> me to use it. What causes that situation, and how can I avoid it ?
> Thanks...Al
Hi Al,
For example;
In a drawing named T.DWG, there is a block called T.
If you attempt to insert this drawing in another drawing *unexploaded* it
will reference itself.
An analogy to this is listing the assembly part number as one of the
items in the assembly. When someone goes to collect the items for the
assembly, they will get to the assembly number and then restart at the
top of the item list. This is an endless loop, cat chasing it's tail.
Hope this helps,
Lu
//------------------------------------------------------------------
// When all else fails, read the book.
// CAD\Tek Home Page: http://www.cad-tek.com
//------------------------------------------------------------------
Subject: Re: Network plotting with ACAD12 (DOS)
From: zechner@email.archlab.tuwien.ac.at (Christoph Zechner)
Date: Sat, 21 Dec 1996 15:03:13 GMT
zechner@email.archlab.tuwien.ac.at (Christoph Zechner)
wrote:
>I have problems to configure ACAD 12 c1 for DOS to plot to a
>file and then starting a batch file, that should copy the
>plot file to a network plotter.
>I have modified my acad start batch by setting the ACADPLCMD
>to a batch file called plot.bat.
>acad start batch:
>SET ACADPLCMD=plot.bat %s
>plot.bat:
>copy %1 /b lpt1:
>When using the filename AUTOSPOOL, the plot files are
>created in the spool directory, which I have configured, but
>the batch file, that should copy the files to the plotter
>does not execute. What is wrong?
After changing the syntax of the plot.bat to "copy %1 /b
lpt1" (without doublepoints behind lpt1), it is working.
Thank you for your answers
cu Christoph
Subject: Re: HELP! Solid Modeling question
From: Dave Rich
Date: Fri, 20 Dec 1996 22:34:22 -0800
Briah,
I am not familiar with Acad Solids. If it supports a variable radius
fillet as do some of the other packages, you could do so on a square
extrusion with or without draft.
Dave Rich
=============================
briah@indy.net wrote:
>
> I need to "extrude", if you will, one shape into another.
> e.g Imagine a tube that is square on one end but circular on the
> opposite. The "parent" geometry may vary in complexity,
> We've been doing this for years on Anicam and now Smartcam but when it
> comes to Autocad...stump city. Any suggestions?
> thanks
> briah@indy.net
Subject: Re: BLOCK REFERENCING ITSELF
From: bfeuchuk@jumppoint.com (Bruce Feuchuk)
Date: Sat, 21 Dec 1996 15:52:26 GMT
With Deft Fingers, "ALLEN UGHOC" wrote:
>At times when I bring in a block from one of my libraries, I get the
>message, " block references itself, invalid operation, or words to that
>effect. When time is very important, that message is annoying ! I have to
>go back to the utilities option and rename that particular dwg in order for
>me to use it. What causes that situation, and how can I avoid it ?
This will happen IF you have a block within your 'original' block of the
_same_ name as your parent block!
ie: You insert an Original block called XXX. However, you created the
entities within your original block and have a nested block also called XXX.
The solution is to change one of the names (either rename the block in the
original block or the main block itself!)
Regards,
Bruce
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
The first time you go out after your wife's birthday, you
will see the gift you gave her marked down 50%
Corollary: she will assume you choose it because it was so cheap!
(live from the West End of Vancouver, B.C. Canada)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Subject: Re: Inserting into MS WORD
From: "Sergei M. Komarov"
Date: 21 Dec 1996 17:33:48 +0200
Matt Wilson on 20 Dec wrote:
> I am having trouble with the line quality of a drawing in a word
> document after it has been copy and pasted from an autocad drawing to a
> word document. anyone got any ideas???
>
Hi Matt,
try to configure AutoCAD Plotter for a device, which supports HPGL or HPGL/2
(e.g. Hewlett Packard plotter, Laser Jet 5 HPGL etc.) and plot your drawing
to a file. Then insert this file in MS Word (Insert-> Picture-> AutoCAD Plot
file). If you don't have AutoCAD Plot filter in MS Word installed, make use of
MS Word distribution diskettes, select "Add components" and "Graphic Filters"
to add it. It works for MS Word 2 and 6 (I don't know about 7).
Merry Christmas!
Subject: Re: acad 12 dxf problems
From: "Sergei M. Komarov"
Date: 21 Dec 1996 17:37:10 +0200
Burkhard Wangenheim on 20 december wrote:
> hello world!
>
> we have some troubles with acad 12 dxf files. some time ago, i imported dxf
> files into corel4, which was no problem. now i tried to import these files into
> corel 6 but failed; only a part is displayed. afterwards, i tried to re-import
> these files into acad and also failed! why couldn't acad read its own dxf-
> files???
> a message like 'a polyline must have at least 2 vertices' or '7* unknown block'
> appeared and no re-importing was possible. is there a possibility to solve
> that? can i change the dxf's or the dwg's before converting them to dxf?
>
> many thanks in advance for a short email!
>
Hi Burkhard,
AutoCAD does read own DXFs, but the same or earlier version. If you
have problems importing R12 DXF to AutoCAD R12 - most likely your DXF is
corrupted. Seek for reserve copy.
Merry Christmas!
Subject: Re: AutoCad Viewer
From: Jon Genova
Date: Sat, 21 Dec 1996 10:08:36 -0700
Robert Pantangco wrote:
>
> Karel Lenardic wrote:
> >
> > seema siddiqi wrote:
> > >
> > > Hi,
> > >
> > > Is there an Autocad file viewer with redlining (markup) facility?
> > > This engineering drawing software is needed for 100 PCs.
> > > Any suggestions are appreciated.
> > >
> > > Seema
> > Look at WWW.CYCO.COM for AUTOMANAGER VIEW
> > Karel
>
> Hi Seema,
>
> You can also try Slick! for Windows v4.0 at www.slickwin.com.
>
> Robert...
Try this also
AIL CSWL Inc. Phone : (415)372-2900(Ext.107)
1015 E, Fax : (415)577-8451
Hillsdale Blvd. Email : dwg@cswl.com
Suite 208, Compuserve : 102600,645
Foster City, World Wide Web : http://www.cswl.com
CA 94404.
Subject: Re: how to delete a layer
From: johndoe@nowhere.com (YoMaMa)
Date: Sat, 21 Dec 1996 18:09:25 GMT
On 21 Dec 96 01:42:24 GMT, Stephen Chai
wrote:
I THINK Autocad will delete unused layers when you use the pruge
command. It will also get rid of unused linetypes, styles, block
definitoins, etc.
>hello,
>
>It is wierd that the LAYER command has everything that you
>would want except deleting a layer. How do I go about
>achieving that? I tried the DELLAYER lisp that came with
>the \sample directory, but it is cumbersome at best.
>
>Stephen
>schai@california.com
>
Subject: ---===<<< Autocad with the look & feel of CATIA >>>===---
From: mcclomp@introweb.nl
Date: Sun, 22 Dec 1996 02:03:04 GMT
hello,
I'm looking for a program, which fits as a shell over
Autocad, on a way that it has the look and feel of CATIA.
Who knows more about this software ?
place reaction in this newsgroup, or even better mail me
on following address
ter_denge.schutten@pi.net
thanks in advantage !!
John
"Going on, means going far ....... Going far, means returning"
{Tao Te Ching}
Subject: Re: help exoprting 3ds
From: Bill Wollaston
Date: Sat, 21 Dec 1996 09:23:01 -0800
G Rajesh wrote:
>
> I have not seen any errors like this. However , you have also not said
> the options you have used for exporting. Did you try using the option
> BY OBJECT. Try also by increasing the value of the THRESHOLD.
>
More findings, facetres variable really makes the difference. With a lower facetres value export
is no problem. The model doesn't look very nice in r13 but i'm rendering in another app. All the geometry
looks like what it's supposed to be. A tube is a tube. etc. What i don't know is , does the facetres value
effect the geomtry of the model at all in r13??
Another solution is to explode the object if you get "too many vertices" error statement. Another
solution is to break the model up into as many pieces as possible. I was told by another post, that the
.3ds format has a 64k buffer per part, so if you go over,,, you get "too many vertices".
For anyone who's still following this, there you go.
Mail me if you have more questions, i have some more ideas for those of us working n less than
workstation performance machines..
Thanks to all who posted including above.
Bill Wollaston
ps http://www.speakeasy.org/~wolly/files/new004.gif
Subject: Re: how to delete a layer
From: dyoung@mcwi.com (Darren Young)
Date: Sat, 21 Dec 1996 12:53:39 -0600
In article <32bb4080.0@seashell.california.com>,
schai@global.california.com says...
> hello,
>
> It is wierd that the LAYER command has everything that you
> would want except deleting a layer. How do I go about
> achieving that? I tried the DELLAYER lisp that came with
> the \sample directory, but it is cumbersome at best.
>
Stephen,
The purge command is what your looking for.
Sincerely,
--
Y-------------------------------------------------------------------+
| Darren J. Young | Minnesota CADWorks, Inc. |
| dyoung@mcwi.com | P.O. Box 7293 |
| 76341.3053@compuserve.com | St. Cloud, Minnesota 56302-7293 |
| http://www.mcwi.com | Phone: 1-320-654-9053 |
| CAD/CAM/CNC - Drafting Design Customization Training Programming |
0,0-----------------------------------------------------------------X
Email addresses not to be sold or used for unsolicited advertizments.
