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

st788796

游客，如果您要查看本帖隐藏内容请回复

test

2. 
   
3. (defun c:tt (/ e obj xd xv d)
   
4.   (while (setq e (car (entsel)))
   
5.     (setq obj (vlax-ename->vla-object e))
   
6.     (vla-getxdata obj "" 'xd 'xv)
   
7.     (if        xd
   
8.       (progn
   
9.         (setq d        (vl-remove-if
   
10.                   '(lambda (x) (/= (car x) 1001))
    
11.                   (mapcar '(lambda (a b) (cons a (variant-value b)))
    
12.                           (safearray-value xd)
    
13.                           (safearray-value xv)
    
14.                   )
    
15.                 )
    
16.         )
    
17.         (princ "\n")
    
18.         (princ (mapcar 'cdr d))
    
19.         (_removexd obj)
    
20.       )
    
21.       (princ "\nNo xdata!")
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )

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

q3_2006

这个会不会很危险..

Lisphk

向ST大师学习

yoyoho

谢谢分享学习！！！

sh_h

谢谢楼主分享！！！

qq1254582201

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

qq1254582201

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

dnbcgrass

回复学习学习!

brainstorm

xdata 和 xdata 区别在哪里？

kqqt6236

回复学习。

laiz3000

看有什么功能

HLCAD

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

liunian0524

感谢楼主分享

lucas3

ST大师，好久没露面了啊

crtrccrt

斯蒂芬斯多夫四对