drawing number list

chuck i fail to see your logic. why do you want to do this?

Great idea, Chuck.

For this kind of case, it's generally best to put some code in so we know exactly what you're doing. What EXACTLY are you trying to do with the logical operators that's giving you trouble?

If it's reading the file, I do something like this:

(setq ofil (open "filename" "r")) (while (setq nxtlin (read-line ofil)) ;process line here ) (close ofil)

When the end of the file is reached, nxtlin is set to nil, then returned by setq, which exits the while loop.

Now, is that what you're having trouble with, by chance?

Here's what I've got. As you can see I'm a real amateur at this. I should probably take a course in this except the closest offering is an hour's drive each way for a night school class once a week.

I've discovered that dwgname is a system variable and can't be used as an autolisp variable plus my brackets were incorrect. This is my latest attempt.

(defun c:dstamp () (setq drvn (getstring "/nplease enter the drive name ")) (setq dirn (getstring "/nplease enter the directory name include subdirectories separated by a / like this...dir/subdir " ) ) (setq filen (strcat drvn ":/" dirn "drawing numbers.txt")) (setq dn (open filen "w")) (setq cval (read-line dn)) (if (= cval " ") (write-line "1" dn)) (while (setq nextline (read-line dn)) (setq dname (atof (read-line dn))) ) (setq dname (+ 1 dname)) (write-line (rtos dname) dn) (close filen) (setq a (getvar "textsize")) (setq x (/ a 2)) (setq a (- (car (getvar "limmax")) a)) (command "text" "j" "br" (list a x) "" "" dname)

If I'm not mistaken, you're trying to determine if the file is empty, is that correct? If so, here is a 'logic error'. You're testing for a space character here. I think it would be better to test for nill. Something like this:

(if (not cval) (write-line "1" dn) (progn ;code here to get last line and increment number );progn );if

Again, I'm going on assumptions here, so adapt as necessary. Wouldn't you want to check to see if the txt file exists, then create with the "1" in it, if it does not?

Also, FWIW, there is a variable named DWGPREFIX that will give you the path of the current drawing. If this is appropriate for you, it's much cleaner than prompting the user for a path.

As always, re-post with any comments/questions.

(defun c:dstamp () (setq dp (getvar "DWGPREFIX")) ;returns the current drive and directory of the drawing (setq filen (strcat dp "drawing numbers.txt")) ;creates the file in the "dp" directory (setq dn (open filen "w")) ;this is where I start to get lost...open filen for writing....I assume you can also read from this file at this point? (setq cval (read-line dn)) (if (not cval) (write-line "1" dn) (progn (while (setq dnumber (read-line dn)) (setq dname (atof dnumber)) ;returns the nextline as a real (setq dnxet (+ 1 dname)) ;increments the real by one for the next drawing number (write-line (rtos dnext) dn) :writes the next drawing number to the file ) (close dn) :close the file ) (setq a (getvar "TEXTSIZE")) (setq x (/ a 2)) ;sets the vertical offset to TEXTSIZE/2 (setq a (- (car (getvar "LIMMAX")) a)) ;sets the horizontal offset to LIMMAX-TEXTSIZE (bottom-right justified) (command "text" "j" "br" (list a x) "" "" dnumber) ;prints the dnumber at the pre-determined co-ordinates )

This is incorrect. You would have to open the file to read OR write. To test this, I did this at the command line:

(setq ofil (open "c:/notreallyafilename.txt" "r")) nil

Command: (setq ofil (open "c:/notreallyafilename.txt" "w")) #

Command: (setq ofil (open "c:/notreallyafilename.txt" "w"))*Cancel*

Command: (write-line "first line") first line "first line"

Command: (close ofil) nil

Notice on the initial read attempt that nil is returned. This is how I would test for the existance of the file. Logic would look like this:

(if (setq ofil (open filename "r")) (progn (while (setq nxtlin (read-line ofil)) (setq lastnum nxtlin) ;might net adapted to your situation );while (setq increment (1+ lastnum)) (close ofil) ;always close files ASAP );progn, then (setq increment 1) );if (setq ofil (open filename "a")) ;if it doesn't exist, it will be created (write-line (itoa increment)) ;might need adapted to your situation (close ofil)

Open with the "a" will automatically add to the end of the file

WARNING: I wrote this rather quickly without testing, and I'm not positive of your file format. My intent is to show the basic logic, hopefully in a simple to understand format. ;)