修改多段线起点和终点函数

tanle2020

vlax-curve-getstartpoint，vlax-curve-getendpoint是获取多段线起始点函数，请教修改起始点函数是什么？

自贡黄明儒

vLa—PuT Obj

edata

来个例子：

2. (defun c:tt nil
   
3. (setq obj(vlax-ename->vla-object (car(entsel "\n选择非闭合多段线")))
   
4.       pt0 (getpoint "\n指定新的起点")
   
5.       en_pt(getpoint "\n指定新的终点")
   
6.       vb_pt0(vlax-safearray-fill(vlax-make-safearray vlax-vbdouble '(0 . 1)) (list(car pt0)(cadr pt0)))
   
7.       vb_endpt(vlax-safearray-fill(vlax-make-safearray vlax-vbdouble '(0 . 1)) (list(car en_pt)(cadr en_pt)))
   
8.       end_pt0(vlax-curve-getendPoint obj)
   
9.       end_index(fix (vlax-curve-getParamAtPoint obj end_pt0))
   
10.       )
    
11. (and obj vb_pt0 (vla-put-Coordinate obj 0 vb_pt0))
    
12. (and obj vb_endpt (vla-put-Coordinate obj end_index vb_endpt))
    
13. )

(defun c:tt nil<br /> (setq obj(vlax-ename->vla-object (car(entsel "\n选择非闭合多段线")))<br />       pt0 (getpoint "\n指定新的起点")<br />       en_pt(getpoint "\n指定新的终点")<br />       vb_pt0(vlax-safearray-fill(vlax-make-safearray vlax-vbdouble '(0 . 1)) (list(car pt0)(cadr pt0)))<br />       vb_endpt(vlax-safearray-fill(vlax-make-safearray vlax-vbdouble '(0 . 1)) (list(car en_pt)(cadr en_pt)))<br />       end_pt0(vlax-curve-getendPoint obj)<br />       end_index(fix (vlax-curve-getParamAtPoint obj end_pt0))<br />       )<br /> (and obj vb_pt0 (vla-put-Coordinate obj 0 vb_pt0))<br /> (and obj vb_endpt (vla-put-Coordinate obj end_index vb_endpt))<br /> )

tanle2020

edata 发表于 2014-5-12 21:38
来个例子：

非常感谢！

edata

其中也可以用

1. (fix (vlax-curve-getendParam obj))

(fix (vlax-curve-getendParam obj))

来直接获取最终点索引，也可以用来确定点的数量，但是得先用(vlax-curve-isClosed obj)判断是否闭合，闭合的话需要

1. (fix (1- (vlax-curve-getendParam obj)))

(fix (1- (vlax-curve-getendParam obj)))

，不然和起点是一个点。

tanle2020

edata 发表于 2014-5-13 14:43
其中也可以用来直接获取最终点索引，也可以用来确定点的数量，但是得先用(vlax-curve-isClosed obj)判断是否 ...

我主要针对不闭合的多段线

清风明月名字

谢谢楼主分享，辛苦了！

别闹

edata 发表于 2014-5-12 21:38
来个例子：

能问一下闭合的多段线这个程序应该怎么修改？

趣意人生

收藏学习了！

suiran

收藏学习了！