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

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

本帖最后由 作者 于 2009-3-30 10:15:16 编辑

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

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

本帖最后由 作者 于 2009-3-30 8:04:47 编辑


;;未詳細測試
(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:16

测试有用 就是差个批量的

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

没人帮解决呢?

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

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

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

<p>已解锁。</p>

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

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

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

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

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

<strong><font face="Verdana" color="#da2549">龙龙仔</font></strong>,该出手时就出手吧,让大家学习一下.

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

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

userzhl 发表于 2009-3-27 16:29:00

8楼龙龙仔的程序确实好,但就是炸这个块后位置会变,帮忙看看,能否再改进?
页: [1] 2
查看完整版本: [求助]十万火急,哪位高手帮下忙,文件加密成多重匿名块了(已解决)?