龙__平 发表于 2018-8-22 18:17:04

了解! 谢谢分享

冰之绝恋 发表于 2018-8-24 09:30:47

从基于 AutoCAD 2017 的产品开始，CDATE 和 DATE 系统变量返回的时间不再包括毫秒。如果需要计算小于一秒的时间差，将需要使用 MILLISECS。
; Returns a CDATE value that includes milliseconds based on release
; Usage: (CDate)
; Replaces (rtos (getvar "CDATE") 2 8)
(defun CDate ( / ms)
; Check to see which AutoCAD release is being used
(if (<= (atof (getvar "ACADVER")) 22.0)
    (rtos (getvar "CDATE") 2 8)
    (progn
      ; Get the current milliseconds and append it to the CDATE value
      (setq ms (itoa (getvar "MILLISECS")))
      (strcat (rtos (getvar "CDATE") 2 6)(substr ms (- (strlen ms) 2)))
    )
)
)
AutoCAD 2019 帮助关于 AutoLISP 兼容性

石井鱼 发表于 2018-8-24 12:11:27

CAD2006测试没有反应，楼主应该测试下告知大家

oistre 发表于 2018-8-28 11:42:05

感谢分享程序!!!!

l282027798 发表于 2018-12-10 16:04:14

其实可以不用外挂的，用cad自带的外部参照不是更好吗？

softbird 发表于 2019-5-29 08:27:26

能够批量修改已经存在的同名块为不同的块名吗？

yangchao2005090 发表于 2019-6-17 19:28:34

cad2008用不了

开心无惧 发表于 2024-6-7 14:41:58

本帖最后由 开心无惧 于 2024-6-7 19:48 编辑

冰之绝恋 发表于 2018-8-24 09:30
从基于 AutoCAD 2017 的产品开始，CDATE 和 DATE 系统变量返回的时间不再包括毫秒。如果需要计算小于一秒的 ...
感谢分享很方便
试用时发现有个别的块名称没有变化，不知道是什么原因，
是否可以增加一个提示还有块名称没有增加前缀


页: 1 [2]
查看完整版本: 批量重命名块，防止块被冲