DynamicBlockVisibilityChange.lsp

This is a first draft, so it's crude and needs testing (I don't have many Dynamic Blocks at home). However, at the moment, it will allow the user to select a Dynamic block with visibility states and change the visibility state of either, all or a selection of each occurrence of the specified Dynamic block.

Call with: VC

As always, any feedback, etc. is welcome.

Nicely done Alan, but isn't it a bit unnecesary?

I do the same thing now with qselect>block and then change the visibility for all the blocks in my quick properties window.

Nicely done Alan, but isn't it a bit unnecesary?

 

I do the same thing now with qselect>block and then change the visibility for all the blocks in my quick properties window.

Bei mir geht das überhaupt nicht.

Bei mir geht das überhaupt nicht.

Mit acad 2010 das geht. :wink:

Sorry das sollte alanjt betreffen.

Das Lisp geht bei mir nicht.

Guys, please translate your posts. This is an international forum with English as the language. You don't want me to translate them with my school-book-german :wink:

I don't speak German but kind of understand parts of it,

he said: That doesn't work here

i said: with acad 2010 that does work

then he said: I meant Alan, that lisp doesn't work

there

Nicely done Alan, but isn't it a bit unnecesary?

 

I do the same thing now with qselect>block and then change the visibility for all the blocks in my quick properties window.

Not everything written is completely necessary. :wink: I was just playing around. I really don't even use Dynamic blocks, but I was just curious if this would be possible. Curious though, you said it wouldn't work in 2010, what did it do?

Not everything written is completely necessary. :wink: I was just playing around. ..

You know that because you understand the language. For all I know, you are insulting my hairstyle.

You know that because you understand the language. For all I know, you are insulting my hairstyle.

Wait, I thought I was!?!

I wasn't sure if this was even useful. It doesn't benefit me, so I'll happily abandon it.

This thread is getting confusing

I didn't say it doesn't work, the german guy did.

This thread is getting confusing

I didn't say it doesn't work, the german guy did.

I know, I just didn't feel like breaking up my post.

Alanjt can you post the code anyway plssss? (here is a puppy that you can't say no to http://www.connemaraterrier.com/files/page0_4.png )

I could use such a script!!

edit found this:

http://forums.augi.com/showthread.php?t=109054

;;; ------------------------------------------------------------------------
;;;	DynamicBlockVisibilityChange.lsp v1.0
;;;
;;;	Copyright© 10.15.09
;;;	Alan J. Thompson (alanjt)
;;;	
;;;
;;;	Permission to use, copy, modify, and distribute this software
;;;	for any purpose and without fee is hereby granted, provided
;;;	that the above copyright notice appears in all copies and
;;;	that both that copyright notice and the limited warranty and
;;;	restricted rights notice below appear in all supporting
;;;	documentation.
;;;
;;;	The following program(s) are provided "as is" and with all faults.
;;;	Alan J. Thompson DOES NOT warrant that the operation of the program(s)
;;;	will be uninterrupted and/or error free.
;;;
;;;	Allows user to select a Dynamic block and change visibility state of
;;;	all or a selection set of occurances of specified block.
;;;
;;;	Revision History:
;;;
;;; ------------------------------------------------------------------------

(defun c:VC99 (/ *error* AT:ListSelect AT:TabFilter #Obj #Name #List #Vis #Choice #SS)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;; SUBROUTINES ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; error handler
 (defun *error* (#Message)
   (and *AcadDoc* (vla-endundomark *AcadDoc*))
   (and #Message
        (not (wcmatch (strcase #Message) "*BREAK*,*CANCEL*,*QUIT*"))
        (princ (strcat "\nError: " #Message))
   ) ;_ and
 ) ;_ defun



;list select dialog
;create a temp DCL multi-select list dialog from provided list
;value is returned in list form, DCL file is deleted when finished
;example: (setq the_list (AT:listselect "This is my list title" "Select items to make a list" "25" "30" "true" (list "object 1" "object 2" "object 3"))
;if mytitle is longer than defined width, the width will be ignored and it will fit to title string
;if mylabel is longer than defined width, mylabel will be truncated
;myheight and mywidth must be strings, not numbers
;mymultiselect must either be "true" or "false" (true for multi, false for single)
;created by: alan thompson, 9.23.08
;some coding borrowed from http://www.jefferypsanders.com (thanks for the DCL examples)

 (defun AT:ListSelect (mytitle ;title for dialog box
                       mylabel ;label right above list box
                       myheight ;height of dialog box !!*MUST BE STRING*!!
                       mywidth ;width of dialog box !!*MUST BE STRING*!!
                       mymultiselect ;"true" for multiselect, "false" for single select
                       mylist ;list to display in list box
                       / retlist readlist count item savevars fn fo valuestr dcl_id
                      )
   (defun saveVars (/ readlist count item)
     (setq retList (list))
     (setq readlist (get_tile "mylist"))
     (setq count 1)
     (while (setq item (read readlist))
       (setq retlist (append retList (list (nth item myList))))
       (while
         (and
           (/= " " (substr readlist count 1))
           (/= "" (substr readlist count 1))
         ) ;_ and
          (setq count (1+ count))
       ) ;_ while
       (setq readlist (substr readlist count))
     ) ;_ while
   ) ;defun
   (setq fn (vl-filename-mktemp "" "" ".dcl"))
   (setq fo (open fn "w"))
   (setq valuestr (strcat "value = \"" mytitle "\";"))
   (write-line (strcat "list_select : dialog {
           label = \"" mytitle "\";") fo)
   (write-line
     (strcat
       "          : column {
           : row {
             : boxed_column {
              : list_box {
                 label =\"" mylabel
       "\";
                 key = \"mylist\";
                 allow_accept = true;
                 height = " myheight ";
                 width = " mywidth ";
                 multiple_select = " mymultiselect
       ";
                 fixed_width_font = false;
                 value = \"0\";
               }
             }
           }
           : row {
             : boxed_row {
               : button {
                 key = \"accept\";
                 label = \" Okay \";
                 is_default = true;
               }
               : button {
                 key = \"cancel\";
                 label = \" Cancel \";
                 is_default = false;
                 is_cancel = true;
               }
             }
           }
         }
}"     ) ;_ strcat
;_ strcat
     fo
   ) ;_ write-line
   (close fo)
   (setq dcl_id (load_dialog fn))
   (new_dialog "list_select" dcl_id)
   (start_list "mylist" 3)
   (mapcar 'add_list myList)
   (end_list)
   (action_tile "cancel" "(setq ddiag 1)(done_dialog)")
   (action_tile "accept" "(setq ddiag 2)(saveVars)(done_dialog)")
   (start_dialog)
   (if (= ddiag 1)
     (setq retlist nil)
   ) ;_ if
   (unload_dialog dcl_id)
   (vl-file-delete fn)
   retlist
 ) ;defun




;;; Tab filter for ssget selection filtering
;;; Must use (list instead of '( to work
;;; Alan J. Thompson, 06.05.09
 (defun AT:TabFilter (/)
   (if (eq 2 (getvar "cvport"))
     (cons 410 "Model")
     (cons 410 (getvar "ctab"))
   ) ;_ if
 ) ;_ defun


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MAIN ROUTINE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


 (vl-load-com)

 (or *AcadDoc* (setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
 (vla-startundomark *AcadDoc*)

 (cond
   ((and
      (setq #Obj (car (entsel "\nSelect dynamic block: ")))
      (eq "INSERT" (cdr (assoc 0 (entget #Obj))))
      (setq #Obj (vlax-ename->vla-object #Obj))
      (eq (vla-get-isdynamicblock #Obj) :vlax-true)
      (not
        (vl-catch-all-error-p (setq #Name (vl-catch-all-apply 'vla-get-effectivename (list #Obj))))
      ) ;_ not
      (setq #List (car (vl-remove-if-not
                         '(lambda (x) (eq (vla-get-PropertyName x) "Visibility"))
                         (vlax-invoke #Obj 'GetDynamicBlockProperties)
                       ) ;_ vl-remove-if-not
                  ) ;_ car
      ) ;_ setq
      (setq
        #List (vl-sort
                (mapcar 'vlax-variant-value
                        (vlax-safearray->list (vlax-variant-value (vla-get-AllowedValues #List)))
                ) ;_ mapcar
                '<
              ) ;_ vl-sort
      ) ;_ setq
      (setq #Vis (car (AT:ListSelect
                        "Dynamic Visibilities" "Select visibility option:" "10" "5" "false" #List
                       ) ;_ AT:ListSelect
                 ) ;_ car
      ) ;_ setq
      (not (initget 0 "All Filtered"))
      (or (setq #Choice (getkword "\nAll or Filtered selection [All/Filtered] <All>: "))
          (setq #Choice "All")
      ) ;_ or
      (cond
        ((eq #Choice "All")
         (setq
           #SS (ssget "_X" (list '(0 . "INSERT") (cons 2 (strcat #Name ",`*U*")) (AT:TabFilter)))
         ) ;_ setq
        )
        ((eq #Choice "Filtered")
         (setq
           #SS (ssget ":L" (list '(0 . "INSERT") (cons 2 (strcat #Name ",`*U*")) (AT:TabFilter)))
         ) ;_ setq
        )
      ) ;_ cond
    ) ;_ and
    (vlax-for x (setq #SS (vla-get-activeselectionset *AcadDoc*))
      (if (eq (vl-catch-all-apply 'vla-get-effectivename (list x)) #Name)
        (foreach i (vlax-invoke x 'GetDynamicBlockProperties)
          (if (eq (vla-get-PropertyName i) "Visibility")
            (vl-catch-all-apply 'vla-put-value (list i #Vis))
          ) ;_ if
        ) ;_ foreach
      ) ;_ if
    ) ;_ vlax-for
    (vl-catch-all-apply 'vla-delete (list #SS))
   )
 ) ;_ cond

 (*error* nil)

 (princ)
) ;_ defun

but it didn't work at all, didn't got even a error back

Edit I blame me for not filling in the correct parameter, autocad made visibility1 instead of just visibility. It now works!