qwerasdf123456 发表于 2018-7-1 15:05:03

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

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

冰之绝恋 发表于 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 兼容性

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

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

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


qwerasdf123456 发表于 2018-7-8 17:07:51

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

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

lifuq1979 发表于 2018-7-2 12:29:10

抢个沙发，收币的

yoyoho 发表于 2018-7-3 12:36:04

感谢分享程序!!!!

xujinhua 发表于 2018-7-3 19:07:31

谢谢楼主，正需要做块

evayleung 发表于 2018-7-3 19:38:19

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

young-yi 发表于 2018-7-4 06:51:22

感谢分享程序!!!!

gzgbzh 发表于 2018-7-6 23:43:56

谢谢分享

yoyoho 发表于 2018-7-8 12:19:15

Autocad2012程序测试没成功喔！

yoyoho 发表于 2018-7-8 21:05:54

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

了解! 谢谢分享!!!!
页: [1] 2
查看完整版本: 批量重命名块，防止块被冲