Anuncios

The Autodesk Community Forums has a new look. Read more about what's changed on the Community Announcements board.

Anonymous
en respuesta a: Anonymous

I found a lisp routine (by Fenton Webb) with an internet search that seems to work, I was able to use it to rename the block to "TESTBLOCK" Now it will open in block editor. Replace "TESTBLOCK" with whatever name you want. Suggest you try renaming your original name for that block with "old" at the end, then you should be able to use this to rename the offending block to whatever you called it before it "broke". Hope it helps. "Fixed" block attached.

 


(defun c:any_blk ()
 (vl-load-com)
 (setq a_app  (VLAX-GET-ACAD-OBJECT)
    a_doc  (vla-get-ActiveDocument a_app)
    a_blks (vla-get-blocks a_doc)
    blk    (vla-add a_blks (vlax-3d-point '(0 0 0)) "*T")
 )
 (vla-addcircle blk (vlax-3d-point '(0 0 0)) 3)
)

(defun c:ren_blk ()
 (vl-load-com)
 (setq a_app  (VLAX-GET-ACAD-OBJECT)
    a_doc  (vla-get-ActiveDocument a_app)
    a_blks (vla-get-blocks a_doc)
    blk    (vla-item a_blks "*U0")
)
 (vla-put-name blk "TESTBLOCK")
)