userzhl 发表于 2009-3-26 19:39:00

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

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

龙龙仔 发表于 2009-3-27 15:18:00


;;未詳細測試
(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 发表于 2022-7-18 18:25:00

测试有用 就是差个批量的

userzhl 发表于 2009-3-26 20:55:00

没人帮解决呢?

userzhl 发表于 2009-3-26 21:48:00

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

ayunger 发表于 2009-3-27 11:32:00

已解锁。

userzhl 发表于 2009-3-27 12:27:00

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

龙龙仔 发表于 2009-3-27 14:11:00

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

userzhl 发表于 2009-3-27 14:53:00

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

znchssy 发表于 2009-3-27 16:19:00

楼上各位，那位有匿名块转有名块的lsp程序，帮帮啊
页: [1] 2
查看完整版本: [求助]十万火急,哪位高手帮下忙,文件加密成多重匿名块了(已解决)?