CAD Forum discussion (EN) : Help Combining files https://www.cadforum.cz/forum_en/ Fri, 29 May 2026 18:06:14 +0000 Mon, 09 Mar 2020 15:08:07 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum_en/RSS_post_feed.asp?TID=13348 <![CDATA[CAD Forum discussion (EN)]]> https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ <![CDATA[Help Combining files : philippe JOSEPH wrote:Hello...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37455&title=help-combining-files#37455 Author: AGST
Subject: 13348
Posted: 09.Mar.2020 at 15:08

Originally posted by philippe JOSEPH philippe JOSEPH wrote:

Hello AGST, try this command : +PUBLISH ( GB ) , +PUBLICAR ( POR ).
It can be difficult to get it well and in any case set correctly the print settings at least of the first page.

Hello Joseph, that method only prints one sheet with all the drawings on it, i need a routine that marks each drawing as an individual window, so that when i plot, each drawing is considered as a page in the PDF.

The drawings are evenly spaced in the main file, as a result of a merge made from the routine above.
]]> Mon, 09 Mar 2020 15:08:07 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37455&title=help-combining-files#37455 <![CDATA[Help Combining files : Hello AGST, try this command :...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37454&title=help-combining-files#37454 Author: philippe JOSEPH
Subject: 13348
Posted: 09.Mar.2020 at 12:58

Hello AGST, try this command : +PUBLISH ( GB ) , +PUBLICAR ( POR ).
It can be difficult to get it well and in any case set correctly the print settings at least of the first page.
]]> Mon, 09 Mar 2020 12:58:33 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37454&title=help-combining-files#37454 <![CDATA[Help Combining files : Kent Cooper wrote:Try this...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37453&title=help-combining-files#37453 Author: AGST
Subject: 13348
Posted: 09.Mar.2020 at 12:00

Originally posted by Kent Cooper Kent Cooper wrote:

Try this -- very minimally tested.  It complains if drawings contain Xlines or Rays [it can't find their extents] or Xrefs [it doesn't like Inserting], but in the absence of such things, it seems to work.

Hello Kent, i hope the new year is running well for you.

I'm here asking for your help once more, so i thank you in advance for your time.

Problem: 

Let's suppose i have a DWG with all the drawings inside him, but when i plot the file to a PDF, i need it to output one drawing per page, instead of the whole drawing in one sheet. Is it possible?

At the moment, i need to select each drawing manually and add it as windows to the final plot file. Using this method i'm prone to mistakes due the monotous task of selecting alot of them manually.

I hope you can help me, thank you once again for your time.
]]> Mon, 09 Mar 2020 12:00:04 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37453&title=help-combining-files#37453 <![CDATA[Help Combining files : Kent Cooper wrote:Try this...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37337&title=help-combining-files#37337 Author: AGST
Subject: 13348
Posted: 30.Dec.2019 at 09:27

Originally posted by Kent Cooper Kent Cooper wrote:

Try this -- very minimally tested.  It complains if drawings contain Xlines or Rays [it can't find their extents] or Xrefs [it doesn't like Inserting], but in the absence of such things, it seems to work.

Hello Kent,

I can't thank you enough for your help...
It's perfect!!! It's exactly what i needed!!!
You just saved my life!!!

I wish you the best!!!
And a happy new year!!!
]]> Mon, 30 Dec 2019 09:27:40 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37337&title=help-combining-files#37337 <![CDATA[Help Combining files : Try this -- very minimally tested....]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37333&title=help-combining-files#37333 Author: Kent Cooper
Subject: 13348
Posted: 27.Dec.2019 at 21:09

Try this -- very minimally tested.  It complains if drawings contain Xlines or Rays [it can't find their extents] or Xrefs [it doesn't like Inserting], but in the absence of such things, it seems to work.

(vl-load-com)
(defun C:BC (/ blkfolder space nextUL colwd colUL blkLL blkUR blkwd blkht)
  (setq osm (getvar 'osmode))
  (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
    colUL (list space (- space) 0); upper left of first column [one space-width to right of and below 0,0]
    nextUL colUL ; for first Block
    rowno 1
    colwd 0 ; width of widest block in column [to set X coordinate of next column]
  ); 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)
      blkwd (- (car blkUR) (car blkLL))
      blkht (- (cadr blkUR) (cadr blkLL))
    ); setq
    (if (= rowno 11)
      (setq ; then - start new column to right of previous column
        colUL (polar colUL 0 (+ colwd space))
        nextUL colUL
        colwd 0
        rowno 1
      ); setq
    ); if - no else [next in current column]
    (command
      "_.zoom" "_object" (entlast) ""
      "_.move" (entlast) "" (list (car blkLL) (cadr blkUR)) nextUL
    ); command
    (setq
      nextUL (polar nextUL (* pi 1.5) (+ blkht space))
      rowno (1+ rowno)
      colwd (max blkwd colwd)
    ); setq
  ); foreach
  (setvar 'osmode osm)
  (command "_.zoom" "_extents")
  (princ)
); defun
]]> Fri, 27 Dec 2019 21:09:11 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37333&title=help-combining-files#37333 <![CDATA[Help Combining files : Kent Cooper wrote:That shouldn&#039;t...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37332&title=help-combining-files#37332 Author: AGST
Subject: 13348
Posted: 27.Dec.2019 at 14:48

Originally posted by Kent Cooper Kent Cooper wrote:

That shouldn't be difficult, but first:

How should the location of the first one be determined?  Ask the User?  Something in relation to the drawing limits?  Some fixed location every time?

Thank you for the quick reply Kent.

The location of the first one doesn't matter, it can even start at (x=0,y=0), as long as the imported DWG's follow the disposition from top to bottom and left to right and mantain 100 units between each one (horizontally and vertically).

Vertically a max of 10 rows, then it starts another column from the top.

Thank you in advance for your time.


Edited by AGST - 27.Dec.2019 at 14:49]]> Fri, 27 Dec 2019 14:48:13 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37332&title=help-combining-files#37332 <![CDATA[Help Combining files : That shouldn&#039;t be difficult,...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37331&title=help-combining-files#37331 Author: Kent Cooper
Subject: 13348
Posted: 27.Dec.2019 at 14:14

That shouldn't be difficult, but first:

How should the location of the first one be determined?  Ask the User?  Something in relation to the drawing limits?  Some fixed location every time?
]]> Fri, 27 Dec 2019 14:14:58 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37331&title=help-combining-files#37331 <![CDATA[Help Combining files : Hi guys!!!I seek your help please!!The...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37329&title=help-combining-files#37329 Author: AGST
Subject: 13348
Posted: 27.Dec.2019 at 10:51

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!
]]> Fri, 27 Dec 2019 10:51:48 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37329&title=help-combining-files#37329 <![CDATA[Help Combining files : Kent Cooper wrote:You may be...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37327&title=help-combining-files#37327 Author: AGST
Subject: 13348
Posted: 26.Dec.2019 at 13:00

Originally posted by Kent Cooper Kent Cooper wrote:

You may be able to use BlockChart.lsp with its BC command, available >here<.  It goes from lower left in horizontal rows, and builds upward from there, but could be modified to do the sequence you describe instead, and to space things farther apart than it does [you can do that yourself by changing the 1 value assigned to the 'space' variable], if it otherwise does what you want.  It needs you to have all those drawings in one folder, with no other drawing files in that folder, and the current drawing limits need to be wide enough in the X direction for a reasonable number of them to make a row, or the whole collection will be stacked in one tall column.

But I do wonder:  do any of your drawings have Xref's in them?  I can imagine that being a problem....

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
]]> Thu, 26 Dec 2019 13:00:16 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37327&title=help-combining-files#37327 <![CDATA[Help Combining files : John Connor wrote:Your client...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37326&title=help-combining-files#37326 Author: AGST
Subject: 13348
Posted: 26.Dec.2019 at 08:44

Originally posted by John Connor John Connor wrote:

Your client will be looking at postage stamps when you're done.

Don't ask me why, but it's a demand they make!
]]> Thu, 26 Dec 2019 08:44:44 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13348&PID=37326&title=help-combining-files#37326