Leaderboard

some plotters / page setups use margins. Using Fit & Center in page setup usualy fixes this. That's why most titleblocks or borders have a 5 or 10 millimeter border arround them. Most (laser) plotters are A4/A3 and most plotters that are capable of printing A0/A1/A2 need a marging for the transport wheel or use oversized paper and that stuff is handled by the printer driver and most of the time this is something you just have to live with (by allowing an edge / margin on your titleblocks).

You can get another job or .... - First open your titleblock drawing (A2.dwg or whatever) and run commands from my earlier post to make sure all units are in millimeters. - Next , open the drawing where titleblock is loaded as xref and detach A2 titleblock - Now run commands here also to make sure units in this drawing are in millimeters too - Attach titleblock again. when you select the titleblock in the drawing where it is attached as xref and look at the properties , all scale factors should be 1. if you use a company template for new drawings (like acad.dwt) you should check if all units are in millimeters.

I am reminded of the scene in Men In Black, where the farmer says he could have his pickup truck over his dead body. To which the alien responds, "your terms are acceptable." Yep, that looks pretty sweet!

They'll have to pry my Dell U3818DW out of my cold dead hands! https://www.amazon.com/Dell-Screen-LED-Lit-Monitor-U3818DW/dp/B073FHWTPL

When operating on objects nested within block definitions in addition to primary objects, it typically becomes easier to iterate over the ActiveX Block Collection, e.g.: (defun c:fixlay ( / doc lay lst ltp lyr ) (setq lst '( "DASHED" "CENTER" "PHANTOM" ) ) (setq doc (vla-get-activedocument (vlax-get-acad-object)) lyr (vla-get-layers doc) ) (vlax-for blk (vla-get-blocks doc) (if (= :vlax-false (vla-get-isxref blk)) (vlax-for obj blk (if (and (member (setq ltp (strcase (vla-get-linetype obj))) lst) (vlax-write-enabled-p obj) (or (member ltp lay) (and (vla-add lyr ltp) (setq lay (cons ltp lay)) ) ) ) (progn (vla-put-linetype obj "bylayer") (vla-put-linetypescale obj 0.2) (vla-put-layer obj ltp) ) ) ) ) ) (princ) ) (vl-load-com) (princ)

Hi, I think I found the lisp that I am attaching on this forum. It is a very useful lisp, it allows you to move two blocks between them, swapping their positions, using the insertion point of both. Unfortunately it has the limitation that it only works with blocks. Could it be correct to swap the position of all objects that have an insertion point? thank you very much SWAP.LSP