如何提取这个表中的四个顶点的数据？

qq1846687144

这个是一个矩形通过entget获得的表，用assoc 10 只能提取出第一个顶点的，有什么办法可以把四个顶点提取出来？((-1 . <图元名: 7efabed8>) (0 . "LWPOLYLINE") (330 . <图元名: 7efabdb8>) (5 . "5B") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 1) (100 .
"AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 296.768
-63.7544) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 586.32 243.236) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 803.833 38.0794) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
514.28 -268.911) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

qq1846687144

就是如何提取一个多段线或矩形的顶点

1993063

循环提取组码10，直到没有为止

lovezp

可以试试 vla-get-coordinate

newer

还可以 assoc 10, 然后cdr 再 assoc 10 循环直到NIL

qq1846687144

1993063 发表于 2016-7-31 20:56
循环提取组码10，直到没有为止

谢谢大神，这段时间比较忙，我用循环貌似也总是只提取第一个关键字为10的顶点，可能是我哪里搞错了，我最后是这么搞得 (setq s (entget (entlast)))(setq l (length s))
(setq db (list ))
  (setq n 0)
(repeat l
  (setq ys (nth n s))
  ;(setq dd (assoc 10 ys))
  ;(princ ys)
  (if (=(car ys) 10)
   (progn
     (setq dd (cdr ys))
     (setq db (cons dd db))
    );end progn
    );endif
  (setq n (+ n 1))
  );end repeat

qq1846687144

newer 发表于 2016-7-31 21:12
还可以 assoc 10, 然后cdr 再 assoc 10 循环直到NIL

谢谢大神，这段时间比较忙，我用循环貌似也总是只提取第一个关键字为10的顶点，可能是我哪里搞错了，我最后是这么搞得 (setq s (entget (entlast)))(setq l (length s))
(setq db (list ))
  (setq n 0)
(repeat l
  (setq ys (nth n s))
  ;(setq dd (assoc 10 ys))
  ;(princ ys)
  (if (=(car ys) 10)
   (progn
     (setq dd (cdr ys))
     (setq db (cons dd db))
    );end progn
    );endif
  (setq n (+ n 1))
  );end repeat

qq1846687144

lovezp 发表于 2016-7-31 21:05
可以试试 vla-get-coordinate

vla 函数我还都没有看，使用不来，难学吗？这个东西

newer

qq1846687144 发表于 2016-8-10 15:57
vla 函数我还都没有看，使用不来，难学吗？这个东西

没什么难学的，你学会了，只能让你写代码更快，效率更高。

lovezp

帮助文件目录里 ActiveX and VBA Reference-----Object Model，要用哪个图元就看哪个图元。

qq1846687144

qq1846687144 发表于 2016-8-10 15:57
vla 函数我还都没有看，使用不来，难学吗？这个东西

恩恩，谢谢拉！

qq1846687144

lovezp 发表于 2016-8-10 16:21
帮助文件目录里 ActiveX and VBA Reference-----Object Model，要用哪个图元就看哪个图元。

谢谢啦！我看一下试试！

llsheng_73

1. (mapcar'cdr(vl-remove-if'(lambda(x)(/=(car x)10))(member(assoc 10 en)en)))

(mapcar'cdr(vl-remove-if'(lambda(x)(/=(car x)10))(member(assoc 10 en)en)))