(setvar "cmdecho" 0)
(setq tc_name "Defpoints")
(setq tc_col "5")
(XJ_NEW_TC)
(Z_SET_Layer)
(princ)
);END
(defun Z_SET_Layer (/ s1)
(princ (strcat "创建“" tc_name "”层"))
(while
(princ (strcat "\n**右键设置图层“" tc_name "”为当前层；或按Esc直接退出** "))
(setq s1 (ssget))
(if (= s1 nil)
(progn (command "-LAYER" "S" tc_name "")(exit));progn
(progn
(command "_.undo" "_begin")
(command "change" s1 "" "P" "la" tc_name "")
(command "_.undo" "_end")
);progn
);if
);while
(princ)
);end defun
(defun XJ_NEW_TC ()
(setq lay (getvar "clayer"))
(if (tblsearch "layer" tc_name) ""
(progn
(command "-layer" "new" tc_name "color" tc_col tc_name "")
(command "clayer" lay)
)
)
(princ)
);over defun (defun C:W14(/ gp)
(setq gp (ssget))
(if (/= t(tblsearch "layer" ""))
(command "-layer" "new" "0-WINDOW" "color" "14" "0-WINDOW" ""))
(command "change" gp "" "p" "la" "0-WINDOW" "")
(setvar "CLAYER" "0-WINDOW")
(princ)
)E大可否帮忙把这个优化一下，让这个速度快一点！在没有选择物体的时候置为当前层有点慢，图层设置有点多。谢谢 (defun C:W14(/ gp)
(setvar "CMDECHO" 0)
(setq gp (ssget))
(command "-layer" "M" "0-WINDOW" "C" "14" "" "")
(command "chprop" gp "" "la" "0-WINDOW" "")
(setvar "CMDECHO" 1)
(princ)
)
(defun c:def()
(setvar "cmdecho" 0)
(while (setq a (ssget))
(command "change" a "" "p" "c" "bylayer""la" "defpoints" "lw" "bylayer" "")
)
(setvar "cmdecho" 1)
(princ)
) ZZXXQQ 发表于 2014-8-12 07:57 static/image/common/back.gif
非常感谢Z版很好用 xieyanghui 发表于 2014-8-11 05:56 static/image/common/back.gif
(defun C:W14(/ gp)
(setq gp (ssget))
(if (/= t(tblsearch "layer" ""))
像这个一点都不难,其实可以自己尝试写
页:
1
[2]