Hi all,
as i shown in the drawings, i have centerlines and winglines,
now what i want is from centerline i want to draw winglines at different distances
(i.e.10m,25m,45m it could be any distance means not ON proper interval)
and corridor at the end
Is there any lisp that could solve my prob.
Thankx a lot in advance
1111.dwg
Here's one I wrote a while back...
(defun c:LBL (/ foo AT:GetSel _pnts _pline _lwpline _dist e1 e2)
;; Draw (LW)Polyline between two selected curves (at midpoint of vertices).
;; Alan J. Thompson, 09.29.10
(vl-load-com)
(defun foo (e)
(and (wcmatch (cdr (assoc 0 (entget (car e)))) "LINE,*POLYLINE,SPLINE")
(not (vlax-curve-isClosed (car e)))
)
)
(defun AT:GetSel (meth msg fnc / ent)
;; meth - selection method (entsel, nentsel, nentselp)
;; msg - message to displ