修改块名lisp

edata

刚弄完的修改块名lisp

1. ;1、对选择的块逐一更名。
   
2. ;2、修改块时可以放大图块。
   
3. ;3、出错函数处理，不影响其他lisp的出错函数。
   
4. ;4、修改时间 2011-6-15
   
5. ;5、命令 rb
   
6. (defun c:rb (/ en n i een na naa ens1 )
   
7.    (setq *error*_sk0 *error*)    ;保存出错处理函数
   
8. (setq *error* *error*_sk1)
   
9.   (if (= (getvar "cmdecho") 1) (setvar "cmdecho" 0))
   
10.   (setq sk_flagrb1 "e")
    
11.   (setq en (ssget '((0 . "INSERT")))
    
12.    i 0)
    
13.   (if (and en (= (type en) 'PICKSET))
    
14.     (progn
    
15.     (setq n (sslength en))
    
16.     (princ (strcat "\n已选择了"(rtos n)"个块!"))
    
17.   (repeat n
    
18.     (setq een (entget (setq ens1 (ssname en i))) na (cdr (assoc 2 een)) i (+ i 1))
    
19.     (command "zoom" "o" ens1 "")
    
20.     (setq sk_flagrb1 "be")
    
21.     (prompt (strcat "\n原块名为:" na))(terpri)
    
22.     (setq naa (getstring "\n请输入新块名[回车就不修改]:"))
    
23.     (if (= naa "")()
    
24.       (progn
    
25.   (command "rename" "b" na naa)
    
26.       )
    
27.     )
    
28.     (command "zoom" "p")
    
29.   )
    
30.     (setq sk_flagrb1 "e")
    
31.     (setvar "cmdecho" 1)
    
32.     ))
    
33.   (princ)
    
34. )
    
35. ;出错函数
    
36. ;来自明经通道
    
37. (defun *error*_sk1 (msg)
    
38.   (if (= (getvar "cmdecho") 1) (setvar "cmdecho" 0))
    
39.   (if (wcmatch (strcase msg t) "*break,*cancel*,*exit*,*取消*")
    
40.     (if  (= (getvar "LOCALE") "CHS")
    
41.       (princ "\n用户按了<Esc>强制退出")
    
42.       (princ "\nYou cancelled The operation!")
    
43.     )
    
44.    
    
45.     (princ (strcat "\n" msg))
    
46.   )
    
47.   (terpri)
    
48.   (vla-EndUndoMark      ;回退
    
49.     (vla-get-ActiveDocument (vlax-get-acad-object))
    
50.   )
    
51.   
    
52.   (if (= sk_flagrb1 "be") (command "zoom" "p"))
    
53.   (setvar "cmdecho" 1)
    
54.   (setq *error* *error*_sk0)
    
55.   (princ)
    
56. )
    

;1、对选择的块逐一更名。<br /> ;2、修改块时可以放大图块。<br /> ;3、出错函数处理，不影响其他lisp的出错函数。<br /> ;4、修改时间 2011-6-15<br /> ;5、命令 rb<br /> (defun c:rb (/ en n i een na naa ens1 )<br />    (setq *error*_sk0 *error*)    ;保存出错处理函数<br /> (setq *error* *error*_sk1)<br />   (if (= (getvar "cmdecho") 1) (setvar "cmdecho" 0))<br />   (setq sk_flagrb1 "e")<br />   (setq en (ssget '((0 . "INSERT")))<br />    i 0)<br />   (if (and en (= (type en) 'PICKSET))<br />     (progn<br />     (setq n (sslength en))<br />     (princ (strcat "\n已选择了"(rtos n)"个块!"))<br />   (repeat n<br />     (setq een (entget (setq ens1 (ssname en i))) na (cdr (assoc 2 een)) i (+ i 1))<br />     (command "zoom" "o" ens1 "")<br />     (setq sk_flagrb1 "be")<br />     (prompt (strcat "\n原块名为:" na))(terpri)<br />     (setq naa (getstring "\n请输入新块名[回车就不修改]:"))<br />     (if (= naa "")()<br />       (progn<br />   (command "rename" "b" na naa)<br />       )<br />     )<br />     (command "zoom" "p")<br />   )<br />     (setq sk_flagrb1 "e")<br />     (setvar "cmdecho" 1)<br />     ))<br />   (princ)<br /> )<br /> ;出错函数<br /> ;来自明经通道<br /> (defun *error*_sk1 (msg)<br />   (if (= (getvar "cmdecho") 1) (setvar "cmdecho" 0))<br />   (if (wcmatch (strcase msg t) "*break,*cancel*,*exit*,*取消*")<br />     (if  (= (getvar "LOCALE") "CHS")<br />       (princ "\n用户按了<Esc>强制退出")<br />       (princ "\nYou cancelled The operation!")<br />     )<br />     <br />     (princ (strcat "\n" msg))<br />   )<br />   (terpri)<br />   (vla-EndUndoMark      ;回退<br />     (vla-get-ActiveDocument (vlax-get-acad-object))<br />   )<br />   <br />   (if (= sk_flagrb1 "be") (command "zoom" "p"))<br />   (setvar "cmdecho" 1)<br />   (setq *error* *error*_sk0)<br />   (princ)<br /> )<br />

daidong013

坐沙发！~~支持楼主！~~

LLXXZZ

！~~支持楼主！~~

caoteddy

支持，学习。

啵浪鼓

难得一见的楼猪，支持楼猪，顶楼猪！

啵浪鼓

建议如下:
1, 竟然是多选，那么同一图块就一次性处理，而不是选择几个"X1"块就重复几次的"X1"块的改名或是无谓的回车
2, 或者: 竟然是多选，同一块名将所选到的"X1"块改成新名，未选到的"X1"块仍然保留？
3, "zoom"后再缩小"0.7x"便于观看，另"zoom" "o"的命令对cad2005之前的版本是无效的
4, 选择的块如果都在一起时，不能很直观的看到当前修改的块是哪个图元, "zoom" "o"后增加个效果线来美化下: grvecs  在图形屏幕上绘制多个矢量
5, 未选择时,程序最后加一句("command" "REDRAW")可抑制命令条上多一个空的命令的显示
命令:  RB
选择对象:
命令:

chengx2000

变量“sk_flagrb1”看不出有多大的作用。。。。

edata

回复 啵浪鼓 的帖子

1、对于选择对象的重复处理是我没考虑到。呵呵。
主要我是图库归总重命名，一个块只有一个。
2、如果要实现你说的第二功能，程序完全不一样了，可以考虑。
3、zoom用是是06的自动。不然就只能自己写zoom了。
4、绘制屏幕矢量线，我考虑了，还没完成。

edata

回复 chengx2000 的帖子

这个是我想用来改变出错处理函数部分的命令是否执行。如果zoom没有执行放大处理，在出错还原的时候就不必返回上一个视口了。基本是实现了这个功能。。

preone

请问， 用组码 2 为啥 改不了块名？~~