12/31/2023 0 Comments Contour next one e2BUT, if its start and end are within the area to be trimmed then you will probably have to trim twice. Trim or break the greater one at the points of intersection. You need to find out if the two polylines intersect (probably using extendboth or maybe just the lesser one).Ģ. You probably have to check that both are at the same elevationġ. Thinking conceptually only (because my own laptop is temporarily not available), it seems that.Ġ. (setq obj_coords (append obj_coords (list (car item) (cadr item)) ) ) (setq new_coords(append list2 (reverse e2_pts) list1)) (setq new_coords(append list1 e2_pts list2)) ![]() (setq list2(append list2 (list (nth c2 e1_pts) ) )) (setq list1(append list1 (list (nth c1 e1_pts)))) (if (= (zerop (- idx1_fix idx1)) nil) (progn Idx2_fix(fix(vlax-curve-getparamatpoint e1 end_pt)) Idx1_fix(fix(vlax-curve-getparamatpoint e1 st_pt)) Idx2(vlax-curve-getparamatpoint e1 end_pt) Idx1(vlax-curve-getparamatpoint e1 st_pt) (setq e2_pts (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget e2)))) (if (= (cdr(assoc 0 (entget e2))) "LWPOLYLINE")(PROGN (setq e1_pts (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget e1)))) (if (= (cdr(assoc 0 (entget e1))) "LWPOLYLINE") (PROGN ![]() I tried below code, but it is not working if lwpoly is closed or open with its start, end points at same location, any suggestions? Is below code is correct method to follow, to join 2 lwpoly using "vlax-put. To merge 2 polylines by removing intersecting part using (entmod.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |