[求助]：如何求多义线的顶点个数

jinsong-liao

请教各位：
    如何用lisp求得一根多义线的顶点个数？
              谢谢！

Free-Lancer

2. 
   
3. ;;Polyline
   
4. ;;获取顶点数
   
5. (defun polyline_numVerts (e / obj)
   
6.   (setq obj (vlax-ename->vla-object e))
   
7.   (cond
   
8.     ((= "AcDbPolyline" (vla-get-objectname obj))
   
9.      (/ (length (vlax-get obj 'Coordinates)) 2)
   
10.     )
    
11.     ((= "AcDb2dPolyline" (vla-get-objectname obj))
    
12.      (/ (length (vlax-get obj 'Coordinates)) 3)
    
13.     )
    
14.     (t nil)
    
15.   )
    
16. )

<br /> ;;Polyline<br /> ;;获取顶点数<br /> (defun polyline_numVerts (e / obj)<br />   (setq obj (vlax-ename->vla-object e))<br />   (cond<br />     ((= "AcDbPolyline" (vla-get-objectname obj))<br />      (/ (length (vlax-get obj 'Coordinates)) 2)<br />     )<br />     ((= "AcDb2dPolyline" (vla-get-objectname obj))<br />      (/ (length (vlax-get obj 'Coordinates)) 3)<br />     )<br />     (t nil)<br />   )<br /> )

jinsong-liao

惭愧！惭愧！我学的是简单lisp语言，您写的我还看不明白，还得请指教。

lsjjm

一句便得：
(cdr (assoc 90 (entget ent)))