cabinsummer 发表于 2011-11-25 00:14:26

[源码]图块全部重命名

本帖最后由 cabinsummer 于 2016-12-24 15:10 编辑

(setvar "cmdecho" 0)

(defun renameblock (blocklist / n time newname oldname)
(setq n 0)
(setq time (rtos (getvar "cdate") 2 4))
(repeat (length blocklist)
    (setq newname (strcat time "-" (itoa n)))
    (setq oldname (nth n blocklist))
    (command "rename" "b" oldname newname)
    (setq n (1+ n))
)
)

(defun getblocklist (/ isblock blocklist)
(if (setq isblock (tblnext "block" t))
    (progn
      (setq blocklist (list (cdr (assoc 2 isblock))))
      (while (setq isblock (tblnext "block"))
      (setq blocklist (append blocklist (list (cdr (assoc 2 isblock)))))
      )
    )
)
blocklist
)

(renameblock blocklist)
(command "point" '(0 0 0))
(command "erase" (entlast) "")
(command "qsave" "y")

wozho2chen 发表于 2011-11-25 05:33:04

沙发~~支持楼主!!

trjrtj 发表于 2011-11-26 22:59:25

顶楼主！！！

jicqj 发表于 2011-11-27 10:13:16

本帖最后由 jicqj 于 2011-11-30 14:53 编辑

哈哈 谢谢风老哥

lizhiqiang9801 发表于 2011-11-28 16:05:06

多谢楼主分享

lizhiqiang9801 发表于 2011-11-29 08:49:39

楼主用什么命令啊

cabinsummer 发表于 2011-11-29 18:26:32

lizhiqiang9801 发表于 2011-11-29 08:49 static/image/common/back.gif
楼主用什么命令啊

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

lizhiqiang9801 发表于 2011-11-30 10:02:11

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

cabinsummer 发表于 2011-11-30 18:30:09

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

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

friendship12c 发表于 2014-4-14 13:42:19

回复看看是神马东东！！...
页: [1]
查看完整版本: [源码]图块全部重命名