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

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

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

龙龙仔 · 发表于 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)) "")
)