![]() ![]() I will remain deeply grateful for your time. to select the points with elevation and then Polinia 3d Exitenta that I want to correct (pass each vertex of the 3d Polyliner through each selected point). I mention that on Poliniile 3d I have normal points with elevation Z. I request you to help me with a chestiune.am a lot of 3d polinii that do not have elevation (quota 0) in certain vertices. (= 8 (logand (cdr (assoc 70 (entget e))) ) (vlax-put (vlax-ename->vla-object e) 'coordinates (apply 'append lp)) L_tot (apply '+ (mapcar 'distance lp (cdr lp))) (setq lp (mapcar '(lambda (x) (list (car x) (cadr x) 0.0)) lp) (/ (vlax-curve-getdistatpoint e (vlax-curve-getendpoint e)) 2.0) (> (vlax-curve-getdistatpoint e (vlax-curve-getclosestpointtoprojection e p (getvar 'viewdir))) (setq lp (l2p (vlax-get (vlax-ename->vla-object e) 'coordinates))) (setq h1 (getdist "\nStart Elevation: ")) (eq (cdr (assoc 0 (entget (setq e (car e))))) "POLYLINE") (setq e (entsel "\nSelect 3DPolyline near to the desired start: ")) (defun l2p (l) (if l (cons (list (car l) (cadr l) (caddr l)) (l2p (cdddr l))))) (defun c:test ( / l2p e p h1 h2 h l_tot a d s lp) It is important where you pick the polyline AND the order of elevations. The selection process is a little bit trickier: The end of the polyline nearest to the selection point is the first elevation point.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |