CHANGE BLOCK VISIBILITY STATE IN MULTIPLE DRAWINGS
@henry wrote:
I am trying to change the visibility state of a dynamic block on multiple drawings without opening the drawing. .... I realize that using accoreeconsole may not be the correct approach but it is the only way I know to execute a command on drawings without opening them.
An alternative is ODBX , look here --> ObjectDBX Wrapper
Its a pity we cant see how your lisp rouitne works, because there are restrictions for ODBX, you alone can resolve it.
Modify your "changevis_permit.lsp" to match this format.
(defun changevis_permit ( doc )
(the thing on your lisp routine)
)
(LM:ODBX 'changevis_permit nil t)HTH
@henry wrote:
Thank you for your response and I am sorry I did not provide enough information. Being the novice that I am, I have no idea how to apply your response. Here is the code used to change the visibilty state in the current lisp. All credit for this lisp goes to Lee Mac.
No worries, we'll take care of it, One issue though, I need to know the name of the parameter for visibility on the dynamic block, by defuault its "VISIBILITY1", theres a bit on the code LM:getvisibilityparametername that is not allowed:
* No ent* methods (entmod, entupd etc)
or you can share your "DRAWING STATUS STAMP" block so i can have a look see.
Once you provide that information, I can post the modified c:changevis_PERMIT for you to use.
@henry wrote:
Thanks again. I have attached the "drawing status stamp" block. I sure appreciate your help and skills.
Here you go [ at command prompt you will be prompted to select the folder ]
Command: Changevis_Permitodbx
(("C:\\AutoDeskForum\\TestFile1.dwg" . ) ("C:\\AutoDeskForum\\TestFile2.dwg" . ))
Refer to attached file: changevis_PERMIT_ODBX.lsp
HTH
@aedwards26LR2 wrote:
.... However, I opened a new drawing brought in the dynamic block that the previous user (Henry) provided in this thread, and then I ran the lisp routi...
Only thing i can think of is when you inserted the block for testing, you place the block "Model" space Yes?
The program targets block NOT on model space @aedwards26LR2.
You can change this line
(vlax-for item (vla-get-layouts Doc)
(if (/= (vla-get-name item) "Model")
(vlax-for obj (vla-get-block item)
(if
(and
(vlax-write-enabled-p obj)
(eq (vla-get-objectname obj) "AcDbBlockReference" )
(eq (strcase (LM:blockname obj)) (Strcase blk))
)
(LM:SetVisibilityState obj vis)
)
)
)
)to this
(vlax-for obj (Vla-get-modelspace doc)
(if
(and
(vlax-write-enabled-p obj)
(eq (vla-get-objectname obj) "AcDbBlockReference" )
(eq (strcase (LM:blockname obj)) (Strcase blk))
)
(LM:SetVisibilityState obj vis)
)
)IF you want it to work for ALL tabs
(vlax-for item (vla-get-layouts Doc)
(vlax-for obj (vla-get-block item)
(if
(and
(vlax-write-enabled-p obj)
(eq (vla-get-objectname obj) "AcDbBlockReference" )
(eq (strcase (LM:blockname obj)) (Strcase blk))
)
(LM:SetVisibilityState obj vis)
)
)
)HTH
@swankster wrote:
If my block name is Status Stamp-Dynamic and the visibility state I want to change to is AS BUILT, what would I change (including the lisp name)? Seems the word "Permit" from the original lisp is hard to follow through.
Are you intending to use the program in a similar way as the OP?
What is the visibility parameter name of your block? is it "Visibility" ? if not you also need to change that in the program.
This
(setq vis "Visibility")to
(setq vis "YourVisibilityParameterName")Or you can use the ommited LM:getvisibilityparametername sub here <----
and replace this:
(defun LM:SetVisibilityState (blk val / vis)
(if
(and
;(setq vis (LM:getvisibilityparametername blk)) ;;
;; ;;
(setq vis "Visibility") ;< ;;
;; ;;
(member
(strcase val)
(mapcar 'strcase
(LM:getdynpropallowedvalues blk vis)))
)
(LM:setdynpropvalue blk vis val)
)
)with this
(defun LM:SetVisibilityState (blk val / vis)
(if
(and
(setq vis (LM:getvisibilityparametername blk))
(member
(strcase val)
(mapcar 'strcase
(LM:getdynpropallowedvalues blk vis)))
)
(LM:setdynpropvalue blk vis val)
)
)Block name and visibility state
(setq blk "drawing status stamp" ;; Block Name
vis "Permit" ;; New Visibility State
)
to
(setq blk "Status Stamp-Dynamic" ;; Block Name
vis "AS BUILT" ;; New Visibility State
)Also, in reference from the previous posts. be mindful of the stamps location wehter its on model space or paper space.
HTH
@aedwards26LR2 wrote:
@pbejse Thank You! It worked when block was inserted into paper space. Greatly appreciate your help with this!
Glad it works for you. You are welcome @aedwards26LR2
Holler if you need more help
