求一段代码~关于图层

LIL5E

我想实现一个功能，就是当我使用一个命令，然后选择图元，所选图元的图层保持打开状态，其余图层关闭，怎么实现。

叮咚

学一点LISP，就会了。只会张口要！
看看组码，layer的。
(setq en (car (entsel )))
(setq data (entget en))
(assoc 8 data)
系统变量 clayer

LIL5E

叮咚 发表于 2012-12-5 08:32
学一点LISP，就会了。只会张口要！
看看组码，layer的。
(setq en (car (entsel )))

组码只是知道  图元是哪个图层 这个能够实现图层关闭吗？图层关闭要用到activeX吧

LIL5E

叮咚 发表于 2012-12-5 08:32
学一点LISP，就会了。只会张口要！
看看组码，layer的。
(setq en (car (entsel )))

而且本来要代码也是个学习的过程啊~如果我是没用去想过是不会直接要的

xiabin68

(defun C:hk_layeron()
  (COMMAND "CMDECHO" "0")
  (SETQ F (SSGET ))
(if f
    (progn
      (setq n 1)
      (setq a (ssname f 0))
        (setq aa (entget a))
        (setq name (cdr (assoc 8 aa)))
        (command "layer" "s" name "")
      (command "layer" "of" "*" "" "")
      (while
        (setq a (ssname f n))
        (setq aa (entget a))
        (setq nam (cdr (assoc 8 aa)))
        (command "layer" "on" nam "")
        (setq n (1+ n))
)
(princ (strcat "当前层已经设置为"name "层"))
      (princ)
      )
(alert "没有选择有对象"))
  (princ)
  )

LIL5E

xiabin68 发表于 2012-12-5 20:35
(defun C:hk_layeron()
  (COMMAND "CMDECHO" "0")
  (SETQ F (SSGET ))

我还想请问个问题，就是关于LISP中用到COMMAND的话怎么学习COMMAND的命令是什么呀？有没有相关教程或帖子，例如您用到的  (command "layer" "of" "*" "" "") ，这些的话，我在CAD中输入“layer”，弹出图层窗口，这时代码窗口是无法输入的了，因此后面的"of""*"这些的含义我不懂。所以我想求教个了解CAD里面命令代码的方法。

xiabin68

LIL5E 发表于 2012-12-5 20:59
我还想请问个问题，就是关于LISP中用到COMMAND的话怎么学习COMMAND的命令是什么呀？有没有相关教程或帖子 ...

你可以透明使用这个命令，比如  -layer这样你就知道是怎么用的了

LIL5E

xiabin68 发表于 2012-12-5 21:10
你可以透明使用这个命令，比如  -layer这样你就知道是怎么用的了

谢谢！！懂了很多！非常感谢！

叮咚

这是组码写的。
你看看
怎么不行。
还是你不懂

LIL5E

叮咚 发表于 2012-12-6 09:06
这是组码写的。
你看看
怎么不行。

我是不懂了，又怎么了
不懂还不是得学吗
受教了