论坛 › A/VLISP › 使用 vla-setxdata 移除实体所有 xdata

st788796 发表于 2017-7-21 16:09:20

使用 vla-setxdata 移除实体所有 xdata

**** Hidden Message *****
test

(defun c:tt (/ e obj xd xv d)
(while (setq e (car (entsel)))
    (setq obj (vlax-ename->vla-object e))
    (vla-getxdata obj "" 'xd 'xv)
    (if        xd
      (progn
        (setq d        (vl-remove-if
                  '(lambda (x) (/= (car x) 1001))
                  (mapcar '(lambda (a b) (cons a (variant-value b)))
                          (safearray-value xd)
                          (safearray-value xv)
                  )
                )
        )
        (princ "\n")
        (princ (mapcar 'cdr d))
        (_removexd obj)
      )
      (princ "\nNo xdata!")
    )
)
(princ)
)

q3_2006 发表于 2017-7-21 18:16:02

这个会不会很危险..

Lisphk 发表于 2017-7-21 18:23:12

向ST大师学习

yoyoho 发表于 2017-7-21 19:53:59

谢谢分享学习！！！

sh_h 发表于 2017-7-21 20:40:20

谢谢楼主分享！！！

qq1254582201 发表于 2017-7-21 22:35:52

看看有什么功能，瞅着很不错的样子

qq1254582201 发表于 2017-7-21 22:44:45

这个是怎么用的，表示加载了不会使用

dnbcgrass 发表于 2017-7-21 22:51:49

回复学习学习!

brainstorm 发表于 2017-7-21 23:59:52

xdata 和 xdata 区别在哪里？

kqqt6236 发表于 2017-7-22 00:41:16

回复学习。

laiz3000 发表于 2017-7-22 01:14:38

看有什么功能{:1_1:}

HLCAD 发表于 2017-7-22 07:46:45

用于向甲方交图时，肯定是可以的

liunian0524 发表于 2017-7-22 07:57:01

感谢楼主分享

lucas3 发表于 2017-7-22 08:40:36

ST大师，好久没露面了啊

crtrccrt 发表于 2017-7-22 18:02:45

斯蒂芬斯多夫四对

查看完整版本: 使用 vla-setxdata 移除实体所有 xdata