gao_6690 发表于 2011-9-3 16:14:15

二维多短线删点

(defun c:cc(/)
(if (setq enl (entsel "\n 选择线 "))
    (progn
    (while(setqget(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 发表于 2012-10-30 12:26:23

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

江湖远人 发表于 2012-11-2 12:08:45

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

hehoubin 发表于 2013-11-7 21:28:05

JW-PL_PTS缺少
页: [1]
查看完整版本: 二维多短线删点