求一个快速涮图层工具（含块）块工具
用第一图图层涮第二个图层（只涮一个图元），要求第二个图层内的所有图元（含块，块中块，匿名块，直线，多线段，样条线，圆，弧等），涮为第一图层;;刷图层
(defun c:test ( / entname1 entname2 layer ss)
(setq entname1 (car(entsel"\n请选择原图层图元:")))
(if entname1
(progn
(setq entname2 (car(entsel"\n请选择需要更改图层的图元:")))
(if entname1
(progn
(setq layer (cdr(assoc '8 (entget entname1))))
(setq ss (ssget "X" (list(assoc '8 (entget entname2)))))
(vl-cmdf "chprop" ss "" "LA" layer "")
)
(princ"\n未选中!")
)
)
(princ"\n未选中!")
)
)
satan421 发表于 2019-5-14 08:53
他要求是刷图元的图层，你吧整个图元所在图层都刷了 664571221 发表于 2019-5-14 09:48
他要求是刷图元的图层，你吧整个图元所在图层都刷了
"要求第二个图层内的所有图元，涮为第一图层"，我感觉我理解的没毛病吧 本帖最后由 1291500406 于 2019-5-14 10:47 编辑
satan421 发表于 2019-5-14 10:22
"要求第二个图层内的所有图元，涮为第一图层"，我感觉我理解的没毛病吧
程序中没有对块操作的语句，不满足这个条件，块内，属性块，动态块，块中块，匿名块，这个块一个比一个难 1291500406 发表于 2019-5-14 10:40
程序中没有对块操作的语句，不满足这个条件，块内，属性块，动态块，块中块，匿名块，这个块一个比一个难 ...
块没研究过，有空研究下
页:
[1]