Leaderboard

BIGAL that was not a reference book, but the software.

LRM that's pretty cool using the graph to show result added the make pline bit just copy and paste to Autocad J1-J6 INTERSECTING LINES (1).xlsm

just 4 fun & very old school : (defun GetFolder ( m / f s) (if (and (setq s (vlax-create-object "Shell.Application")) (setq f (vlax-invoke s 'browseforfolder 0 m 0 "")))(setq f (vlax-get-property (vlax-get-property f 'self) 'path)) (setq f nil))(vl-catch-all-apply 'vlax-release-object (list s)) f) (defun findstring ( / a b c d e) (setq a (GetFolder "Select folder for string search")) (setq b (getstring "\nEnter string to search for : ")) (setq c (getstring "\nFile extension (lsp) : ")) (if (eq c "") (setq c "lsp")) (setq d (strcat a "\\result.txt")) (setq e (strcat "findstr /s \"" b "\" " a "\\*." c " > " d)) (command "shell" e) (startapp "notepad" d) (princ) )

maybe you have an mnl file? (menu lisp) or have you a shortcut for MLEADERSTYLE in your acad.pgp , like ML or something and this is called by another routine. I'm sorry to say but maybe there is some truth in what Jonathan said and you have to manage your code a little bit better ... in the end it is like looking for a short circuit , switch off all and switch them back on one by one till the fuse blows and you know the last circuit you switched on is the culprit

The attached macro-enable Excel file will sort 4 points such that the results will not have intersecting edges. It computes the area of three different configurations and uses the configuration with the greatest area as the sorted solution. BEFORE Execution AFTER Execution INTERSECTING LINES.xlsm