[分享]：匿名块minsert插入的解决办法

david96007

论坛中有采用匿名块minsert插入的办法对图形进行加锁,其实解锁也不难!

利用程序重新插入匿名块,然后炸开就行了!

2. (defun c:tt ()
   
3.   (setq nam (cdr (assoc 2 (entget (car (entsel))))))
   
4.   (setq pt '(0 0 0))
   
5.   (entmake (list '(0 . "INSERT")
   
6.                  (CONS '100 "AcDbBlockrefence")
   
7.                  (CONS '70 0)
   
8.                  (CONS '71 0)
   
9.                  (cons '2 nam)
   
10.                  (cons '10 pt)
    
11.            )
    
12.   )
    
13.   (setq entl (entlast))
    
14.   (command "_explode" entl)
    
15.   (setq entl (entlast))
    
16.   (command "_explode" entl)
    
17. )

(defun c:tt ()<br />   (setq nam (cdr (assoc 2 (entget (car (entsel))))))<br />   (setq pt '(0 0 0))<br />   (entmake (list '(0 . "INSERT")<br />                  (CONS '100 "AcDbBlockrefence")<br />                  (CONS '70 0)<br />                  (CONS '71 0)<br />                  (cons '2 nam)<br />                  (cons '10 pt)<br />            )<br />   )<br />   (setq entl (entlast))<br />   (command "_explode" entl)<br />   (setq entl (entlast))<br />   (command "_explode" entl)<br /> )

啵浪鼓

好像你的程序第一次点图块会提示nil,再复选一次才可
Command: tt
Select object:
The object is not able to be exploded.
None found.nil

david96007

这个程序是针对论坛里对图形加锁的程序写的，很不完善！
本来在其他板块发的，但不知是谁给我删了，并且不通知一声，让我气愤！

原程序把整各图作成匿名块，然后采用minsert插入，让人无法编辑！

我找到了可以编辑的方法，发的两各帖子居然都被删了！

删除帖子的人也不知是怎么想的！

啵浪鼓

可能有内幕,呵呵~

aeo

删除帖子是不可能的事情，除非你重复发贴.

david96007

重复法帖也应该留一个吧!