[源码]图块全部重命名

cabinsummer

1. (setvar "cmdecho" 0)
   
2. 
   
3. (defun renameblock (blocklist / n time newname oldname)
   
4.   (setq n 0)
   
5.   (setq time (rtos (getvar "cdate") 2 4))
   
6.   (repeat (length blocklist)
   
7.     (setq newname (strcat time "-" (itoa n)))
   
8.     (setq oldname (nth n blocklist))
   
9.     (command "rename" "b" oldname newname)
   
10.     (setq n (1+ n))
    
11.   )
    
12. )
    
13. 
    
14. (defun getblocklist (/ isblock blocklist)
    
15.   (if (setq isblock (tblnext "block" t))
    
16.     (progn
    
17.       (setq blocklist (list (cdr (assoc 2 isblock))))
    
18.       (while (setq isblock (tblnext "block"))
    
19.         (setq blocklist (append blocklist (list (cdr (assoc 2 isblock)))))
    
20.       )
    
21.     )
    
22.   )
    
23.   blocklist
    
24. )
    
25. 
    
26. (renameblock blocklist)
    
27. (command "point" '(0 0 0))
    
28. (command "erase" (entlast) "")
    
29. (command "qsave" "y")

(setvar "cmdecho" 0)<br /> <br /> (defun renameblock (blocklist / n time newname oldname)<br />   (setq n 0)<br />   (setq time (rtos (getvar "cdate") 2 4))<br />   (repeat (length blocklist)<br />     (setq newname (strcat time "-" (itoa n)))<br />     (setq oldname (nth n blocklist))<br />     (command "rename" "b" oldname newname)<br />     (setq n (1+ n))<br />   )<br /> )<br /> <br /> (defun getblocklist (/ isblock blocklist)<br />   (if (setq isblock (tblnext "block" t))<br />     (progn<br />       (setq blocklist (list (cdr (assoc 2 isblock))))<br />       (while (setq isblock (tblnext "block"))<br />         (setq blocklist (append blocklist (list (cdr (assoc 2 isblock)))))<br />       )<br />     )<br />   )<br />   blocklist<br /> )<br /> <br /> (renameblock blocklist)<br /> (command "point" '(0 0 0))<br /> (command "erase" (entlast) "")<br /> (command "qsave" "y")

wozho2chen

沙发~~支持楼主!!

trjrtj

顶楼主！！！

jicqj

哈哈 谢谢风老哥

lizhiqiang9801

多谢楼主分享

lizhiqiang9801

楼主用什么命令啊

cabinsummer

lizhiqiang9801 发表于 2011-11-29 08:49
楼主用什么命令啊

你不会看不懂LISP吧？你可以自定义命令。直接将文本复制到命令行即完成操作。

lizhiqiang9801

看不懂LISP   还是不会做  看了一上午也没弄明白 请楼主指点一下

cabinsummer

lizhiqiang9801 发表于 2011-11-30 10:02
看不懂LISP   还是不会做  看了一上午也没弄明白 请楼主指点一下

你不会LISP，那就没办法了。先打基础吧

friendship12c

回复看看是神马东东！！...