10/30/2022 0 Comments Offset 3d polyline![]() ![]() 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 display (nil for default) fnc - optional function to apply to selected object Ex: (AT:GetSel entsel "\nSelect arc: " (lambda (x) (eq (cdr (assoc 0 (entget (car x)))) "ARC"))) Alan J. ( defun c:LBL ( / foo AT:GetSel _pnts _pline _lwpline _dist e1 e2 ) Draw (LW)Polyline between two selected curves (at midpoint of vertices). RE or REGEN to get rid of the temporary dashed red lines. ![]() Specify the output polyline (LWPoline or Polyline).Note: that the output offers an option for the created polyline (LWPolyline or Polyline)Īs an added bonus, the routine handles polylines that are at different elevations (z values) and it even handles 3DPolylines pretty well. (Please refer questions or requests to the forum where the lisp routine was originally posted) This process is automated by using this routine written by Alan Thompson and found at CADTutor: If you need an offset that is between 2 polylines and the 2 polylines are not truly parallel to each other, the result of the polyline might not be the desired result. Not knowing what to call this routine, I think that it is more of a combination of an advanced Offset command that automates the placement of the vertices at the (M2P) Mid-Between-2-Points. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |