1468| 8
|
[基础] 指定图层内的数字按顺序查找怎么写。 |
点评
(if(setq ss(ssget"x"'((1 . "~*[~`--9]*")(8 . "排序"))))(mapcar'cadr(vl-sort(mapcar'(lambda(x)(list(atof(xyp-DXF 1 x))(xyp-DXF 10 x)))(xyp-ss2list ss))'(lambda(x y)(<(car x)(car y))))))
| ||
发表于 2014-9-1 11:30
|
显示全部楼层
| ||
| |
发表于 2014-9-2 10:16
|
显示全部楼层
| ||
| |
发表于 2014-9-2 20:40
|
显示全部楼层
| ||
| |