左键是打断两点,右键是打断于点
看看!学学!
超级实用啊!省得自己费脑筋了
自贡黄明儒老师的真是好东西!,谢谢了!
;求两个曲线的交点表. ----无痕.2004.2
;调用方法:(x@_int(car(entsel))(car(entsel)))
(defun x@_int(e1 e2 / obj1 obj2 ptlst)
;按项数分割列表.
(defun xl-div(lst x / lst2)
(foreach n lst
(if(andlst2(/= x(length(car lst2))))
(setq lst2(cons(append(car lst2)(list n))(cdr lst2)))
(setq lst2(cons(list n)lst2))
)
)(reverse lst2)
);end
(setq obj1(vlax-ename->vla-object e1)
obj2(vlax-ename->vla-object e2)
ptlst(xl-div(vlax-invoke obj1 'IntersectWith obj2 0)3))
;;此版本未提供2dpolyline正确的自身交点过滤方法,请自行加入.
);end
今天学习多段线相关,找到了这里。。。学习中
急需 多段线修改顶点
多段线求园心
看看,感觉不错阿。
找了很久了,想要一个删除重点的工具