明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 8700|回复: 30

切换图层状态

  [复制链接]
发表于 2013-1-4 21:11 | 显示全部楼层 |阅读模式
1明经币
保存了一些图层状态,每次都要通过点击图层状态管理器去切换状态,操作多了感觉有点麻烦,能不能通过程序切换图层状态?比如输入快捷键001,就切换到名为001的图层状态。下面是一个相关问题的链接,感觉有点不了了之,供参考


http://bbs.mjtd.com/forum.php?mod=viewthread&tid=48565
附件: 您需要 登录 才可以下载或查看,没有账号?注册

最佳答案

查看完整内容

好像还不好搞,搞了一个多小时,惭愧,看看是不是需要的?

点评

输入“道路、管线"则切换到道路、管线状态?  发表于 2013-1-4 21:17
发表于 2013-1-4 21:11 | 显示全部楼层
本帖最后由 yjr111 于 2013-3-13 13:37 编辑

好像还不好搞,搞了一个多小时,惭愧,看看是不是需要的?

  1. (defun c:laman(/ ladict1 ladict n statenemelst num )
  2.   (setq ladict1(vla-GetExtensionDictionary (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))))
  3.   (repeat (setq m(vla-get-count ladict1))
  4.     (setq ladict(vla-item ladict1 (setq m(1- m))))      
  5.     (repeat (setq n(vla-get-count ladict))
  6.       (setq statenemelst(cons (vla-get-name(vla-item ladict(setq n(1- n))))statenemelst))  
  7.     )
  8.   )
  9.   (xsdhk)
  10.   (if num(command "layer" "a" "r" (nth (atoi num) statenemelst) "" "" ))
  11.   (princ)
  12. )
  13. ;;;******************************************
  14. ;;;添加列表框内列表
  15. ;;;******************************************
  16. (defun adlst (key lst)
  17.   (start_list key 3)
  18.   (mapcar 'add_list lst)
  19.   (end_list)
  20. )
  21. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  22. (defun xsdhk (/ replace lsdcl fn dclid)
  23.   (setq fn (open (setq lsdcl (VL-FILENAME-MKTEMP "tmp" "" ".dcl")) "w"))
  24.   (foreach x
  25.            '("  yyy : dialog{"
  26.              "  label="StateManager";"
  27.              "  :list_box{key="9";height=18;width=12;}"
  28.              "  :button{key="cancel";label="Cancel";is_cancel=true;width=1;height=2;}"
  29.              "}"
  30.             )
  31.     (write-line x fn)
  32.   )
  33.   (close fn)
  34.   (setq dclid (load_dialog lsdcl))
  35.   (vl-file-delete lsdcl)
  36.   (new_dialog "yyy" dclid "" screenpt)
  37.   (adlst "9" statenemelst)
  38.   (action_tile "9" "(setq num $value)(setq screenpt(done_dialog))")
  39.   (start_dialog)
  40.   (unload_dialog dclid)
  41. )
  42. (princ"\n图层状态简易切换,命令LAMAN.")
  43. (PRINC)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

不显示任何内容,对话框内为空白  发表于 2013-8-21 09:23

评分

参与人数 1明经币 +1 收起 理由
xiaxiang + 1 感谢分享!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2013-1-4 21:28 | 显示全部楼层
回严大的话: 输入“道路、管线"则切换到道路、管线状态
如果可以出现一个类似第二张截图的列表,通过单击列表里的状态名(不用进一步单击“恢复”)切换相应的图层状态更佳

点评

这样就简单了,我整一个看看哈  发表于 2013-1-4 21:48
回复

使用道具 举报

 楼主| 发表于 2013-1-5 09:38 | 显示全部楼层
本帖最后由 半听可乐 于 2013-1-5 09:39 编辑
yjr111 发表于 2013-1-5 00:09
好像还不好搞,搞了一个多小时,惭愧,看看是不是需要的?


正是这个效果!感谢严大又帮了我个大忙!,能不能给个源码或者将命令搞长一点,命令有冲突~~
回复

使用道具 举报

发表于 2013-1-5 11:37 来自手机 | 显示全部楼层
不错哦,,,,
回复

使用道具 举报

发表于 2013-1-5 14:55 | 显示全部楼层
可以吗?可以就上源码!免币下载!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 2明经币 +2 收起 理由
清风明月名字 + 1 很给力!
半听可乐 + 1 很给力!

查看全部评分

回复

使用道具 举报

发表于 2013-1-5 17:24 | 显示全部楼层
大棒了,,楼主大人。

点评

你要感谢yjr111 这位巨侠!  发表于 2013-1-5 21:23
回复

使用道具 举报

 楼主| 发表于 2013-1-5 21:04 | 显示全部楼层
yjr111 发表于 2013-1-5 14:55
可以吗?可以就上源码!免币下载!

何止是可以,简直酷得不行!今天用了不下30次!
回复

使用道具 举报

发表于 2013-3-13 10:34 | 显示全部楼层
yjr111 发表于 2013-1-5 14:55
可以吗?可以就上源码!免币下载!

严兄,似乎过了很久了也没上源码?现在可以上了吗?

点评

找到了,贴在二楼  发表于 2013-3-13 13:38
回复

使用道具 举报

发表于 2013-3-13 13:00 | 显示全部楼层
严老大在2楼的程序,下载了怎么只能弹出界面,无法输入任何文字啊
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 17:24 , Processed in 0.322450 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表