[求助]：无名块

fylinwater

老论坛里讨论了很多无名块的帖子 但就是没有无名块的作用的答案
谁愿意讲讲？

cy956

不好用啊，特别是不便编辑....
方便啊，特别是块名自动定的...

明经通道

机械工程师软件就用到很多的无名块，它是当程序生成一个图形(如螺钉或其它时)就将它生成为无名块，这样可以避免用户随意编辑，在写程序上也可以不考虑去取什么块名好(有时候起个名字也很难)。

长清

最初由 fylinwater 发布
[B]老论坛里讨论了很多无名块的帖子 但就是没有无名块的作用的答案
谁愿意讲讲？ [/B]

优点：当无名块的引用（INSERT）被删除后，下一次打开本图形时块定义BLOCK被自动清除。
缺点：难操作，操作无名块（不是引用）好像都需要编程。

darksun1480

;;;;;;;;;;;;;;;;;创建无名图块;;;;;;;;;;;;;;;;;;;

(defun c:mb( / count entlist ent blk)
(command "_.Zoom" "e")
(setq n 0)
(repeat 999
  (setq n (+ n 1));(setq n  1)
  (setq ss (ssget "X"))
  (setq uuu (strcat "*z" (itoa n)))
  (entmake (list '(0 . "BLOCK")'(70 . 1)' (10 0 0 0) (cons '2  uuu)))
  (setq count 0)
  (repeat (sslength ss)
    (setq entlist(entget(setq ent(ssname ss  count))))
    (setq count (1+ count))
    (entmake entlist)
    )
  (setq count 0)
  (repeat(sslength ss)
    (setq ent(ssname ss count))
    (setq count (1+ count))
    (entdel ent)
    )
  (setq blk(entmake '((0 . "ENDBLK"))))
  (if (princ blk)
  (entmake (list (cons 0  "INSERT")
             (cons 2 blk)
             (cons 10 '(0 0 0))
             ))
    )
  blk
(setq uuu (strcat "`*z" (itoa n)))

  )
)

ll_j

请教各位高手，有办法将无名块改名吗？前两天讨论的图层无法Purge（R14）的问题，其实就是图总有无名块（真正无名，(2 . "")），我想如果能将此块改名，问题就解决了。

darksun1480

(defun c:me ()
(while ( = mm nil)
   (setq  ss (ssget "X")  )
   (setq  i  0 )
   (repeat (sslength ss)
      (setq ll (ssname ss i))
      (setq ee (entget ll))
      (setq ee_name (cdr (assoc 0 ee)))
         
      (if (and (/= ee_name "PLINE")(= ee_name "INSERT"))
          (command "explode" (ssname ss i) "")
          (setq mm t )
      )
      
      (setq i (1+ i))
    )
  )
  (setq mm nil)
)

darksun1480

(setvar "QAFLAGS" 1)  
;qaflags没有公开过。可能以后版本没有支持。最好遍历选择集，一个一个地炸。
; 我理解:explode运行后，ss集有变化，可以..
;老菜说

eachy

快速作块（包括匿名块）

1. 
   
2. xdrx_block_make
   
3. 
   
4. 功    能：给定选择集创建块或者匿名块
   
5. 
   
6. 调用格式：(xdrx_block_make <"块名"> <选择集> pt  [转换INSERT标记])
   
7. 
   
8. 返 回 值：块名
   
9. 
   
10. 说    明：1、建立匿名块，块名用 "*"
    
11.           2、参数[转换INSERT标记]若给T,则删除选择集，转换成INSERT
    
12.              不给参数，仅仅建立BLOCK，不建立INSERT
    
13.           3、pt 插入点
    

复制代码

cqnj023

最初由 ll_j 发布
[B]请教各位高手，有办法将无名块改名吗？前两天讨论的图层无法Purge（R14）的问题，其实就是图总有无名块（真正无名，(2 . "")），我想如果能将此块改名，问题就解决了。 [/B]

使用rename，然后旧名称用*代替，新名称用自定义的即可，执行后回提示重名错误，不用管，其实这是已经该名了，若图中有多个你所说的无名块，重复执行即可。

shisj

最初由 cqnj023 发布
[B][QUOTE]最初由 ll_j 发布
[B]请教各位高手，有办法将无名块改名吗？前两天讨论的图层无法Purge（R14）的问题，其实就是图总有无名块（真正无名，(2 . "")），我想如果能将此块改名，问题就解决了。 [/B][/QU... [/B]

不行啊，进入不到下一步

maoding

求教无名块的作用及定义

橄榄滋味

5楼方法可以快速创建无名块，这种无名块实际上是有名字的，*u1,*u2,*u3等，但是为什么它跟有名块有很大的不同。1 鼠标双击它不会显示出名字，2 用rename时本图中找不到它，3 也就不能根据名称来统计这种同一个无名块的个数。能改进吗

ll_j

最初由 橄榄滋味 发布
[B]5楼方法可以快速创建无名块，这种无名块实际上是有名字的，*u1,*u2,*u3等，但是为什么它跟有名块有很大的不同。1 鼠标双击它不会显示出名字，2 用rename时本图中找不到它，3 也就不能根据名称来统计这种同一个无名块...能改进吗 [/B]

我在http://xdcad.net/forum/showthrea ... pagenumber=1&s=贴出的程序是可以将图中能够选择的无名块（应该称“匿名块”）“改名”的。

橄榄滋味

我知道你的程序可以改名，可是我的目的不是要改名而是要象正常的块一样，1 鼠标双击它会显示出名字，2 用rename时本图中能找到它，3 能根据名称来统计这种同一个无名块的个数。实际上在我的使用中，我并不是一定要无名块不可，我要无名块的目的只是我在创建块时不要老是跟我要名字就行，我讨厌跟我要名字，而且还不能重复，很烦人的，我只想创建为块，不想管它姓什么和叫什么。请黄金长老帮忙