批量重命名块，防止块被冲

龙__平

了解! 谢谢分享

冰之绝恋

从基于 AutoCAD 2017 的产品开始，CDATE 和 DATE 系统变量返回的时间不再包括毫秒。如果需要计算小于一秒的时间差，将需要使用 MILLISECS。

2. ; Returns a CDATE value that includes milliseconds based on release
   
3. ; Usage: (CDate)
   
4. ; Replaces (rtos (getvar "CDATE") 2 8)
   
5. (defun CDate ( / ms)
   
6.   ; Check to see which AutoCAD release is being used
   
7.   (if (<= (atof (getvar "ACADVER")) 22.0)
   
8.     (rtos (getvar "CDATE") 2 8)
   
9.     (progn
   
10.       ; Get the current milliseconds and append it to the CDATE value
    
11.       (setq ms (itoa (getvar "MILLISECS")))
    
12.       (strcat (rtos (getvar "CDATE") 2 6)(substr ms (- (strlen ms) 2)))
    
13.     )
    
14.   )
    
15. )

; Returns a CDATE value that includes milliseconds based on release<br /> ; Usage: (CDate)<br /> ; Replaces (rtos (getvar "CDATE") 2 8)<br /> (defun CDate ( / ms)<br />   ; Check to see which AutoCAD release is being used<br />   (if (<= (atof (getvar "ACADVER")) 22.0)<br />     (rtos (getvar "CDATE") 2 8)<br />     (progn<br />       ; Get the current milliseconds and append it to the CDATE value<br />       (setq ms (itoa (getvar "MILLISECS")))<br />       (strcat (rtos (getvar "CDATE") 2 6)(substr ms (- (strlen ms) 2)))<br />     )<br />   )<br /> )

AutoCAD 2019 帮助  关于 AutoLISP 兼容性

石井鱼

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

oistre

感谢分享程序!!!!

l282027798

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

softbird

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

yangchao2005090

cad2008用不了

开心无惧

冰之绝恋 发表于 2018-8-24 09:30
从基于 AutoCAD 2017 的产品开始，CDATE 和 DATE 系统变量返回的时间不再包括毫秒。如果需要计算小于一秒的 ...

感谢分享  很方便
试用时发现有个别的块名称没有变化，不知道是什么原因，
是否可以增加一个提示  还有块名称没有增加前缀