[讨论]：如何返回多义线的重复组码。

yxpxa

(  . <Entity name: 2133038>) (0 . "LWPOLYLINE") (5 . "29A77") (100 .
"AcDbEntity") (67 . 0) (8 . "xc") (6 . "CONTINUOUS") (100 . "AcDbPolyline")
(90 . 2) (70 . 128) (43 . 0.8) (38 . 0.0) (39 . 0.0) (10 504346.0 551858.0) (40 . 0.8) (41 . 0.8) (42 . 0.0) (10 504341.0 551830.0) (40 . 0.8) (41 . 0.8) (42 . 0.0) (210 0.0 0.0 1.0))

第1个10表对用(assoc 10  ABC  ) 返回，第二个10怎么办，将表项倒排一下吗？

ghjkghjk

用表操作函数曲去掉第1个10表，再用(assoc 10 ABC ) 不就行了！

lsjjm

最初由 yxpxa 发布
[B如何返回多义线的重复组码。... [/B]

REFER TO:
(defun c:test ( / pts)
  (setq ent (nentsel "\nSelect a Polyline: "))
  (vl-remove-if-not '(lambda(x)(= 10 (car x))) (entget(car ent)))
)

urljit

不知道用autolisp有没有简单的方法。

ll_j

Autolisp使用“添加”的方法：
[php](defun c:test()
  (setq en(entsel "\n选择多义线：")
        pl nil
  )
  (mapcar
    '(lambda(x)
       (if (= (car x) 10)
         (setq pl(cons x pl))
       )
     )
    (entget (car en))
  )
  (reverse pl)
)[/php]

同样，使用foreach函数也可以达到目的。

urljit

谢谢指导，明白了。

lsjjm

最初由 urljit 发布
[B]不知道用autolisp有没有简单的方法。 [/B]

还要多简单? 只有两行程序码了!?
或直接使用ACET函数:
(acet-geom-vertex-list ent)