[编程交流] 3dpolyline方向

(defun c:test (/ E I O SS)
 (vl-load-com)
 (if (setq ss (ssget "_:L" '((0 . "POLYLINE"))))
   (progn
     (repeat (setq i (sslength ss))
(setq e (ssname ss (setq i (1- i)))
      o (vlax-ename->vla-object e)
);; setq
(if (and (eq (vla-get-ObjectName o) "AcDb3dPolyline")
  (< (caddr (vlax-curve-getStartPoint o)) (caddr (vlax-curve-getEndPoint o)))
  );; and
      (command "._pedit" e "_reverse" "")
);; if
     );; repeat
   );; progn
 );; if
 (princ)
);; test

(defun c:chkpoly ( / c e i s )
   (setq c (getvar 'cmdecho))
   (setvar 'cmdecho 0)
   (if (setq s (ssget "_:L" '((0 . "POLYLINE") (-4 . "&=") (70 . )))
       (repeat (setq i (sslength s))
           (setq e (ssname s (setq i (1- i))))
           (if (< (caddr (vlax-curve-getstartpoint e))
                  (caddr (vlax-curve-getendpoint   e))
               )
               (vl-cmdf "_.pedit" e "_r" "")
           )
       )
   )
   (setvar 'cmdecho c)
   (princ)
)
(vl-load-com) (princ)