Topic: Look up & Visibility State

[CadFrank]

Hi, I would like some help please

I need to be able to change all those 3 dynamic block with their visibility states.

If you select all 3 in the drawing you can change the value of then in properties/ custom/visibility1

in this code here :

Code - Auto/Visual Lisp: [Select]

1. (setq fleche '("LC CHARGE 290" "LC B-T 290" "LC C-P 290"))
2. (initget 1 "74m 70m 64m 60m 54m 50m 44m 40m")
3. (setq b-radius(getkword "\n Donner le rayon de la flèche : "))
4.  
5.  
6.   (vl-load-com)
7.   (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
8.   (vlax-for fleche(vla-get-blocks adoc))
9.  
10.  
11.   ;(initget 1 "170 210 290 550")
12.   ;(setq tower-serie(getkword "\nDonner le modele de la grue : "))
13.  
14.  
15.   (setq fleche (entlast))
16.   (setq fleche (vlax-ename->vla-object fleche))
17.   (vlax-dump-object fleche)
18.   (setq dbp (vla-getdynamicblockproperties fleche))
19.   (setq dbp (vlax-variant-value dbp))
20.   (setq dbp (vlax-safearray->list dbp))
21.   (setq bp (car dbp))
22.   (vlax-dump-object bp)
23.   (setq ListeAdmis (vlax-safearray->list (vlax-variant-value (vla-get-AllowedValues bp))))
24.   (setq ListeAdmis (mapcar 'vlax-variant-value ListeAdmis))
25.   (vla-put-value bp B-Radius)

All Help will be greatly appreciated thank !

Cheers & Beers

[ronjonp]

Maybe this can help you:
http://www.theswamp.org/index.php?topic=23944.msg289914#msg289914