淡薄kk 发表于 2016-10-21 21:42:54

求按当前日期新建图层 的lisp

各位大神，请问谁有
按 (当前日期) 新建图层的lisp

其作用是:新建一个 图层（图层名为当前日期），颜色为红色，并设置为当前层。

其目的：在此图层上 画云线（圈出修改的位置），并标注修改内容，

这样的好处：那天修改了那部分，一目了然，并且图层能单独关闭，便于管理。




FireflyButler 发表于 2016-10-22 20:40:06

cable2004 发表于 2016-10-21 22:11
(defun c:nn ()
(setq Nme (rtos (fix(getvar "cdate"))))
(if (= (tblsearch "layer" Nme) nil)


根据楼主的要求，需要设为当前层，我增加了一行
(defun c:XG ()
(setq Nme (rtos (fix(getvar "cdate"))))
(if (= (tblsearch "layer" Nme) nil)
(entmake (list
'(0 . "LAYER")
      '(100 . "AcDbSymbolTableRecord")
      '(100 . "AcDbLayerTableRecord")
      '(70 . 0)
      '(290 . 1)               
      (cons 2 (rtos (fix(getvar "cdate"))))
      (cons 62 1)
)))
(setvar "clayer" NME)
(princ)
)

cable2004 发表于 2016-10-21 22:11:41

(defun c:nn ()
(setq Nme (rtos (fix(getvar "cdate"))))
(if (= (tblsearch "layer" Nme) nil)
(entmake (list
'(0 . "LAYER")
      '(100 . "AcDbSymbolTableRecord")
      '(100 . "AcDbLayerTableRecord")
      '(70 . 0)
      '(290 . 1)               
      (cons 2 (rtos (fix(getvar "cdate"))))
      (cons 62 1)
)))
(princ)
)

淡薄kk 发表于 2016-10-26 23:22:13

FireflyButler 发表于 2016-10-22 20:40
根据楼主的要求，需要设为当前层，我增加了一行

完美!,感谢前辈的回帖！

淡薄kk 发表于 2016-10-26 23:24:22

FireflyButler 发表于 2016-10-22 20:40
根据楼主的要求，需要设为当前层，我增加了一行

完美!,感谢前辈的回帖！

淡薄kk 发表于 2016-10-26 23:26:06

cable2004 发表于 2016-10-21 22:11
(defun c:nn ()
(setq Nme (rtos (fix(getvar "cdate"))))
(if (= (tblsearch "layer" Nme) nil)


感谢您的程序，谢谢！

qq1254582201 发表于 2017-11-29 16:27:33

FireflyButler 发表于 2016-10-22 20:40
根据楼主的要求，需要设为当前层，我增加了一行

非常好的功能正在查找中，谢谢了，我取走代码了

yangchao2005090 发表于 2019-5-31 16:07:39

FireflyButler 发表于 2016-10-22 20:40
根据楼主的要求，需要设为当前层，我增加了一行

您好，可以加上时间吗

Andyhon 发表于 2019-5-31 17:00:17

(rtos (fix(getvar "cdate")))
==>
(rtos (getvar "cdate"))

先试这个
再看何处不合宜再改...

yangchao2005090 发表于 2019-5-31 21:06:13

Andyhon 发表于 2019-5-31 17:00
(rtos (fix(getvar "cdate")))
==>
(rtos (getvar "cdate"))


谢谢，可以用，改图的时候估计可能用的到
页: [1] 2
查看完整版本: 求按当前日期新建图层 的lisp