Need A Lisp That Will Update 2 Visibility States In Dynamic Block Based On 2 Attribute Values
@reginald-grimes wrote:
.. I'm in need of a lisp routine that will update 2 visibility states simultaneously in my dynamic block based upon the attribute values in the "profile_id_left" and "profile_id_right" . ..
I've attached a copy of my block to this post. Fyi, I used the "visibility-add-eng_1_6.lsp" to create the 2 visibility states. Thanks again in advance!
I simply dont get it, can you please explain more @reginald-grimes
And where is that lsp?
@reginald-grimes wrote:I'm in need of a lsp command that will update "profile_id_left" & "profile_id_right" visibility parameters based on "profile_id_left" / "profile_id_right" attribute values that I manually enter in (or import via csv). The values will be between 1 & 12 for each visibility parameter. And blank field values will constitute "NO DUAL PROFILE" visibility state for the profile_id_left visibility parameter; and "NO RIGHT PROFILE" visibility state for the profile_id_right visibility parameter.
Thank you for that, but forgive me, I stiil dont get it.
Let say LOCATION_ID value AB202P
Visibility:
("PROFILE_ID_LEFT" "8")("PROFILE_ID_RIGHT" "10)
Atribute values:
("PROFILE_ID_LEFT" "8")("PROFILE_ID_RIGHT" "10")
Now the CSV data
Column 1
("profile_id_left" "NO DUAL PROFILE" "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12")
Column 2
("profile_id_right" "NO RIGHT PROFILE" "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12")
What do you do with these data? how does that relate to the Visibility and Attributes ?
PROFILE_ID_RIGHT doesnt even have the value of 1
@reginald-grimes wrote:
So the goal is, if I decide to import the "profile_id_left" / "profile_id_right" values from the csv, it would then match the visibility parameters/states that have the equivalent name/number. ...
Believe me, we understand the all that, except the relation of the imported data to the existing blocks is where the confusion is.
Block with LOCATION ID AB202P
Current visibility value of "profile_id_left" is 8 and "profile_id_right" is 10.
Block with LOCATION ID AB205P
Current visibility value of "profile_id_left" is 6 and "profile_id_right" is 2.
If the user run the program, select a block
Change the value only of the current visibility value. in this example change value of 8 to 8 as that is what is specified on the CSV file?
or
Change all "profile_id_left" and "profile_id_right" values [Visibility and Attribute value] and leave the current as it is? meaning the current visibilty has nothing to do with it?
@reginald-grimes wrote:I would like for the csv to export all block attribute fields with headers. I would also like the csv to contain the block handle.
And that is another task? Will that be the same data that will be use for import and the one you attached is not the final format?
@reginald-grimes wrote:.. So say the profile_id_left attribute of a block is changed from 7 to 8 and the profile_id_right attribute of that same block is changed from 5 to 9, then the user should be able to run the lisp command which will auto-update the profile_id_left/right visibility states to be 8 & 9. Which is based on the left/right attribute values.
Lets start with that.
(defun c:uberClean ( / _id_left _id_right ssel)
(if (and
(setq _id_left (getstring "\nEnter value \"profile_id_left\": "))
(setq _id_right (getstring "\nEnter value \"profile_id_right\": "))
(setq ssel (ssget "_:L" '((0 . "INSERT")(66 . 1))))
)
(UltimateLisp (list _id_left _id_right) ssel)
)
)
;; This is the eventual code to be use in conjuncion with CSV. ;;
(Defun UltimateLisp (ls ss / ss csv ev dp atbV i val vis )
(repeat (setq i (sslength ss))
(setq ev (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
(if (and
(eq (vla-get-EffectiveName ev) "UBER-CLEAN")
(vlax-method-applicable-p ev 'GetDynamicBlockProperties)
(setq dp (mapcar '(lambda (dp)
(list (Vla-get-PropertyName dp)(Vlax-get dp 'AllowedValues) dp ))
(vlax-invoke ev 'GetDynamicBlockProperties))
)
(setq atbV (mapcar '(lambda (at)
(list (Vla-get-TagString at)(Vla-get-TextString at) at ))
(vlax-invoke ev 'GetAttributes)))
)
(foreach itm (mapcar 'list '("PROFILE_ID_LEFT" "PROFILE_ID_RIGHT") ls)
(if
(and
(setq val (assoc (Car itm) atbV))
(Setq vis (assoc (Car itm) dp))
(member (cadr itm) (cadr vis))
)
(progn
(vla-put-textstring (caddr val)(cadr itm))
(vla-put-value (caddr vis)(cadr itm))
)
)
)
)
)
(princ)
)Command: UBERCLEAN
Enter value "profile_id_left": 6
Enter value "profile_id_right": 8
Select objects: Specify opposite corner: 5 found
Select objects:
