Need Center lines of Selected Lines

[prasadcivil]

Dear Masters,

i requested help regarding draw center lines (standard length of 7'-11") between selected lines. set of parallel lines offsets are maximum 4'.

my old code is

(defun c:l2 (/ mid _nonz lines p)
(setq mid (lambda (p1 p2)
	     (mapcar '* (mapcar '+ p1 p2)
                        '(0.5 0.5 0.5))))
(setq _nonz (lambda (l)(list (car l)(cadr l))))
 (while
    (and (setq lines (ssget '((0 . "LINE"))))
	  (= (sslength lines) 2))
		  (setq p (mapcar '(lambda (i)
			     (list (cdr (Assoc 10 i))
				   (cdr (assoc 11 i))))
		   (list (entget (ssname lines 0))
		         (entget (ssname lines 1)))))
		   (setq p (if
                             ((lambda (ls)
                             (apply 'inters (list (car ls)  (caddr ls)
			       (cadr ls) (cadddr ls))))
                             		(mapcar '_nonz (append (car p)(cadr p))))
			     (list (car p)(reverse (cadr p))) p))
		   (entmakex (list '(0 . "LINE")
                       (cons 10 (mid (caar p)(caadr p)))
                       (cons 11 (mid (cadar p)(cadadr p))))))
  (princ)
                 )

Thanking you all,
Best wishes.

[rkmcswain]

If you are wanting a centerline (bisecting line) that is associative, and you are using 2017 or later, then it's already part of the application.

[prasadcivil]

Dear Sir,
With help of that bisecting option only developing based upon Raw lines length. But i need standard length of center line. i.e 7'-11" only. Please modify my code.

Best wishes.

[Bruno.Valsecchi]

Hi,

Perhaps with your code...

(defun c:l2 (/ mid _nonz lines p dxf_10 dxf_11 k dlt_10 dlt_11 nwdxf_10 nwdxf_11)
(setq mid (lambda (p1 p2)
	     (mapcar '* (mapcar '+ p1 p2)
                        '(0.5 0.5 0.5))))
(setq _nonz (lambda (l)(list (car l)(cadr l))))
 (while
    (and (setq lines (ssget '((0 . "LINE"))))
	  (= (sslength lines) 2))
		  (setq p (mapcar '(lambda (i)
			     (list (cdr (Assoc 10 i))
				   (cdr (assoc 11 i))))
		   (list (entget (ssname lines 0))
		         (entget (ssname lines 1)))))
		   (setq p (if
                             ((lambda (ls)
                             (apply 'inters (list (car ls)  (caddr ls)
			       (cadr ls) (cadddr ls))))
                             		(mapcar '_nonz (append (car p)(cadr p))))
			     (list (car p)(reverse (cadr p))) p))
			(setq
					dxf_10 (mid (caar p)(caadr p))
					dxf_11 (mid (cadar p)(cadadr p))
					k (/ 95.08622575 (distance dxf_10 dxf_11))
					dlt_10 (mapcar '* (mapcar '- dxf_10 (mid dxf_10 dxf_11)) (list k k k))
					dlt_11 (mapcar '* (mapcar '- dxf_11 (mid dxf_10 dxf_11)) (list k k k))
					nwdxf_10 (mapcar '+ (mid dxf_10 dxf_11) dlt_10)
					nwdxf_11 (mapcar '+ (mid dxf_10 dxf_11) dlt_11)
			)
		   (entmakex (list '(0 . "LINE")
                       (cons 10 nwdxf_10)
                       (cons 11 nwdxf_11))))
  (princ)
                 )

[prasadcivil]

Hi,

Perhaps with your code...

Dear sir,
Thank you for helping. it is really working accurately.

Best wishes.