Looking for a Lisp that can change the visibility states of series of blocks from cell value

[ebandian]

Hi Lisp experts, I needed some help regarding my project.

I want to run a specific lisp that can change the visibility state of a block which is stated on a Acad table (soon to be from Datalink).

Explanation:

Column 1 will be the name of the block

Column 2 will be the name of the visibility state to change to.

[paullimapa]

give VChgTbl.lsp a try

[komondormrex]

hey there,

check the following. sets given visibility state 'Visibility1'.

;********************************************************************************************************************

(defun get_dyn_property_by_name (dyn_property_name insert_object / dyn_property_found)
	(if (vl-some '(lambda (dyn_property) (= dyn_property_name
											(vla-get-propertyname (setq dyn_property_found dyn_property))
										 )
				  )
				  (vlax-invoke insert_object 'getdynamicblockproperties)
		)
		dyn_property_found
		nil
	)
)

;********************************************************************************************************************

(defun c:set_visibility_table (/ table_ename table_column_number table_dxf table_row_list table_all_row_list
								 dyn_property
							  )
	(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
	(setq table_ename (car (entsel "\nPick table with blocks and vis-states: "))
	      table_column_number (vla-get-columns (vlax-ename->vla-object table_ename))
	      table_dxf (mapcar 'cdr (vl-remove-if-not '(lambda (group) (= 302 (car group))) (entget table_ename)))
	)
	(while table_dxf
		(setq table_row_list nil)
		(repeat table_column_number
			(setq table_row_list (append table_row_list (list (car table_dxf)))
			      table_dxf (cdr table_dxf)
			)
		)
	  	(setq table_all_row_list (append table_all_row_list (list table_row_list)))
	)
	(foreach insert (vl-remove-if '(lambda (insert) (not (member (vla-get-effectivename insert)
																 (mapcar 'car (cdr table_all_row_list))
														 )
													)
								   )
								   (mapcar 'vlax-ename->vla-object
								   		   (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "_x" '((0 . "insert"))))))
								   )
					)
		(if (setq dyn_property (get_dyn_property_by_name "Visibility1" insert))
			(vla-put-value dyn_property (cadr (assoc (vla-get-effectivename insert) table_all_row_list)))
		)
	)
	(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
	(princ)
)

;********************************************************************************************************************

[ebandian]

Thank you so much Paullimapa

[paullimapa]

glad to have helped...cheers!!!

[ebandian]

Hi again paullimapa,

Do we have a way to still use it for a datalink table? or is there a way that we can convert the datalink table to a acad_table? I am planning to utilize using an excel file to generate the table reference for the visibility states of the blocks. Thanks in advance

[paullimapa]

When you say datalink I'm assuming an excel table?

If so perhaps try this method to convert the excel table into acad_table:

https://www.autodesk.com/support/technical/article/caas/sfdcarticles/sfdcarticles/Importing-Excel-sp...

[ebandian]

Hi paullimapa ,

After I have tried this. the lisp does not work anymore. 

maybe the lisp only work on native acad table, that is not linked on excel.

Now, i am finding ways to transpose the value from datalink table to acad table

[paullimapa]

Share the dwg that contains the converted table

[ebandian]

here

[paullimapa]

I modified the code to accommodate all the additional text code formatting that comes from the Excel file into the AutoCAD cell text.

[ebandian]

I tried it on the datalink table but the block's visibility does not changed.

[paullimapa]

I don't know why it doesn't work for you. Works perfectly for me.

See attached video demo

[ebandian]

Could it be I am lacking some drivers on my computer?

I am not sure why the command does not show on the clip, but I am using VCHGTBL.

Does the unregistered windows affect the lsp? lol

[paullimapa]

You are using LT which my modified code does not support

[ebandian]

I see, it is a dead end for the datalink table

I guess I have to find another workaround, like transposing the cell content of the datalink table to the acad table

[paullimapa]

Let me know if VChgTbl4LT.lsp works on LT

[ebandian]

Unfortunately, it still does not work.

[ebandian]

Do I need to install additional drivers or dll on my pc so that it will work?

I tried the modified code for datalink table on Autocad 2021 version on my personal computer and it does not work. 

[paullimapa]

That's odd. I've used the same code on 2020 to 2025 and there are no issues. There's nothing special about my setup. I'm running everything on Windows 10.