Leaderboard

Have you got a sample drawing you can post, perhaps a before and after what you want to do. I am getting an error with (command "_.join" "_all") and from your question suspect that selecting the lines to create the boundary might be the solution you want too... but not quite sure on the drawing you are working with and to create.

Hi Fuccaro, Thank you so much for creating these codes for me, it works marvellously. Having all my requests all in one file. Thank you for your time and your knowledge.

You can see here the differences between the rectangles. Each rectangle is for different team of workers. I can't use regular sizes

Yep been down that path Publishing a standards booklet some sheets just did not plot correct it would set margins to left instead of right as sheet was set up. So yes use a lisp. The program Ghostscript has a nice join pdfs back into 1 function. I would expect that you have your layouts set up correctly re title block. So welcome to edit the attached, need to download ghostscript and change code to suit version etc. I have a later version done for a client and it will plot a mixture of known title blocks eg landscape or portrait and sizes. Happy to discuss via PM. Multi GETVALS.lsp plotA3Pdfrange2.lsp

@3dwannab add 440 to this list: '(8 62 420 430 440)

You don't need another script. But here's one anyway. Maybe it helps someone who needs parts of this code some day command Test2 (vl-load-com) ;; if no parameter if given, then a list of all layers is given. ;; if a layer is given, the function returns True when the layer is "On", "not frozen" and "not locked". Else nil is returned (defun get_layers (lay / lyr table ret) (setq ret T) (vlax-for lyr (vla-get-layers (vla-get-activedocument (vlax-get-acad-object) ) ) (if (= (vla-get-name lyr) lay) (if (and (= :vlax-true (vla-get-layeron lyr)) (= :vlax-false (vla-get-freeze lyr)) (= :vlax-false (vla-get-lock lyr)) ) (setq ret T) (setq ret nil) ) ) (setq table (cons (vla-get-name lyr) table)) ) (if lay ret table ) ) (defun c:test ( / ) (get_layers nil) ) (defun c:test2 ( / ss ss2 i) (setq ss (ssget "_X" (list (cons 0 "*POLYLINE")))) (setq i 0) (setq ss2 (ssadd)) (repeat (sslength ss) (setq obj (ssname ss i)) (if (get_layers (cdr (assoc 8 (entget obj)))) ;; will skip things of layers that are off/frozen/locked (setq ss2 (ssadd (ssname ss i) ss2)) ) (setq i (+ i 1)) ) (sssetfirst nil ss2) (princ) )

If you don't understand the code ask, most people will add explanations line by line. Explaining what is going on. Big list of VLA functions attached then just google what your maybe trying to understand. Sorry no author name in the Autolisp functions. The_Visual_LISP_Developers_Bible.pdf Books such as by Reonaldo Togeros, can get on Kindle as Ebook nice thing is can copy and paste code. List of all vl commands.txt AUTOLISP FUNCTIONS CATOGRIZATION.pdf