[求助]：图层的命令的问题

xulihua

请问下有没有选择图层的命令呀？画图时经常要换图层，每次都要去拉下拉菜单，很烦的，有没有更简单的方法呀？

xyp1964

[php];;;图层更换TCGH
(defun c:TCGH (/ e)
  (WHILE (NOT (setq e (entsel "\n确定被设置层任一物体 : "))))
  (setvar "clayer" (cdr (assoc 8 (entget (car e)))))
)[/php]

xyp1964

最初由 xulihua 发布
[B]看不懂啊！ [/B]

把二楼的内容复制到acad.lsp中。
在命令下运行：
(load"acad")
tcgh

dhcad

二楼的外挂不错，但用了一下，感觉与CAD中的命令: _ai_molc
（选择将使其图层成为当前图层的对象）是一样的。但还是谢谢。

晋睿

CAD有一个“点取图元定当前层”的功能啊！！！

woaining

(defun c:1 (/ old_lay ent)
  (setq c "1")
  (setq old_lay (getvar "clayer"))
  (setq ent (ssget))
  (if (= (tblobjname "LAYER" "红粗层") nil)
    (entmake
      (list '(0 . "LAYER")
           '(100 . "AcDbSymbolTableRecord")
           '(100 . "AcDbLayerTableRecord")
           '(6 . "CONTINUOUS")
           '(62 . 1)
           '(70 . 0)
           (cons 2 c)
      )
    )
  )
  (command "change" ent "" "p" "la" "1" "")
  (setvar "clayer" old_lay)
  (princ)
)

应用时只需要按数字键1+空格即可将选中实体转换到红粗层

我以前问过类似的问题
在各位的帮助下搞的
不知道对你是否有用

flfuthpss

(DEFUN C:flf( / E N)
        (SETQ E (CAR (ENTSEL "PICK AN OBJ.ON THE LAYER YOU WISHED:")))
        (IF E (PROGN
        (SETQ E (ENTGET E))
        (SETQ N (CDR (ASSOC 8 E)))
        (COMMAND"LAYER" "SET" N "")))
)
朋友，我的LSP文件经过实践过的，很好用，不信，你们试一下，想要更多
QQ：38008752
主页：http://jzldl.123ye.com
                     飞龙一号

xyp1964

最初由 flfuthpss 发布
[B](DEFUN C:flf( / E N)
        (SETQ E (CAR (ENTSEL "PICK AN OBJ.ON THE LAYER YOU WISHED:")))
        (IF E (PROGN
        (SETQ E (ENTGET E))
        (SETQ N (CDR (ASSOC 8 E)))
        (COMMAND"LAYER" "SET" N "")))
)
朋友，我的L... [/B]

[php]
(DEFUN C:flf (/ E N)
  (IF (SETQ E (CAR (ENTSEL "PICK AN OBJ.ON THE LAYER YOU WISHED:")))   
      (COMMAND "LAYER" "S" (CDR (ASSOC 8 (ENTGET E))) "")
    )
)
[/php]
或
[php]
(defun c:las (/ e)
  (if (setq e (entsel "\n确定被设置层任一物体 : "))
    (setvar "clayer" (cdr (assoc 8 (entget (car e)))))
  )
)
[/php]