[密技]：匿名图块转一般图块

LUCAS

匿名图块转一般图块(只在R2005测试)
1.把匿名图块名称改为一般图块名称
2.再修复图面即可

andyhua5240

龙龙仔，没有东东呀！

LUCAS

2. 
   
3. ;;你要什么东东----,程序吗?我想那么简单就留给网友自己写!  8-)
   
4. ;;匿名图块转一般图块
   
5. (defun C:NN_TO_N (/ A BLK OBJ)
   
6.   (setq OBJ (vlax-ename->vla-object (car (entsel))))
   
7.   (setq
   
8.     BLK        (vla-item (vla-get-blocks
   
9.                     (vla-get-activedocument (vlax-get-acad-object))
   
10.                   )
    
11.                   (vla-get-name OBJ)
    
12.         )
    
13.   )
    
14.   (vla-put-name BLK (setq A (rtos (* (getvar "CDATE") 1E8))))
    
15.   (vla-auditinfo
    
16.     (vla-get-activedocument (vlax-get-acad-object))
    
17.     :vlax-true
    
18.   )
    
19.   (vla-put-name BLK A)
    
20.   (princ)
    
21. )
    

<br /> ;;你要什么东东----,程序吗?我想那么简单就留给网友自己写!  8-)<br /> ;;匿名图块转一般图块<br /> (defun C:NN_TO_N (/ A BLK OBJ)<br />   (setq OBJ (vlax-ename->vla-object (car (entsel))))<br />   (setq<br />     BLK        (vla-item (vla-get-blocks<br />                     (vla-get-activedocument (vlax-get-acad-object))<br />                   )<br />                   (vla-get-name OBJ)<br />         )<br />   )<br />   (vla-put-name BLK (setq A (rtos (* (getvar "CDATE") 1E8))))<br />   (vla-auditinfo<br />     (vla-get-activedocument (vlax-get-acad-object))<br />     :vlax-true<br />   )<br />   (vla-put-name BLK A)<br />   (princ)<br /> )<br />

andyhua5240

哇噻，斑竹真是超强，请问一句，程序将无名块转换为普通块，的块名，是不是根据计算机的系统时间取的？程序只能点选，能否支持窗选？
(getvar "CDATE")
谢谢！

LUCAS

当然可以支持窗选,但程序要重写,要留想法给别人写......

andyhua5240

呵呵，我要把帖子顶上去，我是写不出来的，以求高手来解决这个问题？
一直顶到有人来写、顶死为止！

xyp1964

不是匿名的也给转了！
似乎就是一个rename命令的功能。

eachy

利用CAD的纠错功能，想法独特

andyhua5240

大侠们，高手们，斑竹们：
    能不能写一个批量将无名块转换为普通块的lisp呀？
跪求了！谢谢！

whfdchst

下不了啊！

LUCAS

最初由 andyhua5240 发布
[B]大侠们，高手们，斑竹们：
    能不能写一个批量将无名块转换为普通块的lisp呀？
跪求了！谢谢！ [/B]

提供你一个vlx档

andyhua5240

谢谢龙龙仔，经典的东东，绝对收藏！

czg09180274

为了方便图形的后续编辑，我在程序中也使用了很多无名块，但我想在作图完成后，把它们全部分解，有没有简单快捷的方法？请多多指教。
先谢过了。

雨箭风刀

；；匿名图块转一般图块；
；；cad2004,2006下面可不核查，直接改名成功
[php]
(defun c:reblk(/ blks ss n e nam namlst)----by 雨箭风刀 2006.2
  (setq BLKs (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
  (if (setq ss (ssget '((0 . "INSERT")(2 . "`**"))))
      (repeat (setq n (sslength ss))
        (if (and (setq e (ssname ss (setq n (1- n))))
                 (wcmatch (setq nam (vla-get-name (vlax-ename->vla-object e))) "`**")
                 (not (member nam namlst)))
          (progn (setq namlst (cons nam namlst))
            (vla-put-name (vla-item blks nam) (rtos (* (getvar "CDATE") 1E8)))
          )
        )
      )
  )(princ)
)
[/php]
lucas,需要核查的是怎么个情况？

LUCAS

http://www.xdcad.net/forum/showt ... y=&pagenumber=1

http://www.xdcad.net/forum/showt ... d=781787#post781787