[LISP程序]：minsert实体能不能编辑？

xiguao

以前从网上找到一个对dwg文件加锁的程序，运行后知道就是把文件实体变为minsert实体，不能炸开，也就不能修改了。
我做了个程序，将所有实体重新entmake，但这种方法不能遍历到所有实体，大家有没有更好的方法？

附修改程序：

(defun c:spin (wh)
  (prompt (strcat "\r "
                  wh
                  (cond        ((= sp "|") (setq sp "/"))
                        ((= sp "/") (setq sp "-"))
                        ((= sp "-") (setq sp "\\"))
                        (T (setq sp "|"))
                  )
          )
  )
  (princ)
)

(defun c:jis()
  (setq ent (car (nentsel)))
  (while ent
    (c:spin "UNLOCKing..")
    (setq ent1 (entget ent))
    (entmake ent1)
    (setq ent (entnext ent))
    (princ)
  )
)

marting

最初由 xiguao 发布
[B]以前从网上找到一个对dwg文件加锁的程序，运行后知道就是把文件实体变为minsert实体，不能炸开，也就不能修改了。
我做了个程序，将所有实体重新entmake，但这种方法不能遍历到所有实体，大家有没有更好的方法？

... [/B]

晓东工具箱提供了把MINSERT实体分解成单个的INSERT实体的工具，在菜单“图块”里面，可以参考下。

分解成单独的INSERT实体后，就可以炸开了。

你可以按照这个思路做，先把MINSERT变成单个的INSERT