新人报道.并提个小问题.谢谢答复.

myth4ever · 发表于 2007-1-9 15:01

刚看到有个帖子.

明白了怎样用输入图层名字的方式来将该图层置为当前.

但是制图过程中,有可能有的图会临时出现一些先前并没有想到要用的图层.

所以无法在acad2005doc.lsp中预先将代码写进去.

我想能不能有个命令.在输入图层名字的时候.如果有这个图层.那么就置为当前.没有的话.就是新建并置为当前.

有达人能教我一下吗.

感谢.

ZZXXQQ · 发表于 2007-1-9 15:49

可以在程序中这样写：

(COMMAND "LAYER" "M" "NEW_LAYER_NAME" "")

myth4ever · 发表于 2007-1-9 17:29

(DEFUN C:ww ()
(COMMAND "LAYER" "M" "NEW_LAYER_NAME" "")
)

这样啊?

highflybir · 发表于 2007-1-9 17:35

也许这样能满足你的要求。
加载，运行ll
输入你要设置为当前曾的图层的名字即可。

(defun C:ll (/ newlay laysel namlst item layobj)
(vl-load-com)
(setq *OBJ (vlax-get-acad-object))
(setq *DOC (vla-get-activedocument *OBJ))
(setq *MSP (vla-get-modelspace *DOC))
(if (setq newlay (getstring "请输入层名: "))
(progn
(setq laysel (vla-get-layers *DOC))
(setq namlst nil)
(vlax-for n laysel
(setq namlst (cons (vla-get-name n) namlst))
)
(setq namlst (reverse namlst))
(if (setq item (vl-position newlay namlst))
(setq layobj (vla-item laysel item)
layobj (vla-put-activelayer *DOC layobj)
)
(setq layobj (vla-add laysel newlay)
layobj (vla-put-activelayer *DOC layobj)
)
)
)
)
)

highflybir · 发表于 2007-1-9 17:48

本帖最后由作者于 2007-1-9 18:26:46 编辑

稍微修改了一下，最后可以提示是创建了还是把已存在的置为当前层。

不过zzxxqq的方法很简单实用。

killer9806 · 发表于 2007-1-16 19:35

偶也贴一个

(defun c:ll (/ a namelst b)
(command "cmdecho" 0)
(while (setq a (tblnext "layer" (null a)))
    (setq namelst (cons (cdr (assoc 2 a)) namelst))
    (reverse namelst)
)
(if (setq b (getstring "\n输入图层名:"))
    (progn
      (if (member b namelst)
(command "clayer" b "")
(command "layer" "m" b "")
      )
    )
)
(princ)
)

花锦绣 · 发表于 2007-1-19 14:31

我经常使用的就是这个命令

(command "layer" "m" "层名" "on" "层名" "t" "层名" "u" "层名" "s" "层名" "")

新建、显示、解冻、解锁、设置

全都用上了。

账号		自动登录	找回密码
密码			注册

新人报道.并提个小问题.谢谢答复.

本帖子中包含更多资源