[求助]：判断图层是否存在,如果不存在则建立图层的代码

yfywk

(if (=(tblobjname "LAYER" "-视口") nil)
(progn
(entmake (list
'(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(6 . "CONTINUOUS") ;线型
'(62 . 3) ;颜色
'(70 . 0) ;图层状态
(cons 2 "-视口") ;图层名
)
)
)
)
这是一段判断图层是否存在,如果不存在则建立图层的代码。
那怎么将图层是否打印的控制添加到里面？
先谢谢了！

KERRYWM

(defun c:lay()
(setq ado(vlax-get-acad-object))
(setq adt(vla-get-activedocument ado))
(setq layertable(vla-get-layers adt))
(setq catchit(vl-catch-all-apply 'vla-item (list layertable "tucen")))
(if(vl-catch-all-error-p catchit)
(progn
   (setq nlay(vla-add  layertable "tucen"))
   (vla-put-color nlay acred)
   (vla-put-linetype nlay "dashed")
   (vla-put-plot nlay :vlax-false)
)
)

m123456

不错，楼主幸苦了

KERRYWM

回复中的VLA-PUT-PLOT应为VLA-PUT-PLOTTABLE,特此更正。其他不当之处，敬请指正，谢谢。

yfywk

楼上的朋友,使用你的程序加载时出现问题
(LOAD "C:/Documents and Settings/yfywk/桌面/ll.lsp") ; 错误:
输入的列表有缺陷

zml84

;;;请试试这个

(if (= (tblobjname "LAYER" "-视口") nil)
  (progn
    (entmake (list
               '(0 . "LAYER")
               '(100 . "AcDbSymbolTableRecord")
               '(100 . "AcDbLayerTableRecord")
               '(6 . "CONTINUOUS")        ;线型
               '(62 . 3)                ;颜色
               '(70 . 0)                ;图层状态
               (cons 2 "-视口")                ;图层名
             )
    )
    (command "'_layer" "p" "p" "-视口" "")                    ;打印
    ;(command "'_layer" "p" "N" "-视口" "")              ;不打印
  )
)

yfywk

楼上的朋友,我将你的代码另存为acaddoc.lsp,然后放到cad搜索路径,出现如下情况:
AutoCAD Express Tools Copyright ?2002-2004 Autodesk, Inc.

输入要加载的自定义文件的名称: '_layer
输入要加载的自定义文件的名称: p
输入要加载的自定义文件的名称: N
输入要加载的自定义文件的名称: -视口
输入要加载的自定义文件的名称: 文件名不能为空
AutoCAD 菜单实用程序已加载。
输入要加载的自定义文件的名称:
命令: *取消*



不用command就不不能实现吗??

ygq_2005

(command "layer" "m" "layername" "")
以上代码可以判断layername图层是否存在，如有就设为当前层，
否则建立layername层并设为当前层.

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;; ==================================================================
   
5. ;;;                   图层颜色格式化输入
   
6. ;;; 方式 : (mkla "层名" 颜色号),xyp版主的函数
   
7. ;;; ==================================================================
   
8. (defun xyp-mkla (name color)
   
9.   (if (= (tblsearch "layer" name) nil)
   
10.     (command "layer" "m" name "c" color name "")
    
11.     (command "layer" "t" name "s" name "c" color name "")
    
12.   )
    
13. )
    
14. ;;; ==================================================================
    
15.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; ==================================================================<br /> ;;;                   图层颜色格式化输入<br /> ;;; 方式 : (mkla "层名" 颜色号),xyp版主的函数<br /> ;;; ==================================================================<br /> (defun xyp-mkla (name color)<br />   (if (= (tblsearch "layer" name) nil)<br />     (command "layer" "m" name "c" color name "")<br />     (command "layer" "t" name "s" name "c" color name "")<br />   )<br /> )<br /> ;;; ==================================================================<br />   [/FONT]<br />

fools

最初由 yfywk 发布
[B](if (=(tblobjname "LAYER" "-视口") nil)
(progn
(entmake (list
'(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(6 . "CONTINUOUS") ;线型
'(62 . 3) ;颜色
'(70 . 0... [/B]

在此基础上增加一个DXF组码 290 ,此组码为打印标志。如果设置为 0，则不打印此图层.如果为1,则打印
对已有图层的修改,可修改290组码后entmod

winabcd

好函数，对于大批量建立图层很有用。