Yuri Weblog

ダイナミックブロックのプロパティ変更。
(y_dyblk [名前] [値] [図形名])

(defun y_dyblk(
GET_NAME
VALUE
E_NAME
/
V_OBJ
VARPRO
I
V_OBJ_BL
P_NAME
VAL
)
(setq V_OBJ (vlax-ename->vla-object E_NAME))
(setq VARPRO (vlax-variant-value (vla-GetDynamicBlockProperties V_OBJ)))
(setq I (vlax-safearray-get-l-bound VARPRO 1))
(while I
(setq V_OBJ_BL (vlax-safearray-get-element VARPRO I))
(setq P_NAME (vla-get-PropertyName V_OBJ_BL))
(if (= (strcase GET_NAME) (strcase P_NAME))
(progn
(vla-put-value V_OBJ_BL
(vlax-make-variant VALUE
(vlax-variant-type (vla-get-value V_OBJ_BL))
)
)
(setq I nil)
)
(if (> I (vlax-safearray-get-u-bound VARPRO 1))
(setq I nil)
(setq I (1+ I))
)
)
)
(princ)
)