[求助]：理正建筑能否将无名块转换为普通块？

andyhua5240

如图！
今天有个同事拿个图过来让我来做，真是难倒我了？
没有办法只有上网求助了！
谢谢！

andyhua5240

附件在这里，欢迎下载！

Qun

如果炸开你的无名块，再用【做块处理】将其做成随机名块，就应该可以在位编辑了。增加将“无名块变成随机名块”的功能没问题，但要你的无名块是怎么来的，是不是有普遍意义？

l19811102

无名块不能炸开啊……
处理无名块主要是在利用一些所谓“加密”的图纸的时候。

Qun

无名块当然可以炸开，我不知道“加密”图纸是什么？

andyhua5240

最初由 Qun 发布
[B]如果炸开你的无名块，再用【做块处理】将其做成随机名块，就应该可以在位编辑了。增加将“无名块变成随机名块”的功能没问题，但要你的无名块是怎么来的，是不是有普遍意义？ [/B]

QUN哥哥，这个话就说不定了？
炸开无名块，做成随机块？如果这个无名块的量多怎么办？难道做成随机块后，再用块替换块吗？如果块的插入的基点不一样的话，替换的块的位置会有问题的？
我这个图是人家给我们做的，传过来的时候就有无名块了？不知道怎么办好？
如果QUN可以办到的话，请求尽量的加上这个功能，毕竟还是有用到的时候，也许不具有普遍的意义，但是如果一旦遇到的话，就没有办法？我现在的做法是手动的一个个换掉那个该死的无名块！
谢谢！

eachy

不是最好的，对含属性的块有问题。

2. 
   
3. (defun c:tt (/ e pt ss)
   
4.   (if (and (setq e (car (entsel "\nSelect Block: ")))
   
5.            (wcmatch (cdr (assoc 2 (setq el (entget e)))) "`**")
   
6.       )
   
7.     (progn
   
8.       (setq pt (cdr (assoc 10 el)))
   
9.       (command ".select" e "")
   
10.       (command ".explode" e)
    
11.       (setq ss (ssget "_P"))
    
12.       (command ".copybase" pt ss "")
    
13.       (command ".pasteblock" pt)
    
14.       (command ".erase" ss "")
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )
    

<br /> (defun c:tt (/ e pt ss)<br />   (if (and (setq e (car (entsel "\nSelect Block: ")))<br />            (wcmatch (cdr (assoc 2 (setq el (entget e)))) "`**")<br />       )<br />     (progn<br />       (setq pt (cdr (assoc 10 el)))<br />       (command ".select" e "")<br />       (command ".explode" e)<br />       (setq ss (ssget "_P"))<br />       (command ".copybase" pt ss "")<br />       (command ".pasteblock" pt)<br />       (command ".erase" ss "")<br />     )<br />   )<br />   (princ)<br /> )<br />

海豚

每次只能改一个无名块，即使有好多个同样名字的无名块也不能一起处理。请问版主是否能改进。

archiren

有minsert做的块，据说有反制程序。小东里面找找。

eachy

前几天刚好遇到双击编辑图块，结果发现开始做的是匿名块，只好Explode了，痛定思痛，这个程序偶尔还是会派上用场。

命令： Ea:tonb
功能：匿名块转有名块，可以输入名称或自动赋名