苦寻多年的设计编号!感谢明经黄工!

x_s_s_1

帮网友写的

2. ;;;by x_s_s_1@163.com
   
3. ;;;注册表数据存于"HKEY_CURRENT_USER\\Software\\Autodesk\\sjbhx"如有需要自行删除
   
4. ;;;如杀毒软件，管理员权限等限制无法读写注册表请自行处理
   
5. (defun c:sjbhx (/ get_dxf changenum en reg num num1)
   
6.   (vl-load-com)
   
7.   (defun get_dxf (en num /) (cdr (assoc num (entget en))))
   
8.   (defun changenum (num /)
   
9.     (cond ((< num 10) (strcat "00" (itoa num)))
   
10.           ((and (> num 9) (< num 100)) (strcat "0" (itoa num)))
    
11.           ((> num 99) (itoa num))
    
12.     )
    
13.   )
    
14.   (setq reg "HKEY_CURRENT_USER\\Software\\Autodesk\\sjbhx")
    
15.   (if (null (vl-registry-read reg "sjbhx"))
    
16.     (vl-registry-write reg "sjbhx" "000")
    
17.   )
    
18.   (while (setq en (car (entsel "\n拾取编号：")))
    
19.     (if        (= "TEXT" (get_dxf en 0))
    
20.       (progn
    
21.         (setq num  (vl-registry-read reg "sjbhx")
    
22.               num1 (getint (strcat "\n输入新编号<" num ">："))
    
23.         )
    
24.         (if num1
    
25.           (setq num (changenum num1))
    
26.           (setq num num)
    
27.         )
    
28.         (vla-put-textstring (vlax-ename->vla-object en) num)
    
29.         (vl-registry-write reg "sjbhx" (changenum (1+ (read num))))
    
30.       )
    
31.     )
    
32.   )
    
33. )
    

;;;by x_s_s_1@163.com<br /> ;;;注册表数据存于"HKEY_CURRENT_USER\\Software\\Autodesk\\sjbhx"如有需要自行删除<br /> ;;;如杀毒软件，管理员权限等限制无法读写注册表请自行处理<br /> (defun c:sjbhx (/ get_dxf changenum en reg num num1)<br />   (vl-load-com)<br />   (defun get_dxf (en num /) (cdr (assoc num (entget en))))<br />   (defun changenum (num /)<br />     (cond ((< num 10) (strcat "00" (itoa num)))<br />           ((and (> num 9) (< num 100)) (strcat "0" (itoa num)))<br />           ((> num 99) (itoa num))<br />     )<br />   )<br />   (setq reg "HKEY_CURRENT_USER\\Software\\Autodesk\\sjbhx")<br />   (if (null (vl-registry-read reg "sjbhx"))<br />     (vl-registry-write reg "sjbhx" "000")<br />   )<br />   (while (setq en (car (entsel "\n拾取编号：")))<br />     (if        (= "TEXT" (get_dxf en 0))<br />       (progn<br />         (setq num  (vl-registry-read reg "sjbhx")<br />               num1 (getint (strcat "\n输入新编号<" num ">："))<br />         )<br />         (if num1<br />           (setq num (changenum num1))<br />           (setq num num)<br />         )<br />         (vla-put-textstring (vlax-ename->vla-object en) num)<br />         (vl-registry-write reg "sjbhx" (changenum (1+ (read num))))<br />       )<br />     )<br />   )<br /> )<br />

shikey

没有明B，楼主发个免费的可好

caogis

一般编号不在同一张图里吧

fangseng

化一个B买了，结果，“命令: SJBH ; 错误: 参数类型错误: FILE nil”，楼主是不是一个骗子？？？？？为什么 很多人都说有问题，楼主为什么不解答？？？

xxxx223

fangseng 发表于 2020-1-13 19:20
化一个B买了，结果，“命令: SJBH ; 错误: 参数类型错误: FILE nil”，楼主是不是一个骗子？？？？？为什么 ...

你是不是没下他那个txt。。

860047567

如果能在指定的文字前编号，就更加完美了

chenbh2

860047567 发表于 2020-11-27 00:27
如果能在指定的文字前编号，就更加完美了

现在可以，那是我之前的！

ywx2020

程序代码呢？