Topic: Strip block of Dynamic Properties

[mexxx_]

Hello,

I have now found that all lines in the block included. Characterized the block unnecessarily large and blows to the drawing.

[mexxx_]

Hello,

I delete the invisible Objects with this Code. Can you integrate this Code in your Code please?

Code: [Select]

(defun c:delinvb (/ acdoc ss i sset nme Blockdefinition)
  (vl-load-com)
  (setq acdoc (vla-get-activedocument
                (vlax-get-acad-object)
              )
  )
  (if (setq ss (ssget "_:L" '((0 . "INSERT"))))
    (repeat
      (setq i (sslength ss))
      (setq sset (ssname ss (setq i (1- i))))
      (setq nme (cdr (assoc 2 (entget sset))))
      (setq Blockdefinition (vla-item (vla-get-blocks acdoc) nme))
      (if
        (and
          (eq :vlax-false (vla-get-isxref Blockdefinition))
          (eq :vlax-false (vla-get-islayout Blockdefinition))
        )
          (vlax-for x Blockdefinition
       (if(=(vla-get-Visible  x) :vlax-false)
        (vla-delete x)
    )
)
      )
    )
    (princ)
  )
  (vla-regen acdoc acAllViewports)
  (princ)
)
Thanks 

[cadpoobah]

Friday quick & dirty freebie ... not the most efficient but free ...

That's a Fenomonal Friday Freebie, MP!

I made a couple mods.

Mod 1 - I wanted to preserve the original block name and just add the numeric suffix to it, rather than renaming them to the generic "STATIC_#".
In the "_dynamic->static_block" function, I changed:

Code: [Select]

(_make_key blocks "STATIC_" len)was changed to

Code: [Select]

(_make_key blocks (strcat (vla-get-EffectiveName insert) "_") len)
Mod 2 - The function was bombing if the block it found was nested within an Xref.

Code: [Select]

(foreach insert inserts
  (_dynamic->static_block blocks insert len)
)was changed to

Code: [Select]

(foreach insert inserts
  (if (null (wcmatch (vla-get-name insert) "*|*"))
    (_dynamic->static_block blocks insert len)
    )
)
Works great otherwise! Thanks!

[bluepencil]

Hi!I was also looking for a way protect my "investment" in creating dynamic blocks... and I want to also find a way to strip the dynamic properties of the blocks when i pass the drawings to client and other people.  Then i stumbled upon this post...

I tried to make the code into an AUTOLISP and loaded it to my AutoCAD and it gave me this error:

Command: UNDYNAMIC
; error: no function definition: VLAX-GET-ACAD-OBJECT

I am using AutoCAD 2016 (Beta for Mac)... and i am not code-savvy... please can you help me what does it mean?  Or this error happened because I am using AutoCAD for Mac?

Thanks a lot!

[Lee Mac]

The error occurs because you have not issued the (vl-load-com) expression to define the set of ActiveX(COM) functions before attempting to evaluate such functions; however, since you are using AutoCAD for Mac, the ActiveX extensions will be unavailable in any case.

[bluepencil]

Hi Lee Mac,

Are there any workaround for this in the MAC platform?

Thanks!

[Lee Mac]

Are there any workaround for this in the MAC platform?

No, ActiveX(COM) is a proprietary MS technology and so not available on a Mac platform; there are the new setpropertyvalue / getpropertyvalue / dumpallproperties functions, which are an attempt by Autodesk to bridge this shortfall, but these will not help in this particular case.

[bluepencil]

Thanks again!

I guess this means exploding or ref-edit-in-place of dynamic blocks will be part of my workflow... haha.

Thanks!

[Lee Mac]

Or switch to Windows 

[Richardb1208]

Hi All

These lisps are brilliant!! Has anyone created / found a lisp that will take the UNDYNAMIC in a slightly different direction?

I have 400 drawings that contain Dynamic blocks that use the visibility method. I need to lobotomize the blocks at a global level but ensure that the end product is the block renamed to include the visibility state convention. i.e. BlockName_VisibilityState.

Can anyone help?

[ronjonp]

Hi All

These lisps are brilliant!! Has anyone created / found a lisp that will take the UNDYNAMIC in a slightly different direction?

I have 400 drawings that contain Dynamic blocks that use the visibility method. I need to lobotomize the blocks at a global level but ensure that the end product is the block renamed to include the visibility state convention. i.e. BlockName_VisibilityState.

Can anyone help?

Here you go .. welcome to TheSwamp   . be aware that the code does not checked for locked layers.

Code - Auto/Visual Lisp: [Select]

1. (defun c:staticblocks (/ name)
2.   (vl-load-com)
3.   (vlax-for b (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
4.     (vlax-for b2 b
5.       (if (and (vlax-property-available-p b2 'isdynamicblock)
6.           (minusp (vlax-get b2 'isdynamicblock))
7.           (setq name (vl-some '(lambda (prop)
8.                   (if (= "Visibility" (vla-get-propertyname prop))
9.                (vlax-get prop 'value)
10.                   )
11.                 )
12.                (vlax-invoke b2 'getdynamicblockproperties)
13.            )
14.           )
15.      )
16.    (if (tblobjname "block" (setq name (strcat (vla-get-effectivename b2) "_" name)))
17.      (vla-put-name b2 name)
18.      (vla-converttostaticblock b2 name)
19.    )
20.       )
21.     )
22.   )
23.   (princ)
24. )
25.  

*Also if your dynamic blocks have other properties that can change under the visibility state, the renamed block will take on the properties of the first found.

[Lee Mac]

Nice one Ron - though, unfortunately I don't believe that you can rely on the Property Name of the Visibility State parameter being named "Visibility", since any dynamic block parameter may be arbitrarily named.

Therefore, as an extension of your code, I would propose:

Code - Auto/Visual Lisp: [Select]

1. (defun c:staticblocks ( / bln lst vis )
2.     (vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
3.         (vlax-for obj blk
4.             (if (and (= "AcDbBlockReference" (vla-get-objectname obj))
5.                      (vlax-property-available-p obj 'isdynamicblock)
6.                      (= :vlax-true (vla-get-isdynamicblock obj))
7.                      (or (setq bln (vla-get-effectivename  obj)
8.                                vis (cdr (assoc bln lst))
9.                          )
10.                          (and (setq vis (LM:getvisibilityparametername obj))
11.                               (setq lst (cons (cons bln vis) lst))
12.                          )
13.                      )
14.                      (setq vis (LM:getdynpropvalue obj vis))
15.                 )
16.                 (if (tblsearch "block" (setq bln (strcat bln "_" vis)))
17.                     (vla-put-name obj bln)
18.                     (vla-converttostaticblock obj bln)
19.                 )
20.             )
21.         )
22.     )
23.     (princ)
24. )
25.  
26. ;; Get Dynamic Block Property Value  -  Lee Mac
27. ;; Returns the value of a Dynamic Block property (if present)
28. ;; blk - [vla] VLA Dynamic Block Reference object
29. ;; prp - [str] Dynamic Block property name (case-insensitive)
30.  
31. (defun LM:getdynpropvalue ( blk prp )
32.     (setq prp (strcase prp))
33.     (vl-some '(lambda ( x ) (if (= prp (strcase (vla-get-propertyname x))) (vlax-get x 'value)))
34.         (vlax-invoke blk 'getdynamicblockproperties)
35.     )
36. )
37.  
38. ;; Get Visibility Parameter Name  -  Lee Mac
39. ;; Returns the name of the Visibility Parameter of a Dynamic Block (if present)
40. ;; blk - [vla] VLA Dynamic Block Reference object
41. ;; Returns: [str] Name of Visibility Parameter, else nil
42.  
43. (defun LM:getvisibilityparametername ( blk / vis )  
44.     (if
45.         (and
46.             (vlax-property-available-p blk 'effectivename)
47.             (setq blk
48.                 (vla-item
49.                     (vla-get-blocks (vla-get-document blk))
50.                     (vla-get-effectivename blk)
51.                 )
52.             )
53.             (= :vlax-true (vla-get-isdynamicblock blk))
54.             (= :vlax-true (vla-get-hasextensiondictionary blk))
55.             (setq vis
56.                 (vl-some
57.                    '(lambda ( pair )
58.                         (if
59.                             (and
60.                                 (= 360 (car pair))
61.                                 (= "BLOCKVISIBILITYPARAMETER" (cdr (assoc 0 (entget (cdr pair)))))
62.                             )
63.                             (cdr pair)
64.                         )
65.                     )
66.                     (dictsearch
67.                         (vlax-vla-object->ename (vla-getextensiondictionary blk))
68.                         "ACAD_ENHANCEDBLOCK"
69.                     )
70.                 )
71.             )
72.         )
73.         (cdr (assoc 301 (entget vis)))
74.     )
75. )
76.  
77. (vl-load-com) (princ)

Dynamic Block functions from here.

[Lee Mac]

Maybe the following to account for other dynamic block parameters and for locked layers?

Code - Auto/Visual Lisp: [Select]

1. (defun c:staticblocks ( / doc eff lck lst nbn new obn vis vpl )
2.     (setq doc (vla-get-activedocument (vlax-get-acad-object))
3.           new
4.         (lambda ( old vis / cnt rtn )
5.             (setq cnt 0)
6.             (if (tblsearch "block" (setq rtn (strcat old "_" vis)))
7.                 (while (tblsearch "block" (setq rtn (strcat old "_" vis "_" (itoa (setq cnt (1+ cnt)))))))
8.             )
9.             rtn
10.         )
11.     )
12.     (vlax-for lay (vla-get-layers doc)
13.         (if (= :vlax-true (vla-get-lock lay))
14.             (progn
15.                 (setq lck (cons lay lck))
16.                 (vla-put-lock lay :vlax-false)
17.             )
18.         )
19.     )
20.     (vlax-for blk (vla-get-blocks doc)
21.         (vlax-for obj blk
22.             (cond
23.                 (   (not
24.                         (and
25.                             (= "AcDbBlockReference" (vla-get-objectname obj))
26.                             (vlax-property-available-p obj 'isdynamicblock)
27.                             (= :vlax-true (vla-get-isdynamicblock obj))
28.                         )
29.                     )
30.                 )
31.                 (   (setq obn (vla-get-name obj)
32.                           nbn (cdr (assoc obn lst))
33.                     )
34.                     (vla-put-name obj nbn)                        
35.                 )
36.                 (   (and
37.                         (or (setq eff (vla-get-effectivename obj)
38.                                   vis (cdr (assoc eff vpl))
39.                             )
40.                             (and (setq vis (LM:getvisibilityparametername obj))
41.                                  (setq vpl (cons (cons eff vis) vpl))
42.                             )
43.                         )
44.                         (setq vis (LM:getdynpropvalue obj vis))
45.                         (setq nbn (new eff vis))
46.                     )
47.                     (vla-converttostaticblock obj nbn)
48.                     (setq lst (cons (cons obn nbn) lst))
49.                 )
50.             )
51.         )
52.     )
53.     (foreach lay lck (vla-put-lock lay :vlax-true))
54.     (princ)
55. )
56.  
57. ;; Get Dynamic Block Property Value  -  Lee Mac
58. ;; Returns the value of a Dynamic Block property (if present)
59. ;; blk - [vla] VLA Dynamic Block Reference object
60. ;; prp - [str] Dynamic Block property name (case-insensitive)
61.  
62. (defun LM:getdynpropvalue ( blk prp )
63.     (setq prp (strcase prp))
64.     (vl-some '(lambda ( x ) (if (= prp (strcase (vla-get-propertyname x))) (vlax-get x 'value)))
65.         (vlax-invoke blk 'getdynamicblockproperties)
66.     )
67. )
68.  
69. ;; Get Visibility Parameter Name  -  Lee Mac
70. ;; Returns the name of the Visibility Parameter of a Dynamic Block (if present)
71. ;; blk - [vla] VLA Dynamic Block Reference object
72. ;; Returns: [str] Name of Visibility Parameter, else nil
73.  
74. (defun LM:getvisibilityparametername ( blk / vis )  
75.     (if
76.         (and
77.             (vlax-property-available-p blk 'effectivename)
78.             (setq blk
79.                 (vla-item
80.                     (vla-get-blocks (vla-get-document blk))
81.                     (vla-get-effectivename blk)
82.                 )
83.             )
84.             (= :vlax-true (vla-get-isdynamicblock blk))
85.             (= :vlax-true (vla-get-hasextensiondictionary blk))
86.             (setq vis
87.                 (vl-some
88.                    '(lambda ( pair )
89.                         (if
90.                             (and
91.                                 (= 360 (car pair))
92.                                 (= "BLOCKVISIBILITYPARAMETER" (cdr (assoc 0 (entget (cdr pair)))))
93.                             )
94.                             (cdr pair)
95.                         )
96.                     )
97.                     (dictsearch
98.                         (vlax-vla-object->ename (vla-getextensiondictionary blk))
99.                         "ACAD_ENHANCEDBLOCK"
100.                     )
101.                 )
102.             )
103.         )
104.         (cdr (assoc 301 (entget vis)))
105.     )
106. )
107.  
108. (vl-load-com) (princ)

[ronjonp]

Nice one Ron - though, unfortunately I don't believe that you can rely on the Property Name of the Visibility State parameter being named "Visibility", since any dynamic block parameter may be arbitrarily named.

Dynamic Block functions from here.

Ah yes .. silly me 

[rkmcswain]

Friday quick & dirty freebie ... not the most efficient but free ...

...and then 6 years later, stolen and presented without credit. 

https://lispbox.wordpress.com/2016/02/29/undinamic-all-blocks-in-one-click/