yjr111 高手的图层状态管理器图层状态名字直接显示在CAD界面上

357785513

yjr111 高手的图层状态管理器图层状态名字直接显示在CAD界面上海，yjr111 先生是个高手，希望图层状态名字直接显示在CAD界面就好了，点一下就切换过来了，这样最直接
(defun c:laman(/ ladict1 ladict n statenemelst num )
  (setq ladict1(vla-GetExtensionDictionary (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))))
  (repeat (setq m(vla-get-count ladict1))
    (setq ladict(vla-item ladict1 (setq m(1- m))))      
    (repeat (setq n(vla-get-count ladict))
      (setq statenemelst(cons (vla-get-name(vla-item ladict(setq n(1- n))))statenemelst))  
    )
  )
  (xsdhk)
  (if num(command "layer" "a" "r" (nth (atoi num) statenemelst) "" "" ))
  (princ)
)
;;;******************************************
;;;添加列表框内列表
;;;******************************************
(defun adlst (key lst)
  (start_list key 3)
  (mapcar 'add_list lst)
  (end_list)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun xsdhk (/ replace lsdcl fn dclid)
  (setq fn (open (setq lsdcl (VL-FILENAME-MKTEMP "tmp" "" ".dcl")) "w"))
  (foreach x
           '("  yyy : dialog{"
             "  label=\"StateManager\";"
             "  :list_box{key=\"9\";height=18;width=12;}"
             "  :button{key=\"cancel\";label=\"Cancel\";is_cancel=true;width=1;height=2;}"
             "}"
            )
    (write-line x fn)
  )
  (close fn)
  (setq dclid (load_dialog lsdcl))
  (vl-file-delete lsdcl)
  (new_dialog "yyy" dclid "" screenpt)
  (adlst "9" statenemelst)
  (action_tile "9" "(setq num $value)(setq screenpt(done_dialog))")
  (start_dialog)
  (unload_dialog dclid)
)
(princ"\n图层状态简易切换，命令LAMAN.")
(PRINC)

hn10183051

只能记住全开吗？

357785513

没传文件上去哦，不好意思

andyhua

无图无真相啊！

andyhua

加载自定义文件成功。自定义组: ACAD
加载自定义文件成功。自定义组: CUSTOM
正在重生成模型。

AutoCAD 菜单实用程序已加载。
命令: COMMANDLINE

命令: 指定对角点:
命令:
命令: (LOAD "C:/Documents and Settings/Administrator/桌面/a.LSP")
图层状态简易切换，命令LAMAN.

命令: laman
未知命令“LAMAN”。按 F1 查看帮助。

命令: laman
未知命令“LAMAN”。按 F1 查看帮助。

命令: va ; 错误: no function definition: VLAX-GET-ACAD-OBJECT

命令:


2006

357785513

就像这样一样

qiguangyao

看不太懂，心学习的，顶一个

zzyong00

非常不错，但是楼主太粗心了，命令改成va了，代码里提示还是laman

MENGZE

如果图层多，你怎么办呢？你又怎么点呢？图层多又怎么显示出来呢？那要买一个多大的显示器？？？这样吧把你自己常用的图层显示出来就可以了，因为全部显示反而增加麻烦。

357785513

8楼的哥，记住了，是图层状态，不是图层，

357785513

没解决怎么就没人顶帖呢