(vl-load-com)
(or *LG_dim:acdb_reactor*
(setq *LG_dim:acdb_reactor*
(vlr-acdb-reactor
“LG.dimpointid”
‘((:vlr-objectModified . LGdim:object_Modified))
)
)
)
(defun LGdim:object_Modified (Reactor acdb&en / )
(setq en (cadr acdb&en))
(vlax-ldata-get en “LG_dim_modified”) ;加载以上代码，这一句在保存或另存为时，会出错，提示信息详图片，单独运行(vlax-ldata-get en “LG_dim_modified”)就不会出错，详图片
)
希望有奖品，本人还有好多大BUG，希望有机会合作
——————————————正式买断公司客户
