(XD::PolyLine:SetPointAt)修改多段线顶点函数

Lispboy

1. ;|
   
2. VLA方法修改多段线顶点
   
3. 参数：
   
4.    en ---- 实体名
   
5.    index ---- 顶点索引号（从0开始）
   
6.    newpnt --- 新顶点（WCS）
   
7. |;
   
8.   (defun XD::PolyLine:SetPointAt (en index newPoint / pnt)
   
9.     (setq pnt (vlax-make-safearray vlax-vbDouble '(0 . 1)))
   
10.     (setq newPoint (list (car NewPoint) (cadr NewPoint)))
    
11.     (setq pnt (vlax-make-variant (vlax-safearray-fill pnt newPoint)))
    
12.     (vla-put-coordinate (vlax-ename->vla-object en) index pnt)
    
13.   )
    
14. 
    

;|<br /> VLA方法修改多段线顶点<br /> 参数：<br />    en ---- 实体名<br />    index ---- 顶点索引号（从0开始）<br />    newpnt --- 新顶点（WCS）<br /> |;<br />   (defun XD::PolyLine:SetPointAt (en index newPoint / pnt)<br />     (setq pnt (vlax-make-safearray vlax-vbDouble '(0 . 1)))<br />     (setq newPoint (list (car NewPoint) (cadr NewPoint)))<br />     (setq pnt (vlax-make-variant (vlax-safearray-fill pnt newPoint)))<br />     (vla-put-coordinate (vlax-ename->vla-object en) index pnt)<br />   )<br /> <br />

该函数对应的XDRX_API函数是 xdrx_polyline_setPointAt

Free-Lancer

这个可以扩展下，lwpolyline是2D,POLYLINE是3D点来自: Android客户端

st788796

可以这样

2. (defun XD::PolyLine:SetPointAt (en index newPoint / obj pnt)
   
3.   (setq        obj (vlax-ename->vla-object en)
   
4.         pnt (variant-value (vla-get-coordinate obj index))
   
5.   )
   
6.   (mapcar '(lambda (x y z)
   
7.              (vlax-safearray-put-element pnt x y)
   
8.            )
   
9.           '(0 1 2)
   
10.           newPoint
    
11.           (safearray-value pnt)
    
12.   )
    
13.   (vla-put-coordinate obj index (vlax-make-variant pnt))
    
14. )

(defun XD::PolyLine:SetPointAt (en index newPoint / obj pnt)<br />   (setq        obj (vlax-ename->vla-object en)<br />         pnt (variant-value (vla-get-coordinate obj index))<br />   )<br />   (mapcar '(lambda (x y z)<br />              (vlax-safearray-put-element pnt x y)<br />            )<br />           '(0 1 2)<br />           newPoint<br />           (safearray-value pnt)<br />   )<br />   (vla-put-coordinate obj index (vlax-make-variant pnt))<br /> )