HDTenEightyP/NetNews huggingface dataset:
From: u322555@twncu865.ncu.edu.tw
Newsgroups: alt.cad.autocad
Subject: RE: Finding the sort program for the Autolisp
Date: 8 Sep 92 21:07:52 GMT
Organization: Computer Center, NCU, Taiwan, R.O.C.

Hello all:
I send the question this afternoon. But after eating the dinner I found the
solution to solve the problem. I used the dotted pair in the list "a" and found
the max atom of the dotted pair. Then found the list again  in order to find
what the dotted pair it  belongs to and append it to a new list "b". And then
subsituted the dotted pair to (0 . 0). Repeated calling the process "sort".
After severl times, the new list "b" would be the ordered one.


You may think the sorting will be done without the dotted pair. Since my main
program needs to use the dotted pair, I don't want to change it anymore.


I put the programs here. There are severl other programs. Two are very
usefull-seed and rand. These two are the functions which AutoLISP doesn't give.
And another function (trunc)  gets the decimal point of a float number. The
(general) function is used for creating a dotted pair list "a". Use these
functions we may test the sort.lsp.

I hope all of us will find this method useful. If there is any comment, PLEASE
SEND ME BY THE E-MAIL. THANK YOU!

---------------------------FUNCTIONS BELOW-----------------------------------

(defun sort()
(setq count 0)
(setq temp_max 0)
(setq temp_min 0)


(while (< count (length a))

(setq temp_max  (max (cdr (nth count a)) temp_max))
(setq temp_min  (min (cdr (nth count a)) temp_min))
(setq count (1+ count))

);while


(setq count 0)
(while (< count (length a))
(if (= temp_min temp_max)
(setq count (length a))
(if (= temp_max (cdr (nth count a)))
 (progn
        (setq b (append b (list (nth count a))))
        (setq a (subst (cons 0 0) (nth count a) a))
        (setq count  (1- (length a)))
 );progn
 (setq count (1+ count))
);if
);if
);while

);defun

(defun general(/ count)
  (setq count 0 a nil)
    (while (< count 20)
     (setq a (append  a (list (cons count (fix (* (rand) 100))))))
     (setq count (1+ count))
    )
)
(defun seed()
(setq seed1 1000
      seed2 12000
      seed3 28000
      seed0 (trunc (getvar "TDUSRTIMER"))
)
 (setq seed1 (* seed0 30000.0))
    (if (< seed1 30000) (setq seed1 (- seed1 30000)) )
    (if (< seed1 0    ) (setq seed1 (+ seed1 30000)) )
 (setq seed2 (* (rand)  30000) )
    (if (= seed2 0    ) (setq seed2 1) )
 (setq seed3 (* (rand) 30000)  )
    (if (= seed3 0    ) (setq seed3 1) )
)
(defun rand()




(setq seed1 (- (* (rem seed1 177) 171) (* 2 (/ seed1 177)) ))



(if (< seed1 0) (setq  seed1  (+ seed1 30269)) )

(setq seed2 (- (* (rem seed2 176) 172) (* 35 (/ seed2 176))))

(if (< seed2 0) (setq  seed2  (+ seed2 30307)) )

(setq seed3 (- (* (rem seed3 178) 170) (* (/ seed3 178) 63)))

(if (< seed3 0) (setq  seed3  (+ seed3 30323)) )

(setq r (+ (/ seed1 30269.0) (/ seed2 30307.0) (/ seed3 30323.0)))



(setq r (abs (trunc r)))
)
(defun trunc(r)
 (setq ir (fix r))
 (setq r (- r ir))
)

(defun callsort()
(setq count (length a))

   (repeat count
     (newsort)
   )
)
Newsgroups: alt.cad.autocad
From: blord@nyx.cs.du.edu (Brian J Lord)
Subject: ACAD r11 with 16mb ram
Organization: Nyx, Public Access Unix @ U. of Denver Math/CS dept.
Date: Wed, 16 Sep 92 03:47:09 GMT


I have a 486-33 mhz  DTK system with 16mb ram (was 8mb) 122 mb quantum
hard disk, diamond speedstar 24 video card, 17in samsung SVGA monitor.

I increased the ram from 8mb to 16mb getting ready for release 12.

The system's performance decreased by 50% with the memory upgrade?
What else needs to be done to get r11 to use the 16mb correctly?
Dos 5.0 is loaded.  I can use the pharlap switch  -exthigh 800000h to
limit r11 to 8mb and everything is ok.  Just like before.  I do not
remove the 16mb just changed the software switch and get the same
great performance as if I removed half the memory simms.

thanks in advance,
brian
blord@nyx.du.edu
the opinions are mine and not yours.
From: bobs@Think.COM ( Robert Schwartz)
Newsgroups: alt.cad.autocad
Subject: AutoLISP - Insertion point of a Block
Date: 15 Sep 1992 13:24:56 GMT
Organization: Thinking Machines Corporation, Cambridge MA, USA
Distribution: world
NNTP-Posting-Host: grendle.think.com

Does anyone know how to extract the insertion point from a block.
I have used (entget(entlast)) to get the block that was just inserted
but don't now how to extract the insertion point for use later in the
program.  Anyone know how? TIA

Bob Schwartz
Thinking Machines Corp.
Cambridge, MA
bobs@think.com


Newsgroups: alt.cad.autocad
From: u322555@twncu865.ncu.edu.tw
Subject: Finding the sort program for the Autolisp
Organization: Computer Center, NCU, Taiwan, R.O.C.
Date: Tue, 8 Sep 1992 16:01:01 GMT

Hello:
I need a porgram or a method to sort a list in Autolisp. The condition is:
   The atom in the list are numbers without order.
   And let the atoms sort in increase or decrease order.

If anyone knows a method or has a program ,please send to me by e-mail.
Thank you very much!



Newsgroups: alt.cad.autocad
From: s0558191@titan.ucc.umass.edu (Chris Belanger)
Subject: architecture
Organization: University of Massachusetts, Amherst
Date: Fri, 11 Sep 1992 16:18:09 GMT


Hi, 
I would like to let anyone interested know that there is now
a proposal on alt.config to add a newgroup devoted to 
architectural topics. It is intended for all who are interested
in architecture, not only architecture students or educators.
	If you are interested, add alt.config and post a note
saying so. That will let people know that there is interest  in the
newsgroup.   Thanks
		chris











Newsgroups: alt.cad.autocad
From: gfadel@eng.clemson.edu (George Fadel)
Subject: ACAD questions - distance - parameters
Reply-To: gfadel@eng.clemson.edu
Organization: College of Engineering, Clemson Univ.
Date: Wed, 9 Sep 1992 15:25:39 GMT


Is there any way to get the direction vector representing the shortest distance between two solids?  Typically, the line is draw, the shortest distance given, but I need to access the database and find out either the coordinates of the two closest points, or the vector direction.  Also, can one specify dimensions parametrically in ACAD?  I would like to specify say a length L and be able to change this parameter from some external program.

Thanks
---

Georges M. Fadel 
Clemson University


Newsgroups: alt.cad.autocad
From: lachlan@kraken.itc.gu.edu.au (Lachlan Brown)
Subject: printing to a postscript file
Organization: ITC, Griffith University, Brisbane, Australia
Date: 15 Sep 92 02:56:37 GMT


Hi,
  I'm using atuocad release 11 from a Sun sparc,
  I'm trying to print to an NEC silent writer 2 on an 
  appletalk network. How can I printer plot to a postscript
  file ??  I think I can manage the rest.(!?)
 

Thanks in advance

Regards
Lachlan Brown
L.Brown@itc.gu.edu.au

Newsgroups: alt.cad.autocad
From: ernst@opal.cs.tu-berlin.de (Ernst Kloecker)
Subject: TABLET.DWG missing in ACAD 11 ??
Organization: Techn. University of Berlin, Germany
Date: Tue, 15 Sep 1992 10:36:55 GMT

Hallo,

I am posting this for a friend of mine who does not have access to the Internet:

He just upgraded from ACAD 10 to ACAD 11 and he has got problems with his
menu sheet for his tablet Summagraphics 1201. The menues of the tablet have
changed apparently but the drawing file TABLET.DWG is missing in the
release of ACAD 11 (German version) he got.

Is that a known problem ? Does anybody have the new version of TABLET.DWG
and could mail it to me ?

Tablet : Summagraphics 1201 (12" x 12")
ACAD 11 (German version)

Thanks for any info, Ernst.
--

-----------------------------------------------------------------------------
Ernst Kloecker      phone: ++49-30-6181635      e-mail: ernst@cs.tu-berlin.de
-----------------------------------------------------------------------------
From: wolf@Autodesk.COM (Wolf Herda)
Newsgroups: alt.cad.autocad
Subject: Re: autocad background color in openwin3
Date: 14 Sep 92 16:46:35 GMT
Organization: Autodesk Inc., Sausalito CA, USA

RJGILREA@MTUS5.CTS.MTU.EDU (Bob Gilreath) writes:
<> 
<>    I just started using Open windows 3 on my sun workstation, in conjunction
<>    with autocad.  Only problem is the background color of the autocad
<>    drawing workspace is now black instead of white, and makes some aspects
<>    of our color coded drawings hard to work with.  I've scanned the manuals
<>    to no avail, and before i sink anymore time into the search,  Does anyone
<>    out there know how I can change the background color back to white?
<> 
<>                                     Thanks in advance.
<>                                              Bob

Set the environment variable ACADBGCOLOR.  Eg, 

   export ACADBGCOLOR="grey"    (for ksh)
   setenv ACADBGCOLOR  grey     (for csh)



Wolf Herda
wolf@autodesk.com
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: alt.cad.autocad
Date:         Mon, 14 Sep 1992 14:20:11 CDT
From:         "PATRICK MCKEE" <PMCKEE@UAFSYSB.BITNET>
Subject:      Re: architecture
              11 Sep 1992 16:18:09 GMT from <s0558191@TITAN.UCC.UMASS.EDU>

I am interested in the Architecture setup. Send me more info when it gets
going.


Thanks......

*********************************************************************
Patrick James McKee                 Internet:pmckee@uafsysb.uark.edu
University of Arkansas              Bitnet:  pmckee@uafsysb.bitnet
*********************************************************************
"I was just sitting on my porch one day..........well maybe I wasn't"
Newsgroups: alt.cad.autocad,alt.cad
From: jjhi@vipunen.hut.fi (Jari Juhani Hiltunen)
Subject: Re: Question about autocad data format and readability
Keywords: database, ascii, integrate
Reply-To: jjhi@vipunen.hut.fi (Jari Juhani Hiltunen)
Organization: Helsinki University of Technology
Date: Tue, 8 Sep 1992 20:00:10 GMT

In article <1992Sep8.032849.28195@news2.cis.umn.edu> chatter@micro.cs.umn.edu (Sanjay Chatterjee) writes:
>I know very little about Autocad; please bear with my ignorance.
>
>The short of my request is that I need to know how I could get
>Autocad drawing data transformed to ascii text mode.

You give DXFOUT command in AutoCAD drawing editor and tell it
how many decimal places you want, and you've got an ASCII file.

>        However, the design engineers claim they have no means
>of transforming all the information stored in their Autocad
>drawings into a regular (ascii) text file.  

WRONG!  A DXF file is COMPLETE description of the drawing.  Everything
that is in the drawing appears in the DXF file.  And by default
DXF file is written in ASCII format.

>                                             They said that this
>was because the data was in vector (sic) format.  This implies 
>that if we want the information integrated we'll need hundreds 
>of person-hours (maybe more) of data entry to perform.  

Talk to someone who knows the internals of AutoCAD.  There are
probably more than one way to accomplish what you want to do with
AutoCAD.  Use the services of your neighbourhood AutoCAD consultant.
It will cost you but you get better results in the long run.

>I could hardly believe them!  Could anyone kindly tell me
>if there's a way out of this?  I'm not aware of the version
>of Autocad they are using.  Someone referred to versions 7&8...
>I think they have it up on a PC-LAN network.  

Check your versions again.  There is no version 7 or 8 of AutoCAD.

>Sanjay

-- 
$---------------------------------------------------------------------$
$   Jari Hiltunen                       e-mail: jjhi@vipunen.hut.fi   $
$   Confucius say: Hope miserable yuppie lose shirt in stock market.  $
$---------------------------------------------------------------------$
From: RJGILREA@MTUS5.CTS.MTU.EDU (Bob Gilreath)
Newsgroups: alt.cad.autocad
Subject: autocad background color in openwin3
Date: 11 Sep 92 18:02:08 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU


   I just started using Open windows 3 on my sun workstation, in conjunction
      with autocad.  Only problem is the background color of the autocad
      drawing workspace is now black instead of white, and makes some aspects
      of our color coded drawings hard to work with.  I've scanned the manuals
      to no avail, and before i sink anymore time into the search,  Does anyone
      out there know how I can change the background color back to white?

                                    Thanks in advance.
                                             Bob
Newsgroups: alt.cad.autocad
From: jshea@eng.clemson.edu (john mark shea)
Subject: Programming robots in AutoCAD
Keywords: AutoLISP, robotics, robots
Reply-To: jshea@eng.clemson.edu
Organization: College of Engineering, Clemson Univ.
Date: Mon, 14 Sep 1992 20:04:54 GMT

I am new to this newsgroup, but I hope someone can answer my questions (and I hope they have not been answered a thousand times already....).

My robotics group is wants to write an AutoLISP program that will allow the user to pull up a building blue-print and draw a path on it for the robot to follow.  The program must support drawing the path and somehow extrapolating the points to a file.

1) Is this possible/ not too complicated?

2) Any suggestions - especially about the file manipulation.

3) What is a good AutoLISP tutorial/reference book?

Any help would be HIGHLY appreciated...

					Thanks
					
					John Shea
					jshea@eng.clemson.edu
From: dansmith@Autodesk.COM (Daniel Smith)
Newsgroups: alt.cad.autocad
Subject: Re: autocad background color in openwin3
Date: 14 Sep 92 21:47:59 GMT
Organization: Autodesk Inc., Sausalito CA, USA

In <17601@autodesk.COM> wolf@Autodesk.COM (Wolf Herda) writes:
> Set the environment variable ACADBGCOLOR.  Eg, 

>    export ACADBGCOLOR="grey"    (for ksh)
>    setenv ACADBGCOLOR  grey     (for csh)


	Another way is to add:

AutoCAD.BackgroundColor: aquamarine

	to your ~/.Xdefaults file.

				Daniel
-- 
     Daniel Smith, Autodesk, Sausalito, California, (415) 332-2344 x 2580
	      Disclaimer: written by a highly caffeinated mammal
	    dansmith@autodesk.com            dansmith@well.sf.ca.us
From: drp10@pteng.amdahl.com ( Dennis Potts )
Newsgroups: alt.cad.autocad
Subject: Error message in R-11
Date: 15 Sep 92 14:24:33 GMT
Reply-To: drp10@pteng.amdahl.com
Organization: Amdahl Corporation

I'm running R-11 using a license server in an UNIX environment.  I'm trying to take advantage of the display driver (acadd.xv ~ 2MB in size) ACAD provided which utilizes the Sun GX accelerator card.  The driver works fine when I run ACAD on my own Sun-IPX (OPENWIN 3.0), but I get the following message when I run ACAD on a different Sun-IPX and display it on my own monitor:

	DGA is not available, use XLIB to render.

It would seem to me that the software shouldn't care where it is being displayed, but then if I really knew, I wouldn't be asking this question.  How can I fix this, and will this also be the case in R-12?

Thanks for any support!

Dennis Potts
Amdahl Corp.
(408) 737-5032
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: alt.cad.autocad
Date:         Tue, 15 Sep 1992 10:20:46 EST
From:         "Bob Gilreath" <RJGILREA@MTUS5.CTS.MTU.EDU>
Subject:      Re: autocad background color in openwin3

On Mon, 14 Sep 1992 20:46:17 GMT Don Newman said:
>In article <17601@autodesk.COM>, wolf@Autodesk.COM (Wolf Herda) writes:
>|> RJGILREA@MTUS5.CTS.MTU.EDU (Bob Gilreath) writes:
>|> <>
>|> <>    I just started using Open windows 3 on my sun workstation, in
>conjunction
>|> <>    with autocad.  Only problem is the background color of the autocad
>|> <>    drawing workspace is now black instead of white, and makes some
>aspects
>|> <>    of our color coded drawings hard to work with.  I've scanned the
>manuals
>|> <>    to no avail, and before i sink anymore time into the search,  Does
>anyone
>|> <>    out there know how I can change the background color back to white?
>|> <>
>|> <>                                     Thanks in advance.
>|> <>                                              Bob
>|>
>|> Set the environment variable ACADBGCOLOR.  Eg,
>|>
>|>    export ACADBGCOLOR="grey"    (for ksh)
>|>    setenv ACADBGCOLOR  grey     (for csh)
>|>
>|>
>|>
>|> Wolf Herda
>|> wolf@autodesk.com
>This is not what the documentation for the Open Windows version says.  Page 10
>of "OPENLOOK.DOC for the Sun-4/SPARCstation" document says:
>
>NOTE: The resource AutoCAD.BackgroundColor replaces the ACADBGCOLOR
>environment variable used in SunView.
>
>It goes on to say that to specify the AutoCAD drawing editor background color,
>add
>the following line to your .Xdefaults file:
>
>	AutoCAD.BackgroundColor: "color"
>
>where "color" is one of the color names in the file /usr/openwin/lib/rgb.txt
>

   Thanks to all who responded, it is as Don says here.  It is now working
     and I also found the openlook.doc file with your help.

|   Bob Gilreath                            RJGILREA@mtus5.bitnet       |
|   Telecommunications Engineer             BOBG@mtu.edu                |
|   Computing Technology Services           Phone: work 906-487-2110    |
|   Michigan Technological University              Home 906-296-0989    |
|   Houghton, Michigan  49931               Fax:        906-487-2787    |


>Don Newman
>newman@think.com
Newsgroups: alt.cad.autocad
From: jahve@machina.hut.fi (Juha Ahvenainen)
Subject: Re: printing to a postscript file
Reply-To: jahve@machina.hut.fi (Juha Ahvenainen)
Organization: Helsinki University of Technology
Date: Tue, 15 Sep 1992 09:26:21 GMT

In article <lachlan.716525797@kraken> lachlan@kraken.itc.gu.edu.au (Lachlan Brown) writes:
>
>Hi,
>  I'm using atuocad release 11 from a Sun sparc,
>  I'm trying to print to an NEC silent writer 2 on an 
>  appletalk network. How can I printer plot to a postscript
>  file ??  I think I can manage the rest.(!?)

Configure your plotter (yes, plotter not printer plotter) to a ps-device
and plot to a file. If you have color plots you have to add color
changing commands (setrgbcolor) in the file yourself. Auto-Cad only 
puts %pen# comment in a place where a color should be changed.

-- 
	Juha Ahvenainen			tel home 358-0-468 2710		
	JT 6 B 106			    work 358-0-4354 3705
	02150 ESPOO			
	FINLAND				email  jahve@machina.hut.fi
Newsgroups: alt.cad.autocad
From: jjhi@vipunen.hut.fi (Jari Juhani Hiltunen)
Subject: Re: AutoLISP func. for exploded block selection set
Reply-To: jjhi@vipunen.hut.fi (Jari Juhani Hiltunen)
Organization: Helsinki University of Technology
Date: Thu, 10 Sep 1992 21:30:39 GMT

In article <18ns97INN7bj@early-bird.think.com> bobs@Think.COM ( Robert Schwartz) writes:
>Does anyone have a routine to make a selection set from a block
>that has been exploded?  In detail, a block is inserted into

Here are three AutoLisp routines which can be used to accomplish
that.  Parts of them I have taken from some bonus/sample Lisp
which came with AutoCAD Rel 11.

The procedure:
1.  Insert the block into a drawing.
2.  (setq first (inchand (last_hand)))
3.  Explode the block
4.  (setq last (last_hand))
5.  (setq ss (collect first last))

And you've got a selection set in ss.


-- hand.lsp -----------------------------------------------------------

;;; Get last entity handle.

(defun last_hand (/ d fhandle)
   (setq d (entlast))
   (if d
      (setq fhandle (cdr (assoc 5 (entget d))))
      (setq fhandle "0000000000000000")
   )
   (if (< (strlen fhandle) 16)
      (setq fhandle (strcat (substr "0000000000000000"
            1 (- 16 (strlen fhandle))) fhandle)
      )
   )
   fhandle
); get_lhandle


;;; Increment handle

(defun inchand (s / i c os sv)
   (setq os "")
   (setq i 0)
   (setq c 1)
   (while (< i 16)
      (setq i (1+ i))
      (if (= c 1)
         (progn
         (setq sv (substr s (strlen s)))
         (setq c 0)
         (cond
            ((= sv "9") (setq sv "A"))
            ((= sv "F") (setq sv "0" c 1))
            (t (setq sv (chr (1+ (ascii sv)))))
         )
         (setq os (strcat sv os))
         ); progn
         (progn
            (setq os (strcat (substr s (strlen s)) os))
         ); progn
      ); if
      (setq s (substr s 1 (1- (strlen s))))
   ); while
   os
); inchand


;;; Build a selection set of all entities whose handle is
;;; between 'firsth' and 'lasth' inclusive.

(defun collect (firsth lasth / h en ss)
   (setq ss (ssadd))
   (setq h firsth)
   (while (<= h lasth)
      (setq en (handent h))
      (if en
         (ssadd en ss)
      )
      (setq h (inchand h))
   ); while
   ss
); collect

----------------------------------------------------------------------

>Bob Schwartz

-- 
$---------------------------------------------------------------------$
$   Jari Hiltunen                       e-mail: jjhi@vipunen.hut.fi   $
$   Confucius say: Hope miserable yuppie lose shirt in stock market.  $
$---------------------------------------------------------------------$
From: newman@Think.COM (Don Newman)
Newsgroups: alt.cad.autocad
Subject: Re: autocad background color in openwin3
Date: 14 Sep 1992 20:46:17 GMT
Organization: Thinking Machines Corporation, Cambridge MA, USA
Distribution: world
NNTP-Posting-Host: liszt.think.com

In article <17601@autodesk.COM>, wolf@Autodesk.COM (Wolf Herda) writes:
|> RJGILREA@MTUS5.CTS.MTU.EDU (Bob Gilreath) writes:
|> <> 
|> <>    I just started using Open windows 3 on my sun workstation, in conjunction
|> <>    with autocad.  Only problem is the background color of the autocad
|> <>    drawing workspace is now black instead of white, and makes some aspects
|> <>    of our color coded drawings hard to work with.  I've scanned the manuals
|> <>    to no avail, and before i sink anymore time into the search,  Does anyone
|> <>    out there know how I can change the background color back to white?
|> <> 
|> <>                                     Thanks in advance.
|> <>                                              Bob
|> 
|> Set the environment variable ACADBGCOLOR.  Eg, 
|> 
|>    export ACADBGCOLOR="grey"    (for ksh)
|>    setenv ACADBGCOLOR  grey     (for csh)
|> 
|> 
|> 
|> Wolf Herda
|> wolf@autodesk.com
This is not what the documentation for the Open Windows version says.  Page 10
of "OPENLOOK.DOC for the Sun-4/SPARCstation" document says:

NOTE: The resource AutoCAD.BackgroundColor replaces the ACADBGCOLOR
environment variable used in SunView.

It goes on to say that to specify the AutoCAD drawing editor background color, add
the following line to your .Xdefaults file:

	AutoCAD.BackgroundColor: "color"

where "color" is one of the color names in the file /usr/openwin/lib/rgb.txt

Don Newman
newman@think.com
Newsgroups: alt.cad.autocad,alt.cad