Topic: Make a block un-purgable?

[roy_043]

Apart from inserting a reference (on a frozen layer) somewhere, is there a way to make a 'normal' fixed block un-purgable? Note: I am using BricsCAD.

[huiz]

Only if it is used in some way. Like on a frozen layer, on a layout, or as marker in an used dimstyle.

But if one really needs to strip the block, there is nothing to do about.

[Drafter X]

make it invisible

[dgorsman]

make it invisible

Ugh, please NO.  Along with making the block attribute only with the attributes hidden, or making it dynamic with a visibility state with all graphics turned off, blocks that cannot be found follow the "out of sight, out of mind" principle.  They accumulate and before you know it, your drawings (and blocks) have thousands of inserts.

[fixo]

perhaps to add xdata to this block definition, just an idea

[Lee Mac]

As far as I was aware, to make an object truly 'unpurgable', you need to use a hard reference, however, I don't believe such a reference can be created using AutoLISP / Visual LISP.

[trogg]

What about this?: http://www.theswamp.org/index.php?topic=10978.msg139130#msg139130
We used it in a "seed" file at work instead of using a template to make a text and dim style available. It worked quite well.
(we used the routine provided by madcadder)
~Greg

[kruuger]

Apart from inserting a reference (on a frozen layer) somewhere, is there a way to make a 'normal' fixed block un-purgable? Note: I am using BricsCAD.

if you have a company title block border in your drawing (for example at layout) just add your block to border with small scale x=y=z=0.00001

Referring to trogg link. try to delete layers from this drawing (small puzzle autocad) 
k.

[ronjonp]

 

[kruuger]

i should rather say, try to purge.
what option/lisp to clean dwg ?
k.

[Lee Mac]

i should rather say, try to purge.
what option/lisp to clean dwg ?
k.

This is what I use:

Code: [Select]

(defun c:wba ( / dwg fnm tmp )
    (setq fnm
        (strcat
            (getvar 'dwgprefix)
            (cadr (fnsplitl (getvar 'dwgname)))
            "_wblock"
        )
    )
    (if (findfile (setq dwg (strcat fnm ".dwg")))
        (progn
            (setq tmp 1)
            (while (findfile (setq dwg (strcat fnm "(" (itoa (setq tmp (1+ tmp))) ").dwg"))))
        )
    )
    (command "_.wblock" dwg "*")
    (princ)
)

[Lee Mac]

Try to delete layers from this drawing (small puzzle autocad) 

Look what I found 

Code: [Select]

(mapcar 'print (entget (handent "9C28")))
Layers purgable after:

Code: [Select]

(dictremove (cdr (assoc 360 (entget (cdr (assoc 330 (entget (tblobjname "LAYER" "0"))))))) "JCAD_LAYERS")
Fun puzzle

[Jeff H]

Not sure how to do it in lisp but very easy in .Net or ObjectARX,


You can add a entry to the NamedObjectDictionary, or the ExtensionDictionary of ModelSpace, etc..(Something that will always be in a drawing and never removed like ModelSpace) with the ObjectId of the BlockTableRecord and with a HardPointerObjectId typecode(340).

[kruuger]

Layers purgable after:

Code: [Select]

(dictremove (cdr (assoc 360 (entget (cdr (assoc 330 (entget (tblobjname "LAYER" "0"))))))) "JCAD_LAYERS")

yep 
kruuger

[Marc'Antonio Alessi]

This is what I use:

Code: [Select]

(defun c:wba ( / dwg fnm tmp )
    (setq fnm
        (strcat
            (getvar 'dwgprefix)
            (cadr (fnsplitl (getvar 'dwgname)))
            "_wblock"
        )
    )
    (if (findfile (setq dwg (strcat fnm ".dwg")))
        (progn
            (setq tmp 1)
            (while (findfile (setq dwg (strcat fnm "(" (itoa (setq tmp (1+ tmp))) ").dwg"))))
        )
    )
    (command "_.wblock" dwg "*")
    (princ)
)

Try to purge this.