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

用ENTMAKE来做图层

(defun SETLAYER(LAY LTYPE CLR)
(if (=(tblobjname "LAYER" LAY) nil)
    (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")
      (CONS 6LTYPE)(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老师是高手:handshake

下文没句号。 发表于 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
虽然最终是要写一些命令，但为了写的命令能更丰富或者能更好的实现自己的想法，还需要自己定义一些函数。 ...

运行的时候，显示参数太少？
页: [1]
查看完整版本: 用ENTMAKE来做图层