用ENTMAKE来做图层

llsheng_73 · 发表于 2013-3-27 17:05:54

(defun SETLAYER(LAY LTYPE CLR)
  (if (=(tblobjname "LAYER" LAY) nil)
(entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")
   (CONS 6  LTYPE)(cons 62 CLR)'(70 . 0)(cons 2 LAY))))
  (setvar "CLAYER" LAY)
  )
自己用ENTMAKE做的新建图层（如果LAY已经存在则不建立）并将其设为当前图层
希望大家指点

c961806787 · 发表于 2013-8-18 00:03:07

收了，非常感谢！

zhangkui9070 · 发表于 2022-7-22 15:59:43

73老师是高手

下文没句号。 · 发表于 2022-7-30 11:40:11

大佬这个命令是什么呢？

llsheng_73 · 发表于 2022-7-31 09:52:46

下文没句号。发表于 2022-7-30 11:40
大佬这个命令是什么呢？

虽然最终是要写一些命令，但为了写的命令能更丰富或者能更好的实现自己的想法，还需要自己定义一些函数。。。最后搞命令的时候就象调用它的内部函数那样调用自己的函数。。。

shcvip · 发表于 2022-8-20 17:01:41

llsheng_73 发表于 2022-7-31 09:52
虽然最终是要写一些命令，但为了写的命令能更丰富或者能更好的实现自己的想法，还需要自己定义一些函数。 ...

运行的时候，显示参数太少？

账号		自动登录	找回密码
密码			注册