XDRX API 对象迭代器使用--迭代2D POLYLINE顶点

XDSoft

下面代码演示 xdrx api 1010版本新加入的POLYLINE的顶点 AcDb2dVertex 迭代器的使用

1. ;|
   
2. 遍历顶点，获得顶点列表
   
3. |;
   
4. (defun c:tt()
   
5.    (if (setq e (car (xdrx_entsel "\n选取2D POLYLINE实体<退出>:" '((0 . "POLYLINE")))))
   
6.       (progn
   
7.          (xdrx_object_get e)  ;;建立POLYLINE顶点迭代器
   
8.          (while (setq e (xdrx_object_next))  ;;遍历
   
9.             (setq pnt (xdrx_getpropertyvalue e "position")
   
10.                   pntl (cons pnt pntl)
    
11.             )
    
12.          )
    
13.          (reverse pntl)
    
14.       )
    
15.    )
    
16. )
    
17. 
    

;|<br /> 遍历顶点，获得顶点列表<br /> |;<br /> (defun c:tt()<br />    (if (setq e (car (xdrx_entsel "\n选取2D POLYLINE实体<退出>:" '((0 . "POLYLINE")))))<br />       (progn<br />          (xdrx_object_get e)  ;;建立POLYLINE顶点迭代器<br />          (while (setq e (xdrx_object_next))  ;;遍历<br />             (setq pnt (xdrx_getpropertyvalue e "position")<br />                   pntl (cons pnt pntl)<br />             )<br />          )<br />          (reverse pntl)<br />       )<br />    )<br /> )<br /> <br />

1. 
   
2. 命令: tt
   
3. 
   
4. 选取2D POLYLINE实体<退出>:((1042.54 740.108 0.0) (1804.94 1358.78 0.0) (2421.51
   
5. 320.841 0.0) (2521.29 878.159 0.0) (2193.82 1371.56 0.0) (3109.72 1251.41 0.0)
   
6. (3342.53 819.36 0.0))
   
7. 
   

复制代码

上面代码结果等同于

1. (defun c:tt()
   
2.    (if (setq e (car (xdrx_entsel "\n选取2D POLYLINE实体<退出>:" '((0 . "POLYLINE")))))
   
3.       (progn
   
4.          (xdrx_getpropertyvalue e "Vertexs")
   
5.       )
   
6.    )
   
7. )
   
8. 
   

(defun c:tt()<br />    (if (setq e (car (xdrx_entsel "\n选取2D POLYLINE实体<退出>:" '((0 . "POLYLINE")))))<br />       (progn<br />          (xdrx_getpropertyvalue e "Vertexs")<br />       )<br />    )<br /> )<br /> <br />

1. 
   
2. 命令: tt
   
3. 选取2D POLYLINE实体<退出>:((1042.54 740.108 0.0) (1804.94 1358.78 0.0) (2421.51
   
4. 320.841 0.0) (2521.29 878.159 0.0) (2193.82 1371.56 0.0) (3109.72 1251.41 0.0)
   
5. (3342.53 819.36 0.0))
   
6. 
   

复制代码

st788796

同样等同于 (xdrx_entity_getstretchpoint e)

newer

st788796 发表于 2013-10-11 23:43
同样等同于 (xdrx_entity_getstretchpoint e)

要这么说，还等同于 (xdrx_getpropertyValue e "StretchPoint")

有这个顶点迭代器，我理解是可以对单独的每个顶点进行操作了。

========================================
命令: (xdrx_object_get (car (entsel)))

选择对象: <图元名: 7ef95388>

命令: (setq e (xdrx_object_next))
<图元名: 7ef95390>

命令: (xdrx_getpropertyvalue e)

Class AcDb2dVertex:
    ├─Bulge
    ├─EndWidth
    ├─IsTangentUsed
    ├─Position
    ├─StartWidth
    ├─Tangent
    ├─VertexType

命令: (xdrx_setpropertyvalue e)

Class AcDb2dVertex:
  ├─Bulge (INT or REAL)
  ├─EndWidth (INT or REAL)
  ├─Position (3D or 2D Point)
  ├─StartWidth (INT or REAL)
  ├─Tangent (INT or REAL)
  ├─IgnoreTangent (T)

st788796

可以参考这个用法

命令: (getpropertyvalue (entlast) "Vertices" 0 "bulge")
0.0

至野异族

虽然还不知道迭代器是用来做什么的，但是还是感觉很高科技

————————有哪位大哥能解释下吗？