[求助]十万火急,哪位高手帮下忙,文件加密成多重匿名块了(已解决)?

userzhl

[求助]十万火急,哪位高手帮下忙,文件加密成多重匿名块了,我试尽了所有办法,转成DXF或用转成非多重块的功能,还是炸不开,哪位高手帮帮忙?

龙龙仔

3. ;;未詳細測試
4. (defun C:TT (/ A B DOC E OBJ_A)
5.   (setq DOC (vla-get-activedocument (vlax-get-acad-object)))
6.   (setq E (nentselp "\nSelect block:"));;要點綠色文字
7.   (setq A (car E))
8.   (setq OBJ_A (vlax-ename->vla-object A))
9.   (setq B (vla-objectidtoobject DOC (vla-get-ownerid OBJ_A)))
10.   (entmake (list '(0 . "INSERT")
11.    '(100 . "AcDbBlockReference")
12.    (cons 2 (vla-get-name B))
13.    (assoc 10 (entget A))
14.    '(41 . 1.0)
15.     )
16.   )
17.   (command "_.explode" (entlast))
18.   (command "_.erase" (last (last E)) "")
19. )

;;未詳細測試 (defun C:TT (/ A B DOC E OBJ_A)   (setq DOC (vla-get-activedocument (vlax-get-acad-object)))   (setq E (nentselp "\nSelect block:"));;要點綠色文字   (setq A (car E))   (setq OBJ_A (vlax-ename->vla-object A))   (setq B (vla-objectidtoobject DOC (vla-get-ownerid OBJ_A)))   (entmake (list '(0 . "INSERT")    '(100 . "AcDbBlockReference")    (cons 2 (vla-get-name B))    (assoc 10 (entget A))    '(41 . 1.0)     )   )   (command "_.explode" (entlast))   (command "_.erase" (last (last E)) "") )

nijiea123

测试有用 就是差个批量的

userzhl

没人帮解决呢?

userzhl

我把这个匿名块转成有名块后,编辑图块,复制出来还是匿名块,试了十几次还是这样,见鬼了,到底是不是有很多层?

ayunger

已解锁。

userzhl

我昨晚也解锁了,但要解好多次才行.楼上用什么工具能一次到位吗?

龙龙仔

把所有匿名块改回有名塊,再插入原始圖塊即可

userzhl

龙龙仔,该出手时就出手吧,让大家学习一下.

znchssy

楼上各位，那位有匿名块转有名块的lsp程序，帮帮啊

userzhl

8楼龙龙仔的程序确实好,但就是炸这个块后位置会变,帮忙看看,能否再改进?