[求助]：如何用VLISP来生成LWPOLYLINE，不是一般的LISP的ENTMAKE

newer

如何用VLISP的ACTIVEX接口来生成LWPOLYLINE，不是一般的LISP的ENTMAKE。

把一些点参数传递给addLWPolyline，用以前R14的方法，可以生成，但是到2000后，发现问题了。提示我

Error: lisp value has no coercion to VARIANT with this type:

在2000下，怎么用addLWPolyline方法呢？

谢谢！

梦断江南

最初由 newer 发布
[B]如何用VLISP的ACTIVEX接口来生成LWPOLYLINE，不是一般的LISP的ENTMAKE。

把一些点参数传递给addLWPolyline，用以前R14的方法，可以生成，但是到2000后，发现问题了。提示我

Error: lisp value has no coercion... [/B]

取点信息注意 加 z 值
r14下pl顶点信息不包含z数值，r2k以上包含

XDSoft

在2000以上，LIST表传给ActiveX的方法变化了，你需要用vlax-make-safearray, vlax-safearray-fill, vlax-make-variant 把list传递给ActiveX

下面的代码你试试：

2. 
   
3. [FONT=courier new]
   
4. (vl-load-com)
   
5. 
   
6. (defun T_LWPoly()
   
7. (setq acadapp (vlax-get-Acad-Object)
   
8.      acaddoc (vla-get-ActiveDocument acadapp)
   
9.      *ModelSpace*  (vla-get-ModelSpace acaddoc)
   
10. )
    
11. 
    
12. 
    
13. (setq pt1 (list 0.0 1.0))
    
14. (setq pt2 (list 3.0 4.0))
    
15. (setq pt3 (list 5.0 6.0))
    
16. 
    
17. (setq Points (apply 'append (list pt1 pt2 pt3 )))
    
18. (setq ptlstlen (length Points))
    
19. 
    
20. ; 建立一个3*2=6 数组 - 维数0 to 5
    
21. (setq PointDataA (vlax-make-safearray vlax-vbDouble (cons 0 (1- ptlstlen))))
    
22. (vlax-safearray-fill PointDataA Points)
    
23. (setq PointData (vlax-make-variant PointDataA))
    
24. 
    
25. (setq myLWpoly (vla-addLightweightPolyline *ModelSpace* PointData))
    
26. 
    
27. (vla-Put-Color myLWpoly acBlue)
    
28. (princ)
    
29. )[/FONT]

<br /> [FONT=courier new]<br /> (vl-load-com)<br /> <br /> (defun T_LWPoly()<br /> (setq acadapp (vlax-get-Acad-Object)<br />      acaddoc (vla-get-ActiveDocument acadapp)<br />      *ModelSpace*  (vla-get-ModelSpace acaddoc)<br /> )<br /> <br /> <br /> (setq pt1 (list 0.0 1.0))<br /> (setq pt2 (list 3.0 4.0))<br /> (setq pt3 (list 5.0 6.0))<br /> <br /> (setq Points (apply 'append (list pt1 pt2 pt3 )))<br /> (setq ptlstlen (length Points))<br /> <br /> ; 建立一个3*2=6 数组 - 维数0 to 5<br /> (setq PointDataA (vlax-make-safearray vlax-vbDouble (cons 0 (1- ptlstlen))))<br /> (vlax-safearray-fill PointDataA Points)<br /> (setq PointData (vlax-make-variant PointDataA))<br /> <br /> (setq myLWpoly (vla-addLightweightPolyline *ModelSpace* PointData))<br /> <br /> (vla-Put-Color myLWpoly acBlue)<br /> (princ)<br /> )[/FONT]