因为最近CAD出问题了。据说是中了CAD病毒，那个置为当前图层的按钮不能用了。所以想自己编一个LSP的程序，用来代替那个按钮的功能。谢谢！
因为最近CAD出问题了。据说是中了CAD病毒，那个置为当前图层的按钮不能用了。所以想自己编一个LSP的程序，用来代替那个按钮的功能。谢谢！
2楼
自己顶起。。等待大侠
回复
3楼
我不是大侠，下面的代码你试试看。
(defun c:TC( / ent lyname)
(setvar "cmdecho" 0)
(setq ent (entsel "\n选目标层实体: "))
(if ent (progn
(setq lyname (cdr (assoc 8 (entget (car ent)))))
(command "layer" "set" lyname "")
)
(prompt "\n选择无效! 退出!")
)
(princ)
)
[
本帖最后由 allwilling 于 2010-12-31 15:40 编辑 ]
回复
