明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2306|回复: 10

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

[复制链接]
发表于 2016-10-21 21:42 | 显示全部楼层 |阅读模式
各位大神,请问谁有
按 (当前日期) 新建图层的lisp

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

其目的:在此图层上 画云线(圈出修改的位置),并标注修改内容,

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




发表于 2016-10-22 20:40 | 显示全部楼层
cable2004 发表于 2016-10-21 22:11
(defun c:nn ()
(setq Nme (rtos (fix(getvar "cdate"))))
(if (= (tblsearch "layer" Nme) nil)

根据楼主的要求,需要设为当前层,我增加了一行
  1. (defun c:XG ()
  2. (setq Nme (rtos (fix(getvar "cdate"))))
  3. (if (= (tblsearch "layer" Nme) nil)
  4. (entmake (list
  5. '(0 . "LAYER")
  6.         '(100 . "AcDbSymbolTableRecord")
  7.         '(100 . "AcDbLayerTableRecord")
  8.         '(70 . 0)
  9.         '(290 . 1)                 
  10.         (cons 2 (rtos (fix(getvar "cdate"))))
  11.         (cons 62 1)
  12. )))
  13. (setvar "clayer" NME)
  14.   (princ)
  15. )
回复 支持 2 反对 1

使用道具 举报

发表于 2016-10-21 22:11 | 显示全部楼层
(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)
)

评分

参与人数 1明经币 +1 收起 理由
vectra + 1 赞一个!

查看全部评分

回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2016-10-26 23:22 | 显示全部楼层
FireflyButler 发表于 2016-10-22 20:40
根据楼主的要求,需要设为当前层,我增加了一行

完美!,感谢前辈的回帖!
 楼主| 发表于 2016-10-26 23:24 | 显示全部楼层
FireflyButler 发表于 2016-10-22 20:40
根据楼主的要求,需要设为当前层,我增加了一行

完美!,感谢前辈的回帖!
 楼主| 发表于 2016-10-26 23:26 | 显示全部楼层
cable2004 发表于 2016-10-21 22:11
(defun c:nn ()
(setq Nme (rtos (fix(getvar "cdate"))))
(if (= (tblsearch "layer" Nme) nil)

感谢您的程序,谢谢!
发表于 2017-11-29 16:27 | 显示全部楼层
FireflyButler 发表于 2016-10-22 20:40
根据楼主的要求,需要设为当前层,我增加了一行

非常好的功能正在查找中,谢谢了,我取走代码了
发表于 2019-5-31 16:07 | 显示全部楼层
FireflyButler 发表于 2016-10-22 20:40
根据楼主的要求,需要设为当前层,我增加了一行

您好,可以加上时间吗
发表于 2019-5-31 17:00 | 显示全部楼层
(rtos (fix(getvar "cdate")))
==>
(rtos (getvar "cdate"))

先试这个
再看何处不合宜再改...
发表于 2019-5-31 21:06 | 显示全部楼层
Andyhon 发表于 2019-5-31 17:00
(rtos (fix(getvar "cdate")))
==>
(rtos (getvar "cdate"))

谢谢,可以用,改图的时候估计可能用的到
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 04:09 , Processed in 0.175461 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表