topic Re: LIST OF DRAWINGS FROM FOLDER in Visual LISP, AutoLISP and General Customization Forum

LIST OF DRAWINGS FROM FOLDER

SAFizzy — Wed, 17 Oct 2018 09:10:16 GMT

Dear All:

I am looking for a lisp to create a table in Auto CAD with List of Drawings, by taking the data (list of all files) from folder.

thanks in advance

Re: LIST OF DRAWINGS FROM FOLDER

roland.r71 — Wed, 17 Oct 2018 09:24:05 GMT

Just 1 folder, no subdirectories?

edit:

If so: vl-directory-files will get you that list, like:

(vl-directory-files "e:/acadwin" "*.dwg" 1)

This will list all drawings inside given path. (using given filter (*.dwg)

The 1 stands for "filenames only".

If you do have subdirs, it becomes a bit more complicated.

Re: LIST OF DRAWINGS FROM FOLDER

SAFizzy — Wed, 17 Oct 2018 09:18:45 GMT

yes just 1 folder

Re: LIST OF DRAWINGS FROM FOLDER

SAFizzy — Wed, 17 Oct 2018 09:28:51 GMT

sorry,

i didn't get you, can you explain what to do?

Re: LIST OF DRAWINGS FROM FOLDER

dbhunia — Wed, 17 Oct 2018 11:11:04 GMT

Try this......

This will ask you to chose the folder......(It will return the files of the folder only not the folder tree....)

Then ask you to chose the "mtext" location where to insert the list of files......

Now you can take the list & put those value in your table........(Because your table format is unknown...)

(defun c:GET_FILES ( / sh folder folderobject result text)
(vl-load-com)
(command "cmdecho" 0)
(setq sh (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application" ))
(setq folder (vlax-invoke-method sh 'BrowseForFolder 0 "" 0 ))
(vlax-release-object sh)
(setq folderobject (vlax-get-property folder 'Self))
(setq result (vlax-get-property FolderObject 'Path))
(setq Files_Folder (vl-directory-files result "*.dwg"))
(setq text "")
(if (/= (length Files_Folder) 0)
(repeat (setq N (length Files_Folder))
 (setq e (nth (setq N (- N 1)) Files_Folder))
 (setq text (strcat text e "\\P"))
)
(princ "\nDoes not containing any *.DWG File.")
) 
(if (/= (length Files_Folder) 0)
(command "_.MTEXT" pause pause text "")
)
(command "cmdecho" 1)
(princ)
)

Re: LIST OF DRAWINGS FROM FOLDER

SAFizzy — Wed, 17 Oct 2018 11:12:58 GMT

Excellent,

just small adjustments

1: remove extension

2: list not in proper ascending/descending order

3: add serial number

4: table of two columns (serial number & file name) and rows according to list

5: scale of table to be confirmed

Thanks for your help

Re: LIST OF DRAWINGS FROM FOLDER

roland.r71 — Wed, 17 Oct 2018 11:50:16 GMT

what to do?

Create a list of filenames.

Create a table.

Populate the table using the list of filenames.

As this requires ActiveX methods (afaik), I can only help you a bit.

I can get the above done, but don't ask about 'customizing', as I know to little about ActiveX methods within acad to do so properly.

This is howfar i can get, using the Knowledge Network and some code i found from @_Tharwat (albeit on another forum).

(setq  file_list (vl-directory-files "E:/lisp/testDWG" "*.dwg" 1)
      rows       (length file_list)
      cw         1
      acadObj    (vlax-get-acad-object)
      doc        (vla-get-ActiveDocument acadObj)
      pt         (vlax-3d-point 0 0 0)
      modelSpace (vla-get-ModelSpace doc)
)
(foreach file file_list
   (setq ln (strlen file))
   (if (> ln cw)(setq cw ln))
)
(setq myTable (vla-addtable modelSpace pt rows 1 1 50)
      i       0
      hgt     (if (zerop (cdr (assoc 40 (setq e (entget (tblobjname "STYLE" (getvar 'textstyle)))))))
                 (cdr (assoc 42 e))
                 (cdr (assoc 40 e))
              )
 )
(vla-setcolumnwidth myTable 0 (* hgt cw))
(while (< i (length file_list))
   (vla-settext myTable i 0 (nth i file_list))
   (setq i (1+ i))
)

However, the text size isn't coming from the textstyle, but some kind of table layout.

as the first line is 6 and the rest is 4.5, but the textstyle sayz: 2.5

So i don't have a clue yet how to set those correctly. (if possible)

Re: LIST OF DRAWINGS FROM FOLDER

roland.r71 — Wed, 17 Oct 2018 12:13:57 GMT

@SAFizzy wrote:
Excellent,
just small adjustments
1: remove extension
2: list not in proper ascending/descending order
3: add serial number
4: table of two columns (serial number & file name) and rows according to list
5: scale of table to be confirmed

Thanks for your help

1. Learn about string handling functions. (hint: substr can be usefull here)

2. Learn about list manipulation functions. (hint: acad_strlsort will do)

3. Where did that serial just suddenly come from?: Be complete in requests.

4. Look up the table command & learn how to set column numbers.

5. What scale?

Keep in mind:

We are here to help you do your work & get things done. NOT to do all the work for you.

(unless you hire somebody) Your questions tell me you a: know nothing about lisp & b: do not intend to ever learn. a) is not a problem. b) IS! (for me at least)

Re: LIST OF DRAWINGS FROM FOLDER

SAFizzy — Wed, 17 Oct 2018 12:28:00 GMT

sorry to say that, this is not the way to help others, i am new here in this forum & lisp.

I like the answer from @dbhunia this satisfied me alot

anyway thanks for your try to help me.

Re: LIST OF DRAWINGS FROM FOLDER

dbhunia — Wed, 17 Oct 2018 13:07:48 GMT

@SAFizzy wrote:
Excellent,
just small adjustments
1: remove extension
2: list not in proper ascending/descending order
3: add serial number
4: table of two columns (serial number & file name) and rows according to list
5: scale of table to be confirmed

..................

Try this .......

This will cover the highlighted points .........

Rest you have to do your own..........All the rest points can be controlled from properties/Manually.....

I am quite busy to do my things........

(defun c:GET_FILES ( / sh folder folderobject result)
(vl-load-com)
(command "cmdecho" 0)
(setq sh (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application" ))
(setq folder (vlax-invoke-method sh 'BrowseForFolder 0 "" 0 ))
(vlax-release-object sh)
(setq folderobject (vlax-get-property folder 'Self))
(setq result (vlax-get-property FolderObject 'Path))
(setq Files_Folder (vl-directory-files result "*.dwg"))

(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
(setq pt (vlax-3d-point 0 0 0))
(setq modelSpace (vla-get-ModelSpace doc))
(setq MyTable (vla-Addtable modelSpace pt (+ (length Files_Folder) 2) 2 10 100))
(vla-ZoomExtents acadObj)
(vla-setText MyTable 0 0 "Drawing File List")
(vla-setText MyTable 1 0 "Serial Number")
(vla-setText MyTable 1 1 "File Name")

(if (/= (length Files_Folder) 0)
(repeat (setq N (length Files_Folder))
 (setq e (nth (setq N (- N 1)) Files_Folder))
 (setq fsl (strlen e))
 (Setq Fsl (- fsl 4))
 (setq Fname (substr e 1 fsl))
 (vla-setText MyTable (+ N 2) 0 (+ N 1))
 (vla-setText MyTable (+ N 2) 1 Fname)
)
(princ "\nDoes not containing any *.DWG File.")
) 

(command "cmdecho" 1)
(princ)
)

Re: LIST OF DRAWINGS FROM FOLDER

SAFizzy — Wed, 17 Oct 2018 13:21:38 GMT

thanks bro,

there is something missing, as i am not getting table.

Its just disappear.

sorry to disturb you

Re: LIST OF DRAWINGS FROM FOLDER

dbhunia — Wed, 17 Oct 2018 13:39:38 GMT

I don't know, ..... its tested in AutoCAD 2008........(before 29th October I can not check it in Higher version)

Table is creating in "modelSpace".......... Are you in "modelSpace"?????

Re: LIST OF DRAWINGS FROM FOLDER

SAFizzy — Wed, 17 Oct 2018 13:30:25 GMT

yes i am in model space,

but i am using AutoCAD 2015

Re: LIST OF DRAWINGS FROM FOLDER

roland.r71 — Wed, 17 Oct 2018 14:55:12 GMT

It works for me. (Using ACAD2018)

Re: LIST OF DRAWINGS FROM FOLDER

Shneuph — Wed, 17 Oct 2018 16:23:43 GMT

I have to agree with @roland.r71 Some people treat this forum like a resource to place orders for free Lisp. Then they have a habit of getting demanding! People are here to help each other learn lisp or work through issues they may be having with THEIR code. Not to write entire subs for people on demand. I tend to only answer questions when the OP has posted code that they have at least started to write themselves.

GOOD:
"I'm having trouble doing xxx with this code. ::code:: What am I missing? How can I do this?"

BAD:
"I want a lisp to blah blah blah.... Good.. now make it do this too. Bye!"

Re: LIST OF DRAWINGS FROM FOLDER

Anonymous — Wed, 17 Oct 2018 17:28:18 GMT

Great. Well working.

I have tested it to list out for specific extension of files like pdf's, xls, dwg's or dxf's. Can I use it for specific extensions only?.

Advanced Thanks

Re: LIST OF DRAWINGS FROM FOLDER

roland.r71 — Wed, 17 Oct 2018 18:16:10 GMT

@Anonymous wrote:
Great. Well working.

I have tested it to list out for specific extension of files like pdf's, xls, dwg's or dxf's. Can I use it for specific extensions only?.

Advanced Thanks

Yes & No.

Yes, you can only define one wildcard. So you can't filter for 2 or 3 different extensions at ones.

No, you can use any wildcard formatted filter. (examples: *.txt : *.* : *.pdf : MyProject-drw????A.dwg etc.)

edit:

It will list all files, matching the filter. so *.* gets you a list of all files ( and/or the subdir names) there.

No matter what kind of files it may be.

Re: LIST OF DRAWINGS FROM FOLDER

dbhunia — Tue, 06 Nov 2018 06:04:05 GMT

Hi,

First Thing to do,

Table is placing at "0,0,0" ............. Check once at that location......

Re: LIST OF DRAWINGS FROM FOLDER

SAFizzy — Tue, 06 Nov 2018 06:24:45 GMT

Thanks, @dbhunia

Yes i got what i am looking for, attached are two images showing list of drawings in folder and table created by lisp. the only problem in this table is that, It is too small and not in ascending order.

Thanks for help

Re: LIST OF DRAWINGS FROM FOLDER

dbhunia — Tue, 06 Nov 2018 07:10:48 GMT

Hi,

For.....

@SAFizzy wrote:
Thanks, @dbhunia
Yes i got what i am looking for, attached are two images showing list of drawings in folder and table created by lisp. the only problem in this table is that, It is too small and not in ascending order. ................................

Try this......

(defun c:GET_FILES ( / sh folder folderobject result)
(vl-load-com)
(command "cmdecho" 0)
(setq sh (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application" ))
(setq folder (vlax-invoke-method sh 'BrowseForFolder 0 "" 0 ))
(setq MTH (getreal "\nInput the Text Height: "))
(setq WT (getreal "\nWidth of the table: "))
(vlax-release-object sh)
(setq folderobject (vlax-get-property folder 'Self))
(setq result (vlax-get-property FolderObject 'Path))
(setq Files_Folder (vl-directory-files result "*.dwg"))

(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
(setq pt (vlax-3d-point 0 0 0))
(setq modelSpace (vla-get-ModelSpace doc))
(setq MyTable (vla-Addtable modelSpace pt (+ (length Files_Folder) 2) 2 (* MTH 1.3) WT))
(vla-ZoomExtents acadObj)
(vla-setText MyTable 0 0 "Drawing File List")
(vla-setcelltextheight MyTable 0 0 MTH)
(vla-setText MyTable 1 0 "Serial Number")
(vla-setText MyTable 1 1 "File Name")
(acad_strlsort Files_Folder)

(if (/= (length Files_Folder) 0)
(repeat (setq N (length Files_Folder))
 (setq e (nth (setq N (- N 1)) Files_Folder))
 (setq fsl (strlen e))
 (Setq Fsl (- fsl 4))
 (setq Fname (substr e 1 fsl))
 (vla-setText MyTable (+ N 2) 0 (+ N 1))
 (vla-setText MyTable (+ N 2) 1 Fname)
)
(princ "\nDoes not containing any *.DWG File.")
) 

(setq RN 0)
(if (/= (length Files_Folder) 0)
(repeat (setq N (+ (length Files_Folder) 1))
  (setq RN (+ RN 1))
  (vla-setcelltextheight MyTable RN 0 MTH)
  (vla-setcelltextheight MyTable RN 1 MTH)
)
)
(command "cmdecho" 1)
(princ)
)

I had tested this in AutoCAD 2017 & 2018.......its ok.......see the attached image....