Leaderboard

Recursive - (defun f ( l ) (if l (if (vl-position (car l) (cdr l)) (cons (car l) (f (vl-remove (car l) (cdr l)))) (f (cdr l)) ) ) ) Iterative - (defun g ( l / r x ) (while (setq x (car l) l (cdr l)) (if (vl-position x l) (setq r (cons x r) l (vl-remove x l)) ) ) (reverse r) )

Use stretch command. drag a box around dims you want to move or "strech" drag them to new location. But mhupp you can't easily select the dims on an angle like the 3rd option. use this lisp to twist your model space. two points along the dim that you want to be horizontal. once everything is stretched use dvtw again dont pick anything or enter in 0 and it will return to normal. ;;----------------------------------------------------------------------;; ;; TWISTS VIEW (defun C:DVTW (/ twa sna) (setvar 'cmdecho 0) (princ "Pick Two Points Along a Desired Hozontal Line or enter angle:") (or (setq twa (getangle)) (setq twa 0)) (setq sna twa twa (angtos twa (getvar 'aunits)) twa (strcat "-" twa) ) (vl-cmdf "_.dview" "" "tw" twa "") (setvar 'snapang sna) (setvar 'cmdecho 1) )

I asked propably the same in other topic ( ) and nobody gives solution. There is a lisp here https://translate.google.com/translate?sl=pl&tl=en&u=https://kojacek.wordpress.com/2020/04/16/dim-mo/comment-page-1/?unapproved%3D1001%26moderation-hash%3D6118beff7105091e3f92180303c41b82%23comment-1001 But it moves every dimension on curent X or Y, so if they are even not connected dimensions they are moved. Try to edit IT but i failed. Maybe it will be good for You. Also if You need just find overlap there is a Lee mac dimoverlap