以最短的字符串降低块名重复的方法

dcl1214

经常会遇到不同图纸粘贴块参照的现象，如果两个图纸中相同块名其结构不同，粘贴会出问题，这里给出来一种方法，可以降低重复几率

1. (defun $make-block-name$ (/ $msec/52$ f m n r s str wm y zz)
   
2.   ;制作块名
   
3.   (defun $msec/52$ (n zz / d ds loop n1 str)
   
4.           ;52进制转换为字母
   
5. 
   
6.     (or  n
   
7.   (setq n (atoi (menucmd "M=$(edtime,$(getvar,date),MSEC)")))
   
8.     )
   
9.     (setq ds nil)
   
10.     (setq loop T)
    
11.     (while loop
    
12.       (if (= (setq n1 (/ n 52)) 0)
    
13.   (setq loop nil)
    
14.       )
    
15.       (setq d (rem n 52))
    
16.       (setq ds (cons d ds))
    
17.       (setq n n1)
    
18.     )
    
19.     (setq
    
20.       str (apply 'strcat
    
21.      (mapcar (function (lambda (a) (nth a zz))) ds)
    
22.     )
    
23.     )
    
24.     str
    
25.   )
    
26.   (SETQ  ZZ (list "A"   "B"   "C"   "D"   "E"   "F"   "G"   "H"   "I"
    
27.      "J"   "K"   "L"   "M"   "N"   "O"   "P"   "Q"   "R"
    
28.      "S"   "T"   "U"   "V"   "W"   "X"   "Y"   "Z"   "A"
    
29.      "a"   "b"   "c"   "d"   "e"   "f"   "g"   "h"   "i"
    
30.      "j"   "k"   "l"   "m"   "n"   "o"   "p"   "q"   "r"
    
31.      "s"   "t"   "u"   "v"   "w"   "x"   "y"   "z"   "a"
    
32.     )
    
33.   )
    
34.   (setq
    
35.     n ($msec/52$
    
36.   (atoi (menucmd "M=$(edtime,$(getvar,date),YYYY)"))
    
37.   zz
    
38.       )
    
39.   )          ;年
    
40.   (setq y (nth (atoi (menucmd "M=$(edtime,$(getvar,date),M)")) zz))
    
41.           ;月
    
42.   (setq R (nth (atoi (menucmd "M=$(edtime,$(getvar,date),D)")) zz))
    
43.           ;日
    
44.   (setq s (nth (atoi (menucmd "M=$(edtime,$(getvar,date),HH)")) zz))
    
45.           ;时
    
46.   (setq  F ($msec/52$ (atoi (menucmd "M=$(edtime,$(getvar,date),MM)"))
    
47.          zz
    
48.     )
    
49.   )
    
50.           ;分
    
51.   (setq  M ($msec/52$ (atoi (menucmd "M=$(edtime,$(getvar,date),SS)"))
    
52.          zz
    
53.     )
    
54.   )          ;秒
    
55.   (SETQ WM ($msec/52$ NIL zz))    ;微妙
    
56.   (setq str (strcat n y r S F M WM))
    
57.   str
    
58. )

(defun $make-block-name$ (/ $msec/52$ f m n r s str wm y zz)<br />   ;制作块名<br />   (defun $msec/52$ (n zz / d ds loop n1 str)<br />           ;52进制转换为字母<br /> <br />     (or  n<br />   (setq n (atoi (menucmd "M=$(edtime,$(getvar,date),MSEC)")))<br />     )<br />     (setq ds nil)<br />     (setq loop T)<br />     (while loop<br />       (if (= (setq n1 (/ n 52)) 0)<br />   (setq loop nil)<br />       )<br />       (setq d (rem n 52))<br />       (setq ds (cons d ds))<br />       (setq n n1)<br />     )<br />     (setq<br />       str (apply 'strcat<br />      (mapcar (function (lambda (a) (nth a zz))) ds)<br />     )<br />     )<br />     str<br />   )<br />   (SETQ  ZZ (list "A"   "B"   "C"   "D"   "E"   "F"   "G"   "H"   "I"<br />      "J"   "K"   "L"   "M"   "N"   "O"   "P"   "Q"   "R"<br />      "S"   "T"   "U"   "V"   "W"   "X"   "Y"   "Z"   "A"<br />      "a"   "b"   "c"   "d"   "e"   "f"   "g"   "h"   "i"<br />      "j"   "k"   "l"   "m"   "n"   "o"   "p"   "q"   "r"<br />      "s"   "t"   "u"   "v"   "w"   "x"   "y"   "z"   "a"<br />     )<br />   )<br />   (setq<br />     n ($msec/52$<br />   (atoi (menucmd "M=$(edtime,$(getvar,date),YYYY)"))<br />   zz<br />       )<br />   )          ;年<br />   (setq y (nth (atoi (menucmd "M=$(edtime,$(getvar,date),M)")) zz))<br />           ;月<br />   (setq R (nth (atoi (menucmd "M=$(edtime,$(getvar,date),D)")) zz))<br />           ;日<br />   (setq s (nth (atoi (menucmd "M=$(edtime,$(getvar,date),HH)")) zz))<br />           ;时<br />   (setq  F ($msec/52$ (atoi (menucmd "M=$(edtime,$(getvar,date),MM)"))<br />          zz<br />     )<br />   )<br />           ;分<br />   (setq  M ($msec/52$ (atoi (menucmd "M=$(edtime,$(getvar,date),SS)"))<br />          zz<br />     )<br />   )          ;秒<br />   (SETQ WM ($msec/52$ NIL zz))    ;微妙<br />   (setq str (strcat n y r S F M WM))<br />   str<br /> )

你有种再说一遍

似乎想做成原生挺难的.
块名相同,包围盒面积相同,
块内比较:图元数比较,句柄排序,包围盒碰撞检测,颜色碰撞,图层碰撞...
块内块还需要裁剪边界碰撞,此时需要序列化图元,
所以cad是通过序列化图元进行比较的.


块表记录内是堆表(是否存在排序),按照句柄序对照判断,
多出肯定是不同,
图元序列化数据不同时候肯定是不同,问题是句柄不同,图元序列化相同,此时是忽略的.

弹出缩略图窗口选择忽略/覆盖.

自贡黄明儒

可以考虑最后图元的句柄，cad都不怕句柄重复，我们又担心什么呢？

tryhi

若是考虑“最短”，应该是毫秒的时间戳（如1713491247123）的十进制形式转64进制为最短，若要继续缩短甚至可以去掉前三位及后1位

你有种再说一遍

自贡黄明儒 发表于 2024-4-19 07:02
可以考虑最后图元的句柄，cad都不怕句柄重复，我们又担心什么呢？

一个圆,拉大半径,句柄也是一样呀...
不够保险

lea丶丶

tryhi 发表于 2024-4-19 10:05
若是考虑“最短”，应该是毫秒的时间戳（如1713491247123）的十进制形式转64进制为最短，若要继续缩短甚至 ...

在群里好久没看到你冒泡了啊

kozmosovia

要短，上汉字。

guosheyang

感谢杜总个的源码分享！

xyp1964

图块会忽略字母大小写