The total number of DWG files in the title block

The total number of DWG files in the title block

S.MANICKAVASAGAM
Collaborator Collaborator
322 Views
1 Reply
Message 1 of 2

The total number of DWG files in the title block

S.MANICKAVASAGAM
Collaborator
Collaborator

Dear expert,

                 I tried your lisp, working is fine.

            Can be possible use only selected drawings in that folder?

Capture.JPG

Thanks & Regards
S.MANICKAVASAGAM
FAB. DETAILER
My body Your body Every body is Just SOIL body

If this information was helpful, please use the Accept as Solution function, this make it easier for other users
0 Likes
323 Views
1 Reply
Reply (1)
Message 2 of 2

pbejse
Mentor
Mentor

@S.MANICKAVASAGAM wrote:

Dear expert,

                 I tried your lisp, working is fine.

            Can be possible use only selected drawings in that folder?


Download this function from Lee Mac

;;------------------------=={ Get Files Dialog }==----------------------;;
;;                                                                      ;;
;;  An analog of the 'getfiled' function for multiple file selection.   ;;
;;----------------------------------------------------------------------;;
;;  Author:  Lee Mac, Copyright © 2012  -  www.lee-mac.com              ;;

And  replace this line

(setq f (acet-ui-pickdir "Select project Folder" (if f f (getvar 'dwgprefix))))
(setq AllDrawingFiles (vl-directory-files f "*.dwg"))

with 

(setq AllDrawingFiles (LM:getfiles "Select Drawings" "" "dwg"))

 Also this

(vl-catch-all-error-p
	     (vl-catch-all-apply 'vla-open (list odbx (Strcat f "\\" dwg)))
	   )

to

(vl-catch-all-error-p
	     (vl-catch-all-apply 'vla-open (list odbx dwg))
	   )

Then you're all set in terms of selecting drawings in a folder

 

HTH

0 Likes