判断为动态块

yshf

(if (setq ent (car (entsel "\n请选择块:")))
    (if (= (vlax-get-property
                (setq obj (vlax-ename->vla-object ent))
                "ObjectName"
           )
           "AcDbBlockReference"
        )
        (If (= (vlax-get-property obj "IsDynamicBlock") 0)
            (princ "\n选取的是动态块!")
            (princ "\n选取的是非动态块!")
        )
        (princ "\n选取的不是块!")
    )
    (princ "\n没有选取图元!")
)

54256

vitalgg 发表于 2021-6-2 11:28
e2o 相当于 vlax-ename->vla-object

谢谢，确实可以
但如果我没有选择(entsel)这个过程，只是知道一个块名，怎么判断是动态块呢

vitalgg

(setq
;;常用VLA对象、集合
*ACAD*  (vlax-get-acad-object)
*DOC*   (vla-get-ActiveDocument *ACAD*)
*DOCS*  (vla-get-Documents *ACAD*)
*MS*    (vla-get-modelSpace *DOC*)
*PS*    (vla-get-paperSpace *DOC*)
*BLKS*  (vla-get-Blocks *DOC*)
*LAYS*  (vla-get-Layers *DOC*)
*LTS*   (vla-get-Linetypes *DOC*)
*STS*   (vla-get-TextStyles *DOC*)
*GRPS*  (vla-get-groups *DOC*)
*DIMS*  (vla-get-DimStyles *DOC*)
*LOUTS* (vla-get-Layouts *DOC*)
*VPS*   (vla-get-Viewports *DOC*)
*VS*    (vla-get-Views *DOC*)
*DICS*  (vla-get-Dictionaries *DOC*)
*Layouts* (vla-get-Layouts *doc*)
)

(vla-get-isdynamicblock (vla-item *BLKS* "你的块名"))

54256

vitalgg 发表于 2021-6-2 19:34
(setq
;;常用VLA对象、集合
*ACAD*  (vlax-get-acad-object)

解决了，谢谢