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

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

各位大神，请问谁有
按 (当前日期) 新建图层的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"))

谢谢，可以用，改图的时候估计可能用的到

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

[经验] 求按当前日期新建图层的lisp

评分

浏览过的版块

[经验] 求按当前日期新建图层 的lisp

评分

浏览过的版块

[经验] 求按当前日期新建图层的lisp