[求助]：怎样生成无名块？？？

fireplay

各位高手请多指教，我想得到很多不同的块，所以想以无名块的形式存储。

highflybird

R2006 提供了ConvertToAnonymousBlock 和 ConvertToStaticBlock的方法。

就是vla-ConvertToStaticBlock,把匿名块转化为普通块

    vla-ConvertToAnonymousBlock，把普通块转化为匿名块

又提供了IsDynamicBlock的属性，即动态块的属性。

如果是R2006以下版本，可以在明经通道论坛搜索以下，关于匿名块，（或者无名块）的讨论贴有好几篇。本论坛也有好几篇。

fireplay

(defun c:cb ()
  (setq pt (getpoint "\n插入点： "))
  (entmake
    (list '(0 . "BLOCK") '(2 . "*U") '(70 . 1) (cons 10 pt))
  )
  (prompt "\n选择实体")
  (setq        ss1 (ssget)
        i   (sslength ss1)
        n   (- 1)
  )
  (repeat i
    (entmake (cdr (entget (ssname ss1 (setq n (1+ n))))))
  )
  (setq num (entmake '((0 . "ENDBLK"))))
  (entmake (list '(0 . "INSERT") (cons 2 num) (cons 10 pt)))
  (command "erase" ss1 "")
  (princ)
)