Leaderboard

For it to work with all blocks, you'd need to establish a rule that always applies. Then, adapt the code to those rules. With the current code, if you change the name and the block is different, it might not work as expected.

Sorry I though you were loading it with your on_doc_load.lsp instead of using autoload calls in it. I've done the same thing. ACADDOC.LSP

@tombu "autoload" is by defenition load on demand - that's the idea with "autoload". the lisp is not loaded untill you call the command in the lisp.

YOU, my friend, are my most favorite person!! Awesome!! Thank you so much!!!! ps: For me, it updated and didn't even ask which is even better for my purpose.

Please use Code Tags in the future, not quote tags, for your code. (<> in the editor toolbar)

Just another like Steven P I have an install lisp it takes advantage of using a zip file containing all the lisps etc if they need to be saved on individual pc's, using a server is much easier. It makes correct directory, unzips the files, adds support & trusted paths, loads menu's, saves a workspace. I will look at adding the edit registry to add autoload paths, In my install I have a check is it Bricscad or Autocad, so the registry paths will be different but similar. Will post when I have something. This is for Bricscad so if you check first what CAD software is running. (if (> (vl-string-search "BricsCAD" (getvar 'acadver)) 0) (dobricscaddefun) (doAcaddefun) ) Working on this still (setq ver (vl-registry-read "HKEY_CURRENT_USER\\Software\\Bricsys\\BricsCAD" "CURVER")) (setq val (strcat "HKEY_CURRENT_USER\\Software\\Bricsys\\BricsCAD\\" ver "\\en_US\\Profiles\\Default\\Config")) (setq suppath (vl-registry-read val "SRCHPATH")) ; input check and or add new support path newsupath (vl-registry-write val newsupath) Could some please post the equivalent paths for Autocad etc.

Ok I think I understand will redo picking multi lines then look for intersections the reverse to the way I did it. Note the 3rd intersection will be found as it crosses the rectang twice.