[求助]关于扩展数据变化修改块属性的反映器

spshchen

关于扩展数据变化修改块属性的反映器
不知道问题在哪里？会出现异常。代码如下：
(vl-load-com)
(DEFUN C:TEST( / blockname ent )
  ;(SETQ ENT (CAR (ENTsel "")))
  (setq blockname "ANT0")
  (Pzn_CopyBlock blockname)
  (VL-CMDF "insert" blockname )
  (VL-CMDF pause)
  (COMMAND "1" "1" "0" )
  (SETQ ENT (ENTLAST)  )
  (ax:ChangeAttributes ENT(LIST(cons "OUT0" "10dBm") (cons "OUT1" "3dBm")))
  (SETQ OBJECT_ENT (vlax-ename->vla-object ENT ))
  (SET_XDATA ENT "ZNCAD"  "879")
  (VLR-PERS (VLR-Object-Reactor (CONS OBJECT_ENT '()) ""'((:vlr-modifiedXData . ZN_REC_CHANGE_XDATA))))
  )
(DEFUN ZN_REC_CHANGE_XDATA(NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST / at ENT_BLOCK );
 
  (SETQ ENT_BLOCK (vlax-vla-object->ename  NOTIFIER-OBJECT))
  (SETQ AT (GET_XDATA ENT_BLOCK "ZNCAD"))
  (ax:ChangeAttributes ENT_BLOCK (LIST(cons "OUT0" AT) ))
  )
(DEFUN C:QQ()
  (SETQ ENT (CAR (ENTsel "")))
  (SETQ OBJECT_ENT (vlax-ename->vla-object ENT ))
  (setq ENT_NAME ent)
  (SETQ ATT_ID "OUT0")
  (SET_XDATA ENT "ZNCAD"  "68546")
  )