[求助]关于SPLINE组值的提取

babyred

刚刚接触LISP，想将样条曲线的一些重要参数提取出来，知道(entget (car (entsel)));可以显示组码和组值

<图元名: 7ef4fe78>) (0 . "SPLINE") (330 . <图元名: 7ef4fcf8>) (5 . "87") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbSpline") (210 0.0 0.0 1.0) (70 . 8) (71 . 3) (72 . 10) (73 . 6) (74 . 4) (42 . 1.0e-010) (43 . 1.0e-010) (44 . 1.0e-010) (12 0.139984 -0.990154 0.0) (13 -0.779531 -0.626364 0.0) (40 . 0.0) (40 . 0.0) (40 . 0.0) (40 . 0.0) (40 . 244.156) (40 . 601.112) (40 . 847.714) (40 . 847.714) (40 . 847.714) (40 . 847.714) (10 619.062 842.202 0.0) (10 630.454 761.618 0.0) (10 495.914 469.452 0.0) (10 924.454 699.482 0.0) (10 1141.31 412.322 0.0) (10 1077.23 360.835 0.0) (11 619.062 842.202 0.0) (11 593.489 599.388 0.0) (11 949.37 571.699 0.0) (11 1077.23 360.835 0.0))

我想提取其中一些组值后的组码，怎么办呢

比如我想提取组码是73的组值6这个代表控制点的个数，想把它提取并显示出来

babyred

没人知道么？

babyred

我查到将组群付给变量s为list类型，list长度也可以用vl-list-length提取

((-1 . <图元名: 7ef5edb8>)

 (0 . "LINE")

 (330 . <图元名: 7ef5ed18>)

 (5 . "37")

 (100 . "AcDbEntity")

 (67 . 0)

 (410 . "Model")

 (8 . "0")

 (100 . "AcDbLine")

 (10 71.7657 149.7 0.0)

 (11 202.085 225.3 0.0)

(210 0.0 0.0 1.0))

对于直线长度为12

那么我想提取感兴趣的比如第十一行的组码对应的值怎么办啊也就是 202.085 225.3 0.0

用什么语句啊，我对lisp实在不了解啊

有哪位知道的帮帮忙啊

在线等

phoenixdjq

(cdr (assoc 73 a))

a是已经赋值的变量

zml84

对象DXF群组码见：http://zml84.blog.sohu.com/24654857.html
从中找出你所感兴趣的组码，然后使用assoc函数。

babyred

多谢提示，我再研究研究

babyred

还想问一下，我想把组码和组值按顺序存在excel表里，比如

(100 . "AcDbEntity")100存在1行1列；AcDbEntity存在1行2列；

(10 71.7657 149.7 0.0)10存在2行1列；71.7657存在2行2列；149.7存在2行3列；0.0存在2行4列；

可以实现么，实现起来困难么

谢谢各位高手指教