0 Members and 1 Guest are viewing this topic.
I would suggest something like this:Code - Auto/Visual Lisp: [Select](defun c:cl ( / i l s x ) (if (setq s (ssget '((0 . "LINE")))) (progn (repeat (setq i (sslength s)) (setq i (1- i) x (entget (ssname s i)) l (vl-list* (cdr (assoc 10 x)) (cdr (assoc 11 x)) l) ) ) (setq l (mapcar '(lambda ( x ) (apply 'mapcar (cons x l))) '(min max))) (entmake (list '(0 . "LINE") (list 10 (caar l) (/ (+ (cadar l) (cadadr l)) 2.0)) (list 11 (caadr l) (/ (+ (cadar l) (cadadr l)) 2.0)) ) ) (entmake (list '(0 . "LINE") (list 10 (/ (+ (caar l) (caadr l)) 2.0) (cadar l)) (list 11 (/ (+ (caar l) (caadr l)) 2.0) (cadadr l)) ) ) ) ) (princ))
[...]Lee Mac thank you so much! but i can't understand this LISP now. this LISP can add else? for example LWpolyline or circle.