土木在线
资料
论坛
课程
AI规范
成套资料包
APP
下载手机客户端
产品
兑换商城
直播
软件
会议
土木君有礼！免费低价薅不停
工程师进阶必备，全套项目资料包来袭！
/
注册
登录
消息
动态
0
正在加载...
查看全部消息
消息设置
正在加载...
查看全部动态
消息设置
土木在线论坛
\
暖通空调
\
其他暖通软件
\
求大侠编个LSP程序。谢谢
求大侠编个LSP程序。谢谢
因为最近CAD出问题了。据说是中了CAD病毒，那个置为当前图层的按钮不能用了。所以想自己编一个LSP的程序，用来代替那个按钮的功能。谢谢！
发布于
2009-12-19 18:55:19
我来答
分享
复制链接
新浪微博
微信扫一扫
举报
全部回答
（2 ）
allwilling
我不是大侠，下面的代码你试试看。
(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 编辑
]
2010-12-31 15:37:31
来自 PC
评论
举报
guolinwen333
自己顶起。。等待大侠
2009-12-20 21:55:20
来自 PC
评论
举报
相关推荐
guolinwen333
这个家伙什么也没有留下。。。
主题
4
回复
18
粉丝
0
+ 关注
私信
其他暖通软件
返回版块
10.9 万条内容 · 240 人订阅
猜你喜欢
遇到了一点小问题
内容不能包含下列词语
返回修改
回帖成功
经验值 +
10
全部回答（2 ）
(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 编辑 ]