鼠标点击某个图层，这个图层自动成为当前图层

theguai

cad里面，鼠标点击某个图层，这个图层自动成为当前图层，怎么才能做到啊，如果鼠标点击量两个或两个以上的图层，该命令失效

Free-Lancer

当前是唯一的，你点两个，如果不一样用哪个呢！

cam0668

;***********************************************************************
;点选变到当前层
(defun c:tl(/ e n)
     (princ "\n切换到当前层.\n")
     (setq e (car (entsel "选择目标层上任一对象:")))
     (if e
       (progn
         (setq e (entget e))
         (setq n (cdr (assoc 8 e)))
         (setvar "clayer" n)
       )
     );end if e
     (princ (strcat "当前层为 " n "."))
     (princ)
)

试下这个

eii119

CAD里面有这个按钮，在图层工具条上

theguai

cam0668 发表于 2015-1-7 18:52
;***********************************************************************
;点选变到当前层
(defun  ...

不好意思，我一点也不会编辑，我把你发的内容，做成lsp，加载了，貌似是不行啊
我自己设置的LAYMCUR命令的快捷键是n

我的目的是：鼠标点选某个图层，该图层在图层列表里面的对勾自动变成鼠标点选的那个层

yjr111

(defun c:n (/ str e la)
  (setq str "\n选择目标层上任一对象:")
  (while (not (setq e(entsel str)))
   (setq e (entsel str))
    )
  (setq la (cdr (assoc 8 (entget (car e)))))
  (command "-layer" "s" la "" )
  (princ)
)

口味虾

cad本来就有这个命令  Laymcur
或者图层工具条