Creating drawing list in AutoCad

[MarcoW]

Marco - i am from australia, why?

 

I thought "if you are dutch I might do some PM in dutch..." for it would make things easyer to explain. Nevermind...

 

I spend a few hours on researching the sheet set manager. I found a lot information but it all ends with the same: creating a set that contains bunch of drawings, layouts etc. I haven't fond anything that helps setting up the actual drawinglist, the connection to the titleblocks as we need it.

 

Strange... would we both be the only ones on earth that want to do this? No I guess not... So anyone?

 

The other way to do something is by eattext but I feel limited with the tables:

 

1. I can't seem to sort the table rows in de- or ascending order

2. Also I can not add or delete collums...

 

Maybe that somebody over here has experience with eattext, tables and SSM...

[Freerefill]

LoL

This is just turning into an exercise for fun...

 

I wanted to fix the 1-9 number to display as 01-09.

 

How about it reads the total number and concatenates the proper number of leading 0's from numbers with digits less than the greatest? Id est, if there were 8, the numbers would be:

1 2 3 4 5 6 7 8

but if there were 12:

01 02 03 04 05 06 07 08 09 10 11 12

and if there were 1,142:

0001 0002 0003 ... 0009 0010 0011 .... 0098 0099 0100 0101 ... 0998 0999 1000 1001 ... 1141 1142

 

Just an idea to make you work even harder, alanjt

 

By the by, really nice work so far. ^.^b

[Glen Smith]

AutoCAD Electrical includes something called the Project Manager. In this you can do a drawing list report which will create a table with the filename (and a bucnh of other stuff) of all the drawings associated with the project. I'm not sure if the Project Manager is available with any other verticle or not - it sure does make creating index pages easy.

 

Glen

[alanjt]

How about it reads the total number and concatenates the proper number of leading 0's from numbers with digits less than the greatest? Id est, if there were 8, the numbers would be:

1 2 3 4 5 6 7 8

but if there were 12:

01 02 03 04 05 06 07 08 09 10 11 12

and if there were 1,142:

0001 0002 0003 ... 0009 0010 0011 .... 0098 0099 0100 0101 ... 0998 0999 1000 1001 ... 1141 1142

 

Just an idea to make you work even harder, alanjt

 

By the by, really nice work so far. ^.^b

 

 

Thanks.

 

LoL

That would be interesting, but I've actually got projects to work on today.

[alanjt]

How about it reads the total number and concatenates the proper number of leading 0's from numbers with digits less than the greatest? Id est, if there were 8, the numbers would be:

1 2 3 4 5 6 7 8

but if there were 12:

01 02 03 04 05 06 07 08 09 10 11 12

and if there were 1,142:

0001 0002 0003 ... 0009 0010 0011 .... 0098 0099 0100 0101 ... 0998 0999 1000 1001 ... 1141 1142

 

Just an idea to make you work even harder, alanjt

 

By the by, really nice work so far. ^.^b

 

 

 

Ask and you shall receive. :wink: Wasn't too terribly difficult.

 

;;; Fix number with leading zeros
;;; #Num - Number to fix
;;; #Length - Number of characters for final string
;;; Alan J. Thompson, 10.29.09
(defun AT:NumFix (#Num #Length / #Str)
 (setq #Str (vl-princ-to-string #Num))
 (while (< (strlen #Str) #Length)
   (setq #Str (strcat "0" #Str))
 ) ;_ while
 #Str
) ;_ defun

Command: (AT:NumFix 1 1)
"1"

Command: (AT:NumFix 1 2)
"01"

Command: (AT:NumFix 1 5)
"00001"

Command: (AT:NumFix 1 
"00000001"

Command: (AT:NumFix 1 15)
"000000000000001"

Command: (AT:NumFix 1 16)
"0000000000000001"

Command: (AT:NumFix 1 99)
"0000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000001"

Revised code:

;;; Place current drawing's directory contents (matching *.dwg) in MText
;;; Required Subroutines: AT:MText
;;; Alan J. Thompson, 10.28.09
(defun c:Dir2Text (/ AT:NumFix #Pnt1 #List #Pos #String #Text #Read)
;;; Fix number with leading zeros
;;; #Num - Number to fix
;;; #Length - Number of characters for final string
;;; Alan J. Thompson, 10.29.09
 (defun AT:NumFix (#Num #Length / #Str)
   (setq #Str (vl-princ-to-string #Num))
   (while (< (strlen #Str) #Length)
     (setq #Str (strcat "0" #Str))
   ) ;_ while
   #Str
 ) ;_ defun

 (cond
   ((setq #Pnt1 (getpoint "\nSpecify first corner: "))
    (setq #List   (vl-sort (vl-remove-if-not
                             '(lambda (x) (wcmatch x "*.dwg"))
                             (vl-directory-files (getvar 'dwgprefix))
                           ) ;_ vl-remove-if-not
                           '<
                  ) ;_ vl-sort
          #String ""
    ) ;_ setq
    (foreach x #List
      (setq #Pos (AT:NumFix (1+ (vl-position x #List)) (strlen (itoa (length #List)))))
      (setq #String (strcat #String #Pos " - " (vl-filename-base x) "\\P"))
    ) ;_ foreach
    (setq #Text (AT:MText #Pnt1 #String 0 nil 1))
    (while (eq 5 (car (setq #Read (grread T 15 2))))
      (redraw)
      (grvecs (list 7
                    #Pnt1
                    (list (car (cadr #Read)) (cadr #Pnt1))
                    (list (car (cadr #Read)) (cadr #Pnt1))
                    (cadr #Read)
                    (cadr #Read)
                    (list (car #Pnt1) (cadr (cadr #Read)))
                    (list (car #Pnt1) (cadr (cadr #Read)))
                    #Pnt1
              ) ;_ list
      ) ;_ grvecs
      (vla-put-width #Text (abs (- (car #Pnt1) (car (cadr #Read)))))
    ) ;_ while
   )
 ) ;_ cond
 (redraw)
 (princ)
) ;_ defun

[gazzalp]

Marco, funny thing is i am actually half dutch - from my fathers side, although i dont speak a word of it although if you were to type out the days of the week i would recognise them but thats as far as it goes. With the tables from eattext you should be able to sort the tables - when you are first creating it and it comes up with your columns, click on the grey header. For example i had the following:

 

dwgname revision

001 A

006 B

003 A

 

If i click on dwg name it puts 1 at the top, then 3 then 6. Click it again and it reverses the order. In terms of adding or deleting columns do you mean once you have created the table? Again when you are making the table if you click on the grey header talked about above you can select "hide columns". Im still hoping to find a way to merge two columns into one...