向数据库添加数据？

Tharwat · 发表于 2022-7-6 00:00:49

当您添加一个字符串而不是表示颜色数的数字时，您没有理解代码，您可能知道数字应该是0到256，因此我的代码在尝试创建所需的层名称之前进行检查，以确保参数正确，然后将其提供给entmake函数。

当然

如果你的价值评估，你不应该使用报价，否则将不会被评估。

最后，让我的代码运行，这里是一个示例。

copy

(layermake 1 "Mechanical") ; This should create a layer named Mechanical with color 1 which represent red .

Tharwat · 发表于 2022-7-6 00:02:34

我猜你在寻找这样的东西。

copy


(defun LayerMake (clr name / e o)
 (if (and (< -1 clr 257)
          (snvalid name)
     )
   (progn
     (setq e (list '(0 . "LAYER")
                   '(100 . "AcDbSymbolTableRecord")
                   '(100 . "AcDbLayerTableRecord")
                   '(70 . 0)
                   (cons 2 name)
                   (cons 62 clr)
             )
     )
     (if (setq o (tblobjname "LAYER" name))
       (entmod (cons (cons -1 o) e))
       (entmake e)
     )
   )
 )
)