![](../_en/img/nic.gif)
Discussion forum
|
![CAD Forum - Homepage CAD Forum - Homepage](forum_images/web_wiz_forums.png)
Please abide by the rules of this forum.
How to post questions: register or login, go to the specific forum and click the NEW TOPIC button.
|
Post Reply ![]() |
Page 12> |
Author | |
AGST ![]() Newbie ![]() Joined: 23.Dec.2019 Location: Portugal Using: Autocad, Eplan Status: Offline Points: 11 |
![]() Posted: 23.Dec.2019 at 11:42 |
Hello all! I'm new to this forum and what led me here was my new job as a CAD Designer! ![]() I have a work in hands where i need to take multiple DWG files and create a master one where all of them are displayed in a single sheet, side by side in 10 rows filled from top to bottom, left to right. I added a image of what is intended: ![]() If i do this manually it takes a lot of time, so i seek your help, asking if you know any program that does this job automatically. Thank you in advance! Best Regards!
|
|
![]() |
|
John Connor ![]() Senior Member ![]() Joined: 01.Feb.2011 Location: United States Using: AutoCAD 2018 Status: Offline Points: 7175 |
![]() |
And just how big is the "single" sheet that will hold all twelve drawings?
|
|
"Humans have a strength that cannot be measured. This is John Connor. If you are reading this, you are the resistance."
<<AutoCAD 2015>> |
|
![]() |
|
AGST ![]() Newbie ![]() Joined: 23.Dec.2019 Location: Portugal Using: Autocad, Eplan Status: Offline Points: 11 |
![]() |
Thank you for the quick reply!
There isn't a predefined size and the 12 sheets is an example, normally is 30+ files in the same sheet. This is a client requirement, he wants a single sheet with all the drawings in it... This is a finished example of what the client wants, done manually: ![]() Thank you in advance for your help!
|
|
![]() |
|
Kent Cooper ![]() Senior Member ![]() Joined: 12.Mar.2013 Location: United States Using: AutoCAD2020, 2023 Status: Offline Points: 632 |
![]() |
You may be able to use BlockChart.lsp with its BC command, available
But I do wonder: do any of your drawings have Xref's in them? I can imagine that being a problem....
Edited by Kent Cooper - 23.Dec.2019 at 14:57 |
|
![]() |
|
AGST ![]() Newbie ![]() Joined: 23.Dec.2019 Location: Portugal Using: Autocad, Eplan Status: Offline Points: 11 |
![]() |
Thank you for your reply.
Our drawings are all single layered. They dont have any xref's in them. I'm going to try your solution, i'm afraid the .lsp file won't run on our programs. PS: The link you mentioned redirects to this post...
Edited by AGST - 23.Dec.2019 at 15:35 |
|
![]() |
|
Kent Cooper ![]() Senior Member ![]() Joined: 12.Mar.2013 Location: United States Using: AutoCAD2020, 2023 Status: Offline Points: 632 |
![]() |
Try this:
What makes you afraid it won't run? Are you using AutoCAD LT that can't use AutoLisp (your info lists AutoCAD without any elaboration)?
Edited by Kent Cooper - 23.Dec.2019 at 17:34 |
|
![]() |
|
John Connor ![]() Senior Member ![]() Joined: 01.Feb.2011 Location: United States Using: AutoCAD 2018 Status: Offline Points: 7175 |
![]() |
Your client will be looking at postage stamps when you're done.
|
|
"Humans have a strength that cannot be measured. This is John Connor. If you are reading this, you are the resistance."
<<AutoCAD 2015>> |
|
![]() |
|
AGST ![]() Newbie ![]() Joined: 23.Dec.2019 Location: Portugal Using: Autocad, Eplan Status: Offline Points: 11 |
![]() |
Don't ask me why, but it's a demand they make!
|
|
![]() |
|
AGST ![]() Newbie ![]() Joined: 23.Dec.2019 Location: Portugal Using: Autocad, Eplan Status: Offline Points: 11 |
![]() |
Hi Kent, the BlockChart.lsp worked like a charm, it did in fact a single column of all the files, can you help me modify the code so that a new column is used when it reaches 10 rows? Ty in advance
|
|
![]() |
|
AGST ![]() Newbie ![]() Joined: 23.Dec.2019 Location: Portugal Using: Autocad, Eplan Status: Offline Points: 11 |
![]() |
Hi guys!!!
I seek your help please!! The code that Kent so kindly provided, sorts the DWG's from bottom left to top in a single column. I need to modify it, so it sorts from top left to bottom and left to right in 10 rows per column. Here's the code: (defun C:BC (/ blkfolder space nextLL rowht rowL blkLL blkUR objwid objht) (vl-load-com) (setvar 'osmode 0) (alert "Pick OK here, then double-click any file in desired folder: ") (setq blkfolder (getfiled "Find folder" "" "dwg" 0) blkfolder (substr blkfolder 1 (1+ (vl-string-position 92 blkfolder 1 T))); path without dwg name space 100 ; between blocks and min. from limits <------ set as desired nextLL (mapcar '+ (getvar 'limmin) (list space space 0)); lower left of next block rowht 0 ; height of tallest block in row rowL nextLL; left end of baseline of row ); end setq (foreach blk (vl-directory-files blkfolder "*.dwg" 1) (command "_.insert" (strcat blkfolder blk) (getvar 'viewctr) "" "" "") (vla-getboundingbox (vlax-ename->vla-object (entlast)) 'minpt 'maxpt) (setq blkLL (vlax-safearray->list minpt) blkUR (vlax-safearray->list maxpt) objwid (- (car blkUR) (car blkLL)) objht (- (cadr blkUR) (cadr blkLL)) ) (if (> (+ (car nextLL) objwid space) (car (getvar 'limmax))) (setq ; then - start new row above previous row nextLL (polar rowL (/ pi 2) (+ rowht space)) rowL nextLL rowht 0 ); end setq ); end if - no else [next in current row] (command "_.move" (entlast) "" blkLL nextLL) (setq nextLL (polar nextLL 0 (+ objwid space))) (if (> objht rowht) (setq rowht objht)) ); end foreach ); end defun Can anyone give some help please? Thank you in advance!
|
|
![]() |
Post Reply ![]() |
Page 12> |
Tweet
|
Forum Jump | Forum Permissions ![]() You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |
This page was generated in 0,395 seconds.