CAD图层如何快速转换

答案:2 悬赏:80 手机版

解决时间 2021-04-01 07:01

提问者网友：活着好累
2021-03-31 13:20

CAD图层如何快速转换

最佳答案

五星知识达人网友：青尢
2021-03-31 13:53

你需要的能够实现用二次开发的简单命令就能达到，需要的话加点分我把程序贴出来，呵呵。
(COMMAND "LAYER" "M" "0" "c" "7" "" "lw" "0.05" "" "")
(COMMAND "LAYER" "M" "1" "c" "1" "" "lw" "0.05" "" "")
(COMMAND "LAYER" "M" "2" "c" "2" "" "lw" "0.25" "" "")
(COMMAND "LAYER" "M" "5" "c" "5" "" "lw" "0.15" "" "")
(COMMAND "LAYER" "M" "-" "c" "7" "" "lw" "0.05" "" "")
(COMMAND "LAYER" "M" "6" "c" "6" "" "lw" "0.09" "" "")
(COMMAND "LAYER" "M" "3" "c" "3" "" "lw" "0.15" "" "")
(COMMAND "LAYER" "M" "4" "c" "4" "" "lw" "0.05" "" "")
上面是建立层的LISP命令

(DEFUN C:L0 () (COMMAND "LAYER" "M" "0" "c" "7" "" "lw" "0.05" "" ""))
(DEFUN C:L1 () (COMMAND "LAYER" "M" "1" "c" "1" "" "lw" "0.05" "" ""))
(DEFUN C:L2 () (COMMAND "LAYER" "M" "2" "c" "2" "" "lw" "0.25" "" ""))
(DEFUN C:L3 () (COMMAND "LAYER" "M" "3" "c" "3" "" "lw" "0.15" "" ""))
(DEFUN C:L4 () (COMMAND "LAYER" "M" "4" "c" "4" "" "lw" "0.05" "" ""))
(DEFUN C:L5 () (COMMAND "LAYER" "M" "5" "c" "5" "" "lw" "0.15" "" ""))
(DEFUN C:L6 () (COMMAND "LAYER" "M" "6" "c" "6" "" "lw" "0.09" "" ""))
(DEFUN C:L- () (COMMAND "LAYER" "M" "-" "c" "7" "" "lw" "0.05" "" ""))
上面是变换当前层的命令

(defun C:C0 ()
(ssget)
(command "change" "p" "" "P" "la" "0" ""))
(defun C:C1 ()
(ssget)
(command "change" "p" "" "P" "la" "1" ""))
(defun C:C2 ()
(ssget)
(command "change" "p" "" "P" "la" "2" ""))
(defun C:C3 ()
(ssget)
(command "change" "p" "" "P" "la" "3" ""))
(defun C:C4 ()
(ssget)
(command "change" "p" "" "P" "la" "4" ""))
(defun C:C5 ()
(ssget)
(command "change" "p" "" "P" "la" "5" ""))
(defun C:C6 ()
(ssget)
(command "change" "p" "" "P" "la" "6" ""))
最后是改变当前元素层的命令。

全部回答

1楼网友：鸽屿
2021-03-31 14:55

做那么多有用吗

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息