entnext获取子图元信息

收到法国大使馆

我通过ssget选择后，获得了其中某一个多段线主图元的对象名，不知怎样通过主图元名用entnext来获得子图元名呢？

Lispboy

你想获得什么子图元名呢？

如果是图块带属性，你想获得属性，就 (entnext e)   就行了，e是主图块实体名。

Lispboy

哦，回复完才看到你说的是多段线， 是LWPOLYLINE还是POLYLINE？ 如果是LWPOLYLINE你不能通过ENTNEXT获得子实体，因为LWPOLYLINE是一个单独的对象。

如果是二维多段线POLYLINE，那你就是想获得顶点子实体了，用ENTNEXT 下去，直到组吗0位SEQEND为止



命令: (setq e (entlast))
<图元名: -24c5d0>

命令: (setq e (entnext e))
<图元名: -24c5c8>

命令: (entget e)
((-1 . <图元名: -24c5c8>) (0 . "VERTEX") (330 . <图元名: -24c5d0>) (5 . "277") (100 .
"AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbVertex") (100 .
"AcDb2dVertex") (10 1955.96 -130.373 0.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (70
. 0) (50 . 0.0))

命令: (setq e (entnext e))
<图元名: -24c5c0>

命令: (entget e)
((-1 . <图元名: -24c5c0>) (0 . "VERTEX") (330 . <图元名: -24c5d0>) (5 . "278") (100 .
"AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbVertex") (100 .
"AcDb2dVertex") (10 3611.53 557.745 0.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (70 .
0) (50 . 0.0))

命令: (setq e (entnext e))
<图元名: -24c5b8>

命令: (entget e)
((-1 . <图元名: -24c5a8>) (0 . "SEQEND") (330 . <图元名: -24c5d0>) (5 . "27B") (100 .
"AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (-2 . <图元名: -24c5d0>))


下面代码获得2D POLYLINE的顶点表

1. (defun _getVerts (ent / ed pts)
   
2.   (setq ed (entget ent))
   
3.   (if (= (cdr (assoc 0 ed)) "POLYLINE")
   
4.     (progn
   
5.       (while
   
6.   (and (setq ent (entnext ent))
   
7.        (setq ed (entget ent))
   
8.        (/= (cdr (assoc 0 ed)) "SEQEND")
   
9.   )
   
10.    (setq pts (cons (cdr (assoc 10 ed)) pts))
    
11.       )
    
12.       (reverse pts)
    
13.     )
    
14.   )
    
15. )

(defun _getVerts (ent / ed pts)<br />   (setq ed (entget ent))<br />   (if (= (cdr (assoc 0 ed)) "POLYLINE")<br />     (progn<br />       (while<br />   (and (setq ent (entnext ent))<br />        (setq ed (entget ent))<br />        (/= (cdr (assoc 0 ed)) "SEQEND")<br />   )<br />    (setq pts (cons (cdr (assoc 10 ed)) pts))<br />       )<br />       (reverse pts)<br />     )<br />   )<br /> )

命令: (_GETVERTS (entlast))
((1955.96 -130.373 0.0) (3611.53 557.745 0.0) (3803.58 -150.222 0.0) (3088.37
-481.048 0.0))

收到法国大使馆

Lispboy 发表于 2016-9-27 17:44

谢谢，多段线没有啊，只有二维的才有啊，学习啦

Lispboy

收到法国大使馆 发表于 2016-9-27 17:50

LWPOLYLINE  是个完整的对象，不是由子实体顶点组成的，LWPOLYLINE的顶点信息都是在他的(entget e)里面保存着呢。

下面代码获得LWPOLYLINE的顶点表：

e是LWPOLYLINE实体名

1. (mapcar 'cdr (vl-remove-if '(lambda(x)(/= (car x) 10))(entget e)))
   

(mapcar 'cdr (vl-remove-if '(lambda(x)(/= (car x) 10))(entget e)))<br />

或者：

1. (vl-remove nil
   
2.            (mapcar '(lambda (x)
   
3.                       (if (= (car x) 10)
   
4.                         (cdr x)
   
5.                         nil
   
6.                       )
   
7.                     )
   
8.                    (entget e)
   
9.            )
   
10. )
    

(vl-remove nil<br />            (mapcar '(lambda (x)<br />                       (if (= (car x) 10)<br />                         (cdr x)<br />                         nil<br />                       )<br />                     )<br />                    (entget e)<br />            )<br /> )<br />

是二维点。

qqqincccken

谢谢提供，学习了！！

qqqincccken

谢谢提供，学习了！！！！！1

qqqincccken

谢谢提供，学习了！！！！！1

守仁格竹GM