我可以通过entm创建新层吗

ssg · 发表于 2022-7-5 12:55:11

我通常通过命令功能创建新层。例子：
（命令“Layer”“N”MyLayer“L”MyLtype MyLayer“C”MyColor MyLayer“T”MyLayer“”）
我想用entmake函数来做。有人能帮我吗？
提前感谢！

VovKa · 发表于 2022-7-5 13:02:27


(entmake (list (cons 0 "LAYER")
       (cons 100 "AcDbSymbolTableRecord")
       (cons 100 "AcDbLayerTableRecord")
       (cons 2 MyLayer)
       (cons 6 MyLtype)
       (cons 62 MyColor)
 )
)

阅读DXF参考了解更多组码

ssg · 发表于 2022-7-5 13:05:54

谢谢！
你的Lisp程序很专业！

kpblc · 发表于 2022-7-5 13:11:48

如果dwg中存在图层MyLayer，则会收到错误。您最好这样使用smth：

copy

(defun create-my-layer (name ltype color / res)
                      ;|
*    Creates a new layer in current dwg.
* If layer exist, returns an ename-pointer to it (no changes). If not, layer
* has been tried to create with settings.
*    Call parameters:
name        Name of layer
ltype        Name of linetype setted to created layer. If it doesn't exist
        the linetype "Continuous" will be used
color        ICA-color for creating layer
|;
 (cond
   ((tblobjname "layer" "name"))
   (t
    (setq res (entmakex (list (cons 0 "LAYER")
                              (cons 100 "AcDbSymbolTableRecord")
                              (cons 100 "AcDbLayerTableRecord")
                              (cons 2 name)
                              (cons 6
                                    (cond ((tblobjname "ltype" ltype))
                                          (t "Continuous")
                                          ) ;_ end of cond
                                    ) ;_ end of cons
                              (cons 62 color)
                              ) ;_ end of list
                        ) ;_ end of entmakex
          ) ;_ end of setq
    )
   ) ;_ end of cond
 ) ;_ end of defun

fuccaro · 发表于 2022-7-5 13:16:56

Ssg公司
你需要一层来放置一些东西，对吗？
为什么不在需要的图层上创建所需的对象；如果层存在-将使用它，如果不存在-将创建它。

ssg · 发表于 2022-7-5 13:19:31

@kpblc：谢谢！我知道如何使用条件函数：if，cond…。我将在特定情况下添加它们。

@fuccaro：是的，但有时我需要创建没有任何对象的新层（使用自定义标准创建模板图形时）。

谢谢大家！你的想法对我很有用。但还有一个问题：
当我创建普通实体（直线、圆、圆弧…）时，我不需要DXF代码100。
例子：
（entmake（列表（cons 0“行”）（cons 10’（100 100））（cons 11’（150 200）））

AutoCAD应用程序将自动将它们添加到实体数据库中：AcDbEntity、AcDbLine、AcDbArc、AcDbCircle。

但为什么我必须声明DXF代码100与层（可能与表组中的所有对象）？例子：
（entmake（列表（cons 0“层”）
（cons 100“AcDbSymbolTableRecord”）
（cons 100“AcDbLayerTableRecord”）
（cons 2“MyLayer”）
（cons 70 0）
)

如果其中一个丢失，则不会创建新层。
谁能解释？

Bilal · 发表于 2022-7-5 13:24:02

copy


(defun create-my-layer (name ltype color / res)
                      ;|
*    Creates a new layer in current dwg.
* If layer exist, returns an ename-pointer to it (no changes). If not, layer
* has been tried to create with settings.
*    Call parameters:
name        Name of layer
ltype        Name of linetype setted to created layer. If it doesn't exist
        the linetype "Continuous" will be used
color        ICA-color for creating layer
|;
(cond
 ((tblobjname "layer" name))
 (t
  (setq res (entmake (list (cons 0 "LAYER")
                                     (cons 100 "AcDbSymbolTableRecord")
                                     (cons 100 "AcDbLayerTableRecord")
                                     (cons 2 name)
                                     (cons 70 0)
                                     (cons 62 color)
                                     (cons 6
                                           (cond ((tblobjname "ltype" ltype) ltype)
                                                    (t "Continuous")
                                      ) ;_ end of cond
                                     ) ;_ end of cons
                       ) ;_ end of list
            ) ;_ end of entmake
   ) ;_ end of setq
 )
) ;_ end of cond
) ;_end of defun