关于无名块的疑问，请大家指点

walong

(defun mc-make-unname-block(ss / count entlist ent blk)
(entmake '((0 . "BLOCK")
(2 . "*U")
(70 . 1)
(10 0 0 0)
))
(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
) 上面的代码是明经站里的一个生成无名块的函数， 我想知道无块通常在什么场合下应用，在做粗糙度时有人用到无名块，我不明白这样做有什么好处，我用点坐标来制作粗糙度又会有什么区别？ 另外还请高人，帮我分析上面的代码，我有些看不明白，别笑话我！

meflying

AutoCAD 创建无名块（也叫匿名块）来支持填充图案、关联标注和用 PSIN 输入的 PostScript 图像。AutoCAD 也可以为不能直接访问的对象创建无名块。不能用名称来插入无名块，但可以用 AutoLISP 创建它们。在 Visual LISP 开发人员手册里论述了如何用 Autolisp 创建无名块。——摘自帮助文件。


分析以上代码用来做什么呢？

BDYCAD

二樓, 好象無名塊在實際操作中用剪切后貼成塊的那些就生成的就是無名塊吧.

meflying

不对，这样产生的块是有名字的，而且还可以使用INSERT插入的，而无名块是不能用INSERT插入的

无痕

无名块的实际应用？

walong

我也想搞清无名块的实际应用？


至于分析是为了学习，搞清楚弄明白后才好有所应用.


还请版主们指点.