[已解决]元素在表的相应位置

hawnn

下面的DXF群码是我用entget获取的标注替代群码

我想请版主们为我写一个函数,具体用处如下

我想获取该标注的公差上限,对应(1070 . 71)后紧跟的 (1070 . 1)

这个函数就是告诉我 (1070 . 71)在表中的位置,然后我用它的位置+1 来提取我想要的公差上限

谢谢了

(-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 . 3) (1000 . "%%C<>交点") (1070 . 47) (1040 . 0.01) (1070 . 48) (1040 . 0.0) (1070 . 71) (1070 . 1) (1070 . 72) (1070 . 0) (1070 . 146) (1040 . 0.6) (1070 . 272) (1070 . 3) (1070 . 284) (1070 . 8) (1002 . "}")))

yshf

2. (setq dxf '(-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 . 3) (1000 . "%%C<>交点") (1070 . 47) (1040 . 0.01) (1070 . 48) (1040 . 0.0) (1070 . 71) (1070 . 1) (1070 . 72) (1070 . 0) (1070 . 146) (1040 . 0.6) (1070 . 272) (1070 . 3) (1070 . 284) (1070 . 8) (1002 . "}"))))
3. (setq jg (cadr (member (cons 1070 71) (cadr dxf))))

(setq dxf '(-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 . 3) (1000 . "%%C<>交点") (1070 . 47) (1040 . 0.01) (1070 . 48) (1040 . 0.0) (1070 . 71) (1070 . 1) (1070 . 72) (1070 . 0) (1070 . 146) (1040 . 0.6) (1070 . 272) (1070 . 3) (1070 . 284) (1070 . 8) (1002 . "}")))) (setq jg (cadr (member (cons 1070 71) (cadr dxf))))

hawnn

谢谢 yshf

问题已圆满解决