二维多短线删点

gao_6690

(defun c:cc  (/)
  (if (setq enl (entsel "\n 选择线 "))
    (progn
    (while  (setq  get  (getpoint "指定删除顶点 "))
      (setq obj (vlax-ename->vla-object (car enl))
    Closed ( vla-get-Closed obj)

            )


(setq pls (JW-PL_PTS obj ))

(if  (= Closed :vlax-true)
(setq    pls ( reverse (cdr (reverse pls)))))

(setq
      
           no. (atoi (rtos (vlax-curve-getparamatpoint
                                       obj
                                       (vlax-curve-getclosestpointto
                                         obj
                                         (trans get 1 0)))
                                     2
                                     0)))
(setq zxzb (apply 'append (vl-remove  (nth no. pls )  pls)))
      (vlax-put obj 'coordinates zxzb)))))

004

还没测试，题目不错，先顶起

江湖远人

2011版直接带有夹点编辑功能！

hehoubin

JW-PL_PTS  缺少