lwpolyline使用vla-put-coordinate

林霄云

Lwpolyline使用vla-put-coordinate修改端点时，传入的点应只包括2维数据。即：(vla-put-coordinate enobj para ptob)语句中，ptob不能使用vlax-3d-point生成。而应先(setq ptob (vlax-make-safearray vlax-vbDouble '(0 . 1)))，并用vlax-safearray-fill完成赋值。代码片段如下：

1.   (( = typ "LWPOLYLINE")
   
2.   (setq en1 (car en) pt (cadr en) enobj (vlax-ename->vla-object en1) )
   
3.   (setq pt1 (get_pline_closest1 en1 pt)
   
4.    para (fix (vlax-curve-getParamAtPoint en1 pt1)))
   
5.   (setq pt2 (utow (getpoint (wtou pt1) "\n输入新端点：")))
   
6. 
   
7.   ;(setq ptob (vlax-variant-value ( vla-get-coordinate enobj para)))
   
8.   (setq ptob (vlax-make-safearray vlax-vbDouble '(0 . 1)))
   
9.   ;用vlax-make-safearray创建一个数组，包括两个元素
   
10.   
    
11.     ;(vla-put-coordinate enobj para (vlax-3D-point  (list (car pt2) (cadr pt2))))
    
12.   ;不能使用vlax-3d-point 返回值有3个元素。
    
13.   
    
14.   (vlax-safearray-fill ptob (list (car pt2) (cadr pt2)))
    
15.   (vla-put-coordinate enobj para ptob)
    
16.     ;(vlax-safearray->list (vlax-variant-value pt))
    
17.   (vla-Update enobj )
    
18.   );cond lwpolyline

  (( = typ "LWPOLYLINE")<br />   (setq en1 (car en) pt (cadr en) enobj (vlax-ename->vla-object en1) )<br />   (setq pt1 (get_pline_closest1 en1 pt)<br />    para (fix (vlax-curve-getParamAtPoint en1 pt1)))<br />   (setq pt2 (utow (getpoint (wtou pt1) "\n输入新端点：")))<br /> <br />   ;(setq ptob (vlax-variant-value ( vla-get-coordinate enobj para)))<br />   (setq ptob (vlax-make-safearray vlax-vbDouble '(0 . 1)))<br />   ;用vlax-make-safearray创建一个数组，包括两个元素<br />   <br />     ;(vla-put-coordinate enobj para (vlax-3D-point  (list (car pt2) (cadr pt2))))<br />   ;不能使用vlax-3d-point 返回值有3个元素。<br />   <br />   (vlax-safearray-fill ptob (list (car pt2) (cadr pt2)))<br />   (vla-put-coordinate enobj para ptob)<br />     ;(vlax-safearray->list (vlax-variant-value pt))<br />   (vla-Update enobj )<br />   );cond lwpolyline