[试用]：指定图层是否存在的判断运用(高手勿进,源码奉献)

dwg001

指定图层是否存在的判断运用（高手勿进）[/COLOR] [F]指定图层是否存在的判断运用（高手勿进）[/F] [PHP];;;  程序功能：   
;;;  1,判断指定层是否存在，如果不存在则建立并置为当前层,颜色为随层的指定色;
;;;  2,如果当前层不是指定层，且指定层被冻结则解冻指定层并置为当前层，颜色为随层的指定色;
;;;  3,如果当前层是指定层，则将指定层置为当前层，颜色为随层的指定色;
;;;  4,注意： W_Lname为“字符串”型，W_Color为“整数”型，取值1~255.  (_By dwg001)

(defun Mla (W_Lname W_Color / W_layer)
  (setq W_layer (tblsearch "layer" W_Lname))
                                        ;  check and create W_Lname layer
  (if (= nil W_layer)
    (command "_.layer" "m" W_Lname "c" W_Color "" "")
  )

  (if (/= (getvar "clayer") W_Lname)
    (command "_.layer" "t" W_Lname "s" W_Lname "c" W_Color "" "")
  )

  (if (= (getvar "clayer") W_Lname)
    (command "_.layer" "s" W_Lname "c" W_Color "" "")
  )
  (prin1)
)  

;;; 如 (mla "ppp" 3)
[/PHP]

aeo

(command "_.layer" "m" W_Lname "c" W_Color "" "")
这一句就行
强制建(设)层并改颜色.

art_ccd

能不能写一个，将所有图层都以随层色变为不随层的固定色

dwg001

to 2楼楼主:
如果该层处于冻结状态，后面的语句是需要的。

qjcpj

如果"THICK"为图层名，(setq nu (cdr (assoc '70 (tblsearch "layer" "THICK"))))
那么：
当"THICK"被冻结时，nu=1；
当"THICK"被锁定时，nu=4；
当"THICK"被冻结和锁定时，nu=5
...

jx2008

谢谢了阿，有几个人都发了这方面的帖子

lovein2002

谢了阿，有几个人都发了这方面的帖子

pp_AHl

路过,学习中

KERRYWM

你可试试用VLISP写一个，那样建图层会更快，用到的函数有VLA-GET-FREEZE,VLA-GET-LOCK,
VLA-GET-LAYERS,VLA-GET-ACTIVEDOCUMENT,及VLA-PUT-之类的函数，程序会比较长，但速度还算可以。

limingqian

Vlisp编程可能代码要长一些，因为有冗余代码。最好还是自己编。

zhynt

[php]
;;;检查并设置层
(defun chk_layers (lay_name lay_color)
  (SETQ CHK_LAYER (TBLSEARCH "LAYER" lay_name))
  (IF (= CHK_LAYER NIL)
    (PROGN
      (ENTMAKE (LIST
                 '(0 . "LAYER")
                 '(100 . "AcDbSymbolTableRecord")
                 '(100 . "AcDbLayerTableRecord")
                 '(6 . "continuous")        ;线型
                 (cons 62 lay_color)        ;图层颜色
                 '(70 . 0)                ;图层状态
                 (CONS 2 lay_name)        ;图层名
               )
      )
    )
  )
  (setvar "CLAYER" lay_name)
)
[/php]

kohi

[php]
(defun mlayer (name color ltype)
  (if (tblsearch "layer" name)
    (vl-cmdf "layer" "s" name "")
    (progn
      (setq regen (getvar "regenmode"))
      (setvar "regenmode" 0)
      (vl-cmdf "layer" "m" name)
      (if color (vl-cmdf "c" color name))
      (if ltype (vl-cmdf "lt" ltype name))
      (vl-cmdf "")
      (setvar "regenmode" regen)
    )
  )
)
[/php]