Leaderboard

These are 3d polylines so I converted them to 2d polylines to get he elevation property. and ran this macro that divides the elevation by 1000. ;;----------------------------------------------------------------------;; ;; Change point data for polylines (defun C:Change-Elevation (/ SS elv) (vl-load-com) (if (setq SS (ssget '((0 . "*POLYLINE")))) (foreach obj (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))) (setq elv (vla-get-elevation obj)) (vla-put-elevation obj (/ elv 1000)) ) ) (prompt "\n"(itoa (sslength ss))" polylines Change") (princ) )

Look at modification by Lee Mac of the code by David Bethel found here: http://www.cadtutor.net/forum/showthread.php?62556-3D-polyline-Intersection&p=426585&viewfull=1#post426585 P.S. It's very useful to have points on Section for later edit.

Here you go, please try it and let me know. (defun c:Test (/ int sel ent ) ;;----------------------------------------------------;; ;; Author : Tharwat Al Choufi ;; ;; website: https://autolispprograms.wordpress.com ;; ;;----------------------------------------------------;; (and (princ "\nSelect arcs to create pivot lines to them : ") (setq int -1 sel (ssget '((0 . "ARC")))) (while (setq int (1+ int) ent (ssname sel int)) (entmake (list '(0 . "LINE") (cons 10 (vlax-curve-getpointatdist ent (/ (vlax-curve-getdistatpoint ent (vlax-curve-getendpoint ent)) 2.0))) (cons 11 (mapcar (function (lambda (j k) (/ (+ j k) 2.0))) (vlax-curve-getstartpoint ent) (vlax-curve-getendpoint ent) ) ) ) ) ) ) (princ) ) (vl-load-com)