请教关于用entmake批量创建图层的问题

669423907

;用entmake创建图层

(defun jianceng()

(if (= xianxing nil) (setq xianxing "Continuous"))
(if (= xiankuan nil) (setq xiankuan 13))
(if (= dayin nil) (setq  dayin 1))

;自动加载线型 Gu_xl 2013-5-29 http://bbs.mjtd.com/forum.php?mo ... mp;page=2#pid588571
(or (TBLSEARCH "LTYPE" xianxing);线型
(vl-catch-all-apply
'vla-load
(list (vla-get-Linetypes
(vla-get-ActiveDocument (vlax-get-acad-object)))
xianxing ;线型
(findfile "acad.lin"))))

(entmake (list '(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(70 . 0)
(cons 2 cengming)        ;层名
(cons 62 yanse)                ;颜色
(cons 6 xianxing)        ;线型
(cons 370 xiankuan)        ;线宽，100=1
(cons 290 dayin)        ;0不打印，1打印
))
(princ))

(defun c:`q(); 层名         颜色               线型              线宽        打印
(setq cengming "A" yanse 1 xianxing "center" xiankuan 100 dayin 0)(jianceng)
(setq cengming "B" yanse 2 )                                      (jianceng)
(setq cengming "C" yanse 3 )                                      (jianceng)
(setq cengming "D" yanse 4 )                                      (jianceng)
(setq cengming "E" yanse 5 )                                      (jianceng)
(setq cengming "F" yanse 6 )                                      (jianceng)
(setq cengming "G" yanse 7 )                                      (jianceng)
(setq cengming "H" yanse 8 )                                      (jianceng)
(setq cengming "I" yanse 9 )                                      (jianceng)

(princ))


哪位大师方便帮看看哪里写得不对，图层建了，但线宽、线型、打印状态都全部一样了，要怎么改呢？线谢谢了

edata

1. ;用entmake创建图层
   
2. ;(jianceng cengming yanse xianxing xiankuan dayin flag)
   
3. ;(jianceng 层名 颜色 线型 线宽 打印 同名是否强制更新)
   
4. (defun jianceng        (cengming yanse xianxing xiankuan dayin flag)
   
5.   (or xianxing (setq xianxing "Continuous"))
   
6.   (or xiankuan (setq xiankuan 13))
   
7.   (or dayin (setq dayin 1))
   
8.   (or yanse (setq yanse 7))
   
9.   ;自动加载线型 Gu_xl 2013-5-29 http://bbs.mjtd.com/forum.php?mo ... mp;page=2#pid588571
   
10.   (and xianxing
    
11.        (or (TBLSEARCH "LTYPE" xianxing)        ;线型
    
12.            (vl-catch-all-apply
    
13.              'vla-load
    
14.              (list (vla-get-Linetypes
    
15.                      (vla-get-ActiveDocument (vlax-get-acad-object))
    
16.                    )
    
17.                    xianxing                ;线型
    
18.                    (findfile "acad.lin")
    
19.              )
    
20.            )
    
21.        )
    
22.   )
    
23.   (and
    
24.     cengming
    
25.     (if        (and (setq en (tblobjname "layer" cengming)) flag)
    
26.       (progn
    
27.         ;强制更新
    
28.         (setq elist (entget en))
    
29.         (and yanse (setq elist (subst (cons 62 yanse) (assoc 62 elist) elist)))
    
30.         (and xianxing (setq elist (subst (cons 6 xianxing) (assoc 6 elist) elist)))
    
31.         (and xiankuan (setq elist (subst (cons 370 xiankuan) (assoc 370 elist) elist)))
    
32.         (and dayin (setq elist (subst (cons 290 dayin) (assoc 290 elist) elist)))
    
33.         (entmod elist)
    
34.       )
    
35.       (entmake (list '(0 . "LAYER")
    
36.                      '(100 . "AcDbSymbolTableRecord")
    
37.                      '(100 . "AcDbLayerTableRecord")
    
38.                      '(70 . 0)
    
39.                      (cons 2 cengming)        ;层名
    
40.                      (cons 62 yanse)        ;颜色
    
41.                      (cons 6 xianxing)        ;线型
    
42.                      (cons 370 xiankuan) ;线宽，100=1
    
43.                      (cons 290 dayin)        ;0不打印，1打印
    
44.                )
    
45.       )
    
46.     )
    
47.   )
    
48.   (princ)
    
49. )
    
50. (defun c:`q(); 层名         颜色               线型              线宽        打印
    
51.   ;(jianceng cengming yanse xianxing xiankuan dayin flag)
    
52.   ;(jianceng 层名 颜色 线型 线宽 打印 同名是否强制更新)
    
53.   (jianceng "A" 1 "center" 100 0 t)
    
54.   (jianceng "B" 2 nil nil nil t)
    
55.   (jianceng "C" 3 nil nil nil t)
    
56.   (jianceng "D" 4 nil nil nil t)
    
57.   (princ)
    
58.   )

;用entmake创建图层<br /> ;(jianceng cengming yanse xianxing xiankuan dayin flag)<br /> ;(jianceng 层名 颜色 线型 线宽 打印 同名是否强制更新)<br /> (defun jianceng        (cengming yanse xianxing xiankuan dayin flag)<br />   (or xianxing (setq xianxing "Continuous"))<br />   (or xiankuan (setq xiankuan 13))<br />   (or dayin (setq dayin 1))<br />   (or yanse (setq yanse 7))<br />   ;自动加载线型 Gu_xl 2013-5-29 <a href="http://bbs.mjtd.com/forum.php?mo" target="_blank">http://bbs.mjtd.com/forum.php?mo</a> ... mp;page=2#pid588571<br />   (and xianxing<br />        (or (TBLSEARCH "LTYPE" xianxing)        ;线型<br />            (vl-catch-all-apply<br />              'vla-load<br />              (list (vla-get-Linetypes<br />                      (vla-get-ActiveDocument (vlax-get-acad-object))<br />                    )<br />                    xianxing                ;线型<br />                    (findfile "acad.lin")<br />              )<br />            )<br />        )<br />   )<br />   (and<br />     cengming<br />     (if        (and (setq en (tblobjname "layer" cengming)) flag)<br />       (progn<br />         ;强制更新<br />         (setq elist (entget en))<br />         (and yanse (setq elist (subst (cons 62 yanse) (assoc 62 elist) elist)))<br />         (and xianxing (setq elist (subst (cons 6 xianxing) (assoc 6 elist) elist)))<br />         (and xiankuan (setq elist (subst (cons 370 xiankuan) (assoc 370 elist) elist)))<br />         (and dayin (setq elist (subst (cons 290 dayin) (assoc 290 elist) elist)))<br />         (entmod elist)<br />       )<br />       (entmake (list '(0 . "LAYER")<br />                      '(100 . "AcDbSymbolTableRecord")<br />                      '(100 . "AcDbLayerTableRecord")<br />                      '(70 . 0)<br />                      (cons 2 cengming)        ;层名<br />                      (cons 62 yanse)        ;颜色<br />                      (cons 6 xianxing)        ;线型<br />                      (cons 370 xiankuan) ;线宽，100=1<br />                      (cons 290 dayin)        ;0不打印，1打印<br />                )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun c:`q(); 层名         颜色               线型              线宽        打印<br />   ;(jianceng cengming yanse xianxing xiankuan dayin flag)<br />   ;(jianceng 层名 颜色 线型 线宽 打印 同名是否强制更新)<br />   (jianceng "A" 1 "center" 100 0 t)<br />   (jianceng "B" 2 nil nil nil t)<br />   (jianceng "C" 3 nil nil nil t)<br />   (jianceng "D" 4 nil nil nil t)<br />   (princ)<br />   )

edata

伊偭 发表于 2024-6-2 22:47
(or xiankuan (setq xiankuan 13))    请问线宽改成“默认”，怎么改？

(or xiankuan (setq xiankuan -3))

伊偭

  (or xiankuan (setq xiankuan 13))    请问线宽改成“默认”，怎么改？

edata

是否强制更新 t 是 nil 否
遇到图层名已经存在，如果是t,则更新设置的属性 颜色等等。如果是nil则保持原状。

maiko

edata 发表于 2014-8-30 19:56
是否强制更新 t 是 nil 否
遇到图层名已经存在，如果是t,则更新设置的属性 颜色等等。如果是nil则保持原状 ...

好像有处错误,
(or yanse (setq dayin 7))

Hermite

学习了

lll731462194

好东西，学习了

不想多说

学习了，entmake确实要快点

yangchao2005090

有没有人知道这个最原始创建图层的帖子在哪啊，好像找不到了

依然小小鸟

是否可以强制线型比例  为 1

哥很帅也很温柔

很好,很受用 学习了!!!