Hi there,
It works great! Could you please add the first one
(command "_erase" (ssget "_x" '((-3 ("RevcloudProps")))) "")
into the below lisp? Sorry I did not say it clearly in the beginning, many thanks. 🙂
(vl-load-com)
(defun c:ASet (/ format_date chgtxt adoc data_assoc_list ss attribute_tag attribute_string)
;********************************************************************************************
(defun format_date (/ mon date)
(setq mon '("JAN" "FEB" "MAR" "APR" "MAY" "JUN" "JUL" "AUG" "SEP" "OCT" "NOV" "DEC"))
(setq date (rtos (fix (getvar "cdate")) 2 0))
(strcat (substr date 1 4) (nth (1- (atoi (substr date 5 2))) mon) (substr date 7 2))
)
;********************************************************************************************
(defun chgtxt (string)
(itoa (1+ (atoi string)))
; (cond
; (
; (= (car (reverse (vl-string->list string))) 65)
; (vl-string-subst "B" "A" string) ; replace A with B
; (vl-string-subst "" "A" string) ; replace with empty string
; )
; (
; (= (car (reverse (vl-string->list string))) 97)
; (vl-string-subst "b" "a" string) ; replace a with b
; (vl-string-subst "" "a" string) ; replace with empty string
; )
; )
)
;********************************************************************************************
(setq data_assoc_list '(
; ("TITLE_LINE_1" . "DMR SUBSTATION")
; ("DATE" . "2023MAR10")
("DATE" . "2024SEP")
; ("DESIGNED_BY" . "P. SAHBA")
; ("INDEPENDENT_CHK" . "R. CLELLAND")
("DRAFTED_BY" . "M. RU")
("DRAFTING_CHECK" . "L. JI")
; ("INSPECTED_BY" . "")
; ("REVIEWED_BY" . "")
; ("ACCEPTED_BY" . "")
)
)
(if (ssget "_X" (list '(0 . "insert")))
(vlax-for block_reference (vla-get-activeSelectionSet (vla-get-activedocument (vlax-get-acad-object)))
(cond
(
(wcmatch (strcase (vla-get-effectiveName block_reference)) "BCH-X-BORD-DXXX,BCH-X-BORD-BXXX,BCH-X-BORD-AXXX,BCH-X-ANNO-STMP-OBSO")
(foreach attribute (vlax-invoke block_reference 'getAttributes)
(setq attribute_tag (strcase (vla-get-tagString attribute)))
(setq attribute_string (vla-get-textString attribute))
(cond
(
(setq item (assoc attribute_tag data_assoc_list))
(vla-put-textString attribute (format_date))
(vla-put-textString attribute (cdr item))
)
(
(wcmatch attribute_tag "REV_`#")
(if
(and
(or
(wcmatch attribute_string "#")
(wcmatch attribute_string "##")
(wcmatch attribute_string "#[AaBb]")
(wcmatch attribute_string "##[AaBb]")
)
(setq attribute_string (chgtxt attribute_string))
)
(vla-put-textString attribute attribute_string)
)
)
)
)
)
(
(= "BCH-ST-DYN-DWG-ISSUE" (vla-get-effectivename block_reference))
(setpropertyvalue (vlax-vla-object->ename block_reference) "AcDbDynBlockPropertyVisibility" "IRD - ISSUE RECORD DRAWING")
)
(
t
)
)
(vlax-release-object block_reference)
)
)
; (vl-cmdf "_.Layer" "_M" "$X-ANNO-REVC-ELEC" "_Co" 220 "" "") ; add layer name: $X-ANNO-REVC-ELEC, color: 220
; (vl-cmdf "_.Layer" "_F" "$X-ANNO-REVC" "") ; freeze layer "$X-ANNO-REVC"
; (if(setq ss(ssget"_X"'((8 . "REVCLOUD")))) ; delete all objects "REVCLOUD"
; (progn (vl-cmdf "_.Layer" "_U" "REVCLOUD" ""); make sure layer is unlocked
; (foreach item (mapcar 'cadr (ssnamex ss)) ; create list of all entities from selection set
; (if (= 'ename (type item))(entdel item)) ; confirm is entity & delete
; ) ; foreach
; ) ; progn
; ) ; if
(princ)
)
