[求助]：请cdhua01斑竹解答，无名块的编辑。

jobpenn

俺有一张图，想直接双击修改某块的内容，可发现是个无名块，不能编辑，此块在图上有100多处，且散在于图纸上各个地方，重新做块插入工程量巨大，敬请良策！！

cdhua001

你注册这么久了，不会不知道我对编程一点都不懂吧？*-*7

♂笨笨♀

斑竹是不是在踢皮球

AUDIT可以修复无名块，它会给你的无名块赋名的，再……你知道了

jobpenn

audit修复了，没啥用，还是不能编辑，用list查了块，块名为*0，可双击时还是显示为无名块，不能编辑。

♂笨笨♀

传一部分图上来，会有答案的。。。

jobpenn

是日文图，笨笨的cad能看吗？

♂笨笨♀

最初由 jobpenn 发布
[B]是日文图，笨笨的cad能看吗？ [/B]

笨笨不能看日文。

我要你上传文件，是可以让其它朋友来为你分析，找到解决办法。
我只会AUDIT，如果这个不行，我也没招了。

cdhua001

将你的日文图传上来吧。
柔柔懂日文，他也是编制无名块的高手，正好可以解决你的问题。

ll_j

今天试着将无名块改名，可惜没有成功，只好“曲径通幽”，使用块替换达到改名目的，程序对无名块及正常块都有效，只是无法清除替换出来的无用块名。
匆忙完成，使用时注意先存盘，以防有不良结果。
[php];;;块更名（替换）程序。By LL_J for XDCAD

(defun rb_main()
  (setq on (cdr (assoc 2 en))
        en (tblobjname "BLOCK" on)
  )
  (entmake (list '(0 . "BLOCK") '(70 . 0) (assoc 10 (entget en)) (cons 2 str)))
  (while (setq nen (entnext en))
    (entmake (entget nen))
    (setq en nen)
  )
  (setq blk (entmake '((0 . "ENDBLK"))))
;;;
  (setq iset (ssget "X" (list '(0 . "INSERT")))
        slen (sslength iset)
        iise (ssadd)
        i -1
  )
  (repeat slen
    (setq i (1+ i)
          en(ssname iset i)
    )
    (if (= (cdr (assoc 2 (entget en))) on) (ssadd en iise))
  )
  (setq slen (sslength iise)
        i -1
  )
  (repeat slen
    (setq i (1+ i)
          en(entget (ssname iise i))
          en(subst (cons 2 str) (assoc 2 en) en)
    )
    (entmod en)
  )
  (princ (strcat "\n块 " on " 被更名为 " str " ，共 " (itoa (+ i 1)) " 个块被替换。"))

)

(defun rb_select()
  (initget " ")
  (setq en (entsel "\n拾取需要改名的块: "))
  (cond
    ((= en "") (rb_nos))
    ((and (= (type en) 'LIST) (= (cdr (assoc 0 (entget (car en)))) "INSERT"))
     (setq en (entget (car en)))
    )
    (t (rb_select))
  )
)

(defun rb_nname()
  (setq str (getstring "\n输入新块名（回车退出）: "))
  (if (tblsearch "BLOCK" str)
    (progn
      (princ (strcat "\n块 " str " 已存在，重新输入："))
      (rb_nname)
    )
  )
)

(defun rb_nos()
  (setq en nil)
  (princ "\n没有选择块。")
)

(defun c:renameblk(/ on en nen blk iset iise slen i str)
  (command "color" "")
  (rb_select)
  (if en
    (progn
      (rb_nname)
      (if (/= str "") (rb_main))
    )
  )
  (princ)
)

(princ "\n块更名（替换）程序。命令：renameblk")
[/php]

♂笨笨♀

*-*8

请教ll_j：
我记得AUDIT可以修复无名块的，它可以给无名块赋名的，所以我贴了第3贴，结果不是我想像的那样。。。
这无名块怎么产生的，不能编辑它的原因究竟是什么？
*-*4 *-*4 *-*4

柔柔

最初由 cdhua001 发布
[B]柔柔...他也是编制无名块的高手[/B]

瞎讲，我能制作无名块，但坚决反对制作无名块！
我能编形文件，但坚决反对用户自己编制！
修改字体文件也马马虎虎能对付，同样也反对用户自己修改！呵呵。。。

cqnj023

AUDIT可以修复真正的“无名”块，而不是修复匿名块，上面说的是匿名块

柔柔

对，这个是匿名块，制作十分简单，用在捉弄人上就不好了。
贴出Flash，是想说明：我反对的事并非自己做不到，所谓“吃不到葡萄说葡萄酸”。*-*7 *-*7 *-*7 *-*7 *-*7

♂笨笨♀

最初由 cqnj023 发布
[B]AUDIT可以修复真正的“无名”块，而不是修复匿名块，上面说的是匿名块 [/B]

*-*6 *-*6 *-*8
笨笨不懂这些啊，这里有这些不明白：什么是无名块与匿名块？它们有什么区别？它们怎么产生的？不能编辑这个块的真正原因是什么？柔柔演示的是无名块还是匿名块？
从楼主的帖子怎么能判断他不能编辑的那个块是什么块？

*-*4 *-*4 *-*4

eachy

用audit修复的“无名”块属于图形错误，匿名块不是没有名称，只不过名称又CAD自动管理了，还是有名称的。
http://discussion.autodesk.com/thread.jspa?threadID=349528
[iframe h=600]http://discussion.autodesk.com/thread.jspa?threadID=349528[/iframe]