[编程交流] 选择多条折线并操作。

Break pline @ vertices LPS 2010-04-01(defun c:test (/ idx obj endparam ptlst)(vl-load-com)(setq temperr *error*)            (setq *error* errortrap)(setq obj (vlax-ename->vla-object (car (setq ent (entsel "\nSelect polyline: ")))) ) (if ; test if polyline   (/= (vlax-get-property obj 'ObjectName) "AcDbPolyline")      (princ "\nSelected entity is not a polyline")   ) (setq ptlst (list (vlax-curve-getStartPoint obj))   idx 1) (if (zerop (vlax-get obj 'Closed))       (setq endparam (vlax-curve-getParamAtPoint obj (vlax-curve-getEndPoint obj)));if open param at end point   (setq endparam (cdr (assoc 90 (entget (vlax-vla-object->ename obj)))));if closed # vertices   )