怎样用VisualLisp 对由objectx程序创造的实体对象附加扩展数据？

zhf7878

怎样用VisualLisp 对由objectx程序创造的实体对象附加扩展数据？

meflying

一个简单的例子：
(vl-load-com)
(defun c:test( / ss ename vname datatype data)
  (setq ss (ssget))
  (setq ename (ssname ss 0))
  (setq vname (vlax-ename->vla-object ename))
  (setq datatype (vlax-make-safearray vlax-vbInteger '(0 . 1)))
  (vlax-safearray-fill datatype '(1001 1000))
  (setq data (vlax-make-safearray vlax-vbvariant '(0 . 1)))
  (vlax-safearray-fill data '("hello" "abc"))
  (vla-setxdata vname datatype data)
  (princ)
)

zhf7878

执行完(vla-setxdata vname datatype data)后，怎么返回的是nil值啊，也就是扩展数据没有被加进去

meflying

扩展数据是加入到对象中去的，不是返回到哪个变量的，
你用(entget (car (entsel)) '("hello"))查看一下对象不就知道有没有加入了吗？