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


网友答: 从基于 AutoCAD 2017 的产品开始,CDATE 和 DATE 系统变量返回的时间不再包括毫秒。如果需要计算小于一秒的时间差,将需要使用 MILLISECS。
  1. ; Returns a CDATE value that includes milliseconds based on release
  2. ; Usage: (CDate)
  3. ; Replaces (rtos (getvar "CDATE") 2 8)
  4. (defun CDate ( / ms)
  5.   ; Check to see which AutoCAD release is being used
  6.   (if (<= (atof (getvar "ACADVER")) 22.0)
  7.     (rtos (getvar "CDATE") 2 8)
  8.     (progn
  9.       ; Get the current milliseconds and append it to the CDATE value
  10.       (setq ms (itoa (getvar "MILLISECS")))
  11.       (strcat (rtos (getvar "CDATE") 2 6)(substr ms (- (strlen ms) 2)))
  12.     )
  13.   )
  14. )

AutoCAD 2019 帮助  关于 AutoLISP 兼容性

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

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

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




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

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

网友答: 抢个沙发,收币的

网友答: 感谢分享程序!!!!

网友答: 谢谢楼主,正需要做块

网友答: 默默地支持一下就好了。下载就不必了。

网友答: 感谢分享程序!!!!

网友答: 谢谢分享

网友答: Autocad2012程序测试没成功喔!

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

了解! 谢谢分享!!!!
  • 上一篇:关于CAD组的操作
  • 下一篇:没有了