[编程交流] 动态块，属性名称

((<Tag> . <Value>) ... )

;Trying to obtain effective blockname, a attribute name and its attribute value
;I am going to use "foreach" function, and different conditions, based on that attribute value
(defun c:test ( / i o s )
(setq MyBlockName (getstring T "\nType the name of the Block to look for:"))
(setq MyAttributeName1 (getstring T "\nType the name of the Attribute1 to look for:"))
(setq MyAttributeName2 (getstring T "\nType the name of the Attribute2 to look for:"))
   (if (setq s (ssget "_X" '((0 . "INSERT") (66 . 1) (2 . "`*U*,MyBlockName"))))
       (repeat (setq i (sslength s))
           (setq o (vlax-ename->vla-object (ssname s (setq i (1- i)))))
           (if (and (vlax-property-available-p o 'effectivename)
                    (= MyBlockName (strcase (vla-get-effectivename o) t))
               )
               (progn
                   (princ (strcat "\nFound " MyBlockName " block "" (vla-get-handle o) ""."))
                   (if (setq MyAttributeValue1 (LM:vl-getattributevalue o MyAttributeName1))
                       (progn
                          (princ (strcat "\nFound the block named " MyBlockName " !"))
                          (princ (strcat "\nFound the attribute named " MyAttributeName1 " !"))
                          (princ (strcat "\nThe value of that attribute is " MyAttributeValue1 " !"))
                       );progn
                       (princ "\n"MyAttributeName1" attribute not found in "MyBlockName" block.")
                   );if
                   (if (setq MyAttributeValue2 (LM:vl-getattributevalue o MyAttributeName2))
                       (progn
                          (princ (strcat "\nFound the block named " MyBlockName " !"))
                          (princ (strcat "\nFound the attribute named " MyAttributeName2 " !"))
                          (princ (strcat "\nThe value of that attribute is " MyAttributeValue2 " !"))
                       );progn
                       (princ "\n"MyAttributeName2" attribute not found in "MyBlockName" block.")
                   );if
               )
           )
       )
       (princ "\nNo attributed " MyBlockName " blocks found in the drawing.")
   )
   (princ)
)
(vl-load-com) (princ)
;; Get Attribute Value  -  Lee Mac
;; Returns the value held by the specified tag within the supplied block, if present.
;; blk - [vla] VLA Block Reference Object
;; tag - [str] Attribute TagString
;; Returns: [str] Attribute value, else nil if tag is not found.
(defun LM:vl-getattributevalue ( blk tag )
   (setq tag (strcase tag))
   (vl-some '(lambda ( att ) (if (= tag (strcase (vla-get-tagstring att))) (vla-get-textstring att)))
       (vlax-invoke blk 'getattributes)
   )
)

(princ (strcat "\nFound the block named " MyBlockName " !"))
(princ (strcat "\nFound the attribute named " MyAttributeName2 " !"))
(princ (strcat "\nThe value of that attribute is " MyAttributeValue2 " !"))

Type the name of the Block to look for:VLD_Column
Type the name of the Attribute1 to look for:L1
Type the name of the Attribute2 to look for:L2
Error: bad argument type: FILE "VLD_Column"

;Trying to obtain effective blockname, a attribute name and its attribute value
;I am going to use "foreach" function, and different conditions, based on that attribute value
(defun c:test ( / i o s MyBlockName MyAttributeName1 MyAttributeName2 )
   (setq MyBlockName (getstring T "\nType the name of the Block to look for:"))
   (setq MyAttributeName1 (getstring T "\nType the name of the Attribute1 to look for:"))
   (setq MyAttributeName2 (getstring T "\nType the name of the Attribute2 to look for:"))
   (if (setq s (ssget "_X" (list '(0 . "INSERT") '(66 . 1) (cons 2 (strcat "`*U*," MyBlockName)))))
       (repeat (setq i (sslength s))
           (setq o (vlax-ename->vla-object (ssname s (setq i (1- i)))))
           (if (and (vlax-property-available-p o 'effectivename)
                    (= (strcase MyBlockName) (strcase (vla-get-effectivename o) t))
               )
               (progn
                   (princ (strcat "\nFound " MyBlockName " block "" (vla-get-handle o) ""."))
                   (if (setq MyAttributeValue1 (LM:vl-getattributevalue o MyAttributeName1))
                       (progn
                          (princ (strcat "\nFound the block named " MyBlockName " !"))
                          (princ (strcat "\nFound the attribute named " MyAttributeName1 " !"))
                          (princ (strcat "\nThe value of that attribute is " MyAttributeValue1 " !"))
                       );progn
                       (princ (strcat "\n"" MyAttributeName1 "" attribute not found in "" MyBlockName "" block."))
                   );if
                   (if (setq MyAttributeValue2 (LM:vl-getattributevalue o MyAttributeName2))
                       (progn
                          (princ (strcat "\nFound the block named " MyBlockName " !"))
                          (princ (strcat "\nFound the attribute named " MyAttributeName2 " !"))
                          (princ (strcat "\nThe value of that attribute is " MyAttributeValue2 " !"))
                       );progn
                       (princ (strcat "\n"" MyAttributeName2 "" attribute not found in "" MyBlockName "" block."))
                   );if
               )
           )
       )
       (princ (strcat "\nNo attributed " MyBlockName " blocks found in the drawing."))
   )
   (princ)
)
(vl-load-com) (princ)
;; Get Attribute Value  -  Lee Mac
;; Returns the value held by the specified tag within the supplied block, if present.
;; blk - [vla] VLA Block Reference Object
;; tag - [str] Attribute TagString
;; Returns: [str] Attribute value, else nil if tag is not found.
(defun LM:vl-getattributevalue ( blk tag )
   (setq tag (strcase tag))
   (vl-some '(lambda ( att ) (if (= tag (strcase (vla-get-tagstring att))) (vla-get-textstring att)))
       (vlax-invoke blk 'getattributes)
   )
)

No attributed VLD_Column blocks found in the drawing.

;Returns Parameter
(defun c:test ( / ent idx sel paramval MyParameterName )
   (setq MyParameterName (getstring T "\nType the name of the Parameter to look for:"))
   (prompt "\nSelect dynamic block")
   (if (setq sel (ssget "_+.:E:S" '((0 . "INSERT"))))
       (repeat (setq idx (sslength sel))
           (setq ent (ssname sel (setq idx (1- idx))))
           (if (setq paramval (LM:getdynpropvalue (vlax-ename->vla-object ent) MyParameterName))
               (princ (strcat "\nBname:" (cdr (assoc 2 (entget ent))) "    ParamName:" MyParameterName "    ParamValue:" paramval ))
               (princ (strcat "\nParameter " MyParameterName " not found in block " (cdr (assoc 2 (entget ent)))))
           )
       )
   )
   (princ)
)
;; Get Dynamic Block Property Value  -  Lee Mac
;; Returns the value of a Dynamic Block property (if present)
;; blk - [vla] VLA Dynamic Block Reference object
;; prp - [str] Dynamic Block property name (case-insensitive)
(defun LM:getdynpropvalue ( blk prp )
   (setq prp (strcase prp))
   (vl-some '(lambda ( x ) (if (= prp (strcase (vla-get-propertyname x))) (vlax-get x 'value)))
       (vlax-invoke blk 'getdynamicblockproperties)
   )
)