Leaderboard

Jive this a go and let me know. (defun c:Foo (/ int sel ent pts pt1 pt2 pt3 pt4 crs len ang dis str) ;; Tharwat - 29.Apr.2020 ;; (and (setq int -1 sel (ssget '((0 . "LWPOLYLINE") (90 . 4))) ) (while (setq int (1+ int) ent (ssname sel int) ) (setq pts (mapcar 'cdr (vl-remove-if-not '(lambda (x) (eq (car x) 10) ) (entget ent) ) ) ) (mapcar 'set '(pt1 pt2 pt3 pt4) pts) (setq crs (inters pt1 pt3 pt2 pt4 nil)) (foreach grp (list (list pt1 pt2) (list pt2 pt3)) (setq len (distance (car grp) (cadr grp)) ang (angle (car grp) (cadr grp)) dis (/ len 10.0) ) (entmake (list '(0 . "LINE") (cons 10 (setq str (polar crs ang (+ (/ len 2.0) dis)))) (cons 11 (polar str (+ ang pi) (+ len (* dis 2.)))) ) ) ) ) ) (princ) )

@BIGAL @Lee Mac @hanhphuc you are in a completely different level when it comes to programming. It is a blessing to have you on this forum.

For a generic alphanumerical sort, search for my LM:alphanumsort function.

Or you could always download and install the free version of nanoCAD, open the drawings, then print.

(setq lst '("1.dwg" "10.dwg" "11.dwg" "2.dwg" "3.dwg" "4.dwg" "5.dwg" "6.dwg" "7.dwg" "8.dwg" "9.dwg" ) ) (vl-sort lst '(lambda (a b) (< (atoi (substr a 1 (- (strlen a) 4))) (atoi (substr b 1 (- (strlen b) 4))) ) ) )