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

qwerasdf123456

设计院，重新落图时，因为重名块，新落进来的底图容易被同名块冲掉，导致底图错误。这个给新底图所有块增加一个前缀，防止块被冲掉。

冰之绝恋

从基于 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 兼容性

开心无惧

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

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

qwerasdf123456

yoyoho 发表于 2018-7-8 12:19
Autocad2012程序测试没成功喔！

试试14，我用着好用，这个是我花了20人民币找人写的。

lifuq1979

抢个沙发，收币的

yoyoho

感谢分享程序!!!!

xujinhua

谢谢楼主，正需要做块

evayleung

默默地支持一下就好了。下载就不必了。

young-yi

感谢分享程序!!!!

gzgbzh

谢谢分享

yoyoho

Autocad2012程序测试没成功喔！

yoyoho

qwerasdf123456 发表于 2018-7-8 17:07
试试14，我用着好用，这个是我花了20人民币找人写的。

了解! 谢谢分享!!!!