如何替换这个表里的项?

liuyj

((-1 . )
(0 . "SWR_M_DUCTCROSS")
(330 . )
(5 . "D1")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "FG")
(100 . "SwrBaseEntity")
(46 . 0.0)
(47 . 100.0)
(68 . 0)
(100 . "TPsBaseEntity")
(7 . "")
(40 . 0.2)
(90 . 0)
(100 . "TDbPipeNode")
(303 . "")
(70 . 0)
(73 . 4)
(280 . 4)
(100 . "TPipeInterface")
(12 30333.1 11490.0 3750.0)
(13 2692.07 0.0 0.0)
(72 . 0)
(74 . 2)
(75 . 1)
(170 . 3)
(300 . "回风")
(304 . "")
(331 . )
(41 . 700.0)
(42 . 500.0)
(143 . 7000.0)
(100 . "TPipeInterface")
(12 28833.1 11490.0 3750.0)
(13 -4151.63 0.0 0.0)
(72 . 0)
(74 . 1)
(75 . 1)
(170 . 3)
(300 . "回风")
(304 . "")
(331 . )
(41 . 700.0)
(42 . 500.0)
(143 . 7000.0)
(100 . "TPipeInterface")
(12 29583.1 10740.0 3750.0)
(13 0.0 -1368.98 0.0)
(72 . 0)
(74 . 2)
(75 . 1)
(170 . 3)
(300 . "回风")
(304 . "")
(331 . )
(41 . 700.0)
(42 . 500.0)
(143 . 7000.0)
(100 . "TPipeInterface")
(12 29583.1 12240.0 3750.0)
(13 0.0 711.629 0.0)
(72 . 0)
(74 . 1)
(75 . 1)
(170 . 3)
(300 . "回风")
(304 . "")
(331 . )
(41 . 700.0)
(42 . 500.0)
(143 . 7000.0)
(100 . "TDbDuctFitting")
(10 29583.1 11490.0 3750.0)
(100 . "TDbDuctCross")
(171 . 1)
(172 . 1)
(142 . 1.0)
(306 . "风管四通"))

我这样取得了所有12组码的点：
(setq e (entget(car(entsel))))
(vl-remove-if-not '(lambda(x)(=(car x)12)) e)
然而我想分别替换这些点的值，再entmod，该怎么做？不要说按位置替换，这个表的长度可能会变的。好像和更改多义线的顶点值差不多。

bjzjt

我看还得靠位置,不过不是死位置,要用VL-POSITION取位置索引

meflying

(subst xxx (12 29583.1 12240.0 3750.0) '(...))