使用 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)
)
这个会不会很危险..
向ST大师学习 谢谢分享学习!!! 谢谢楼主分享!!! 看看有什么功能,瞅着很不错的样子
这个是怎么用的,表示加载了不会使用 回复学习学习!
xdata 和 xdata 区别在哪里? 回复学习。 看有什么功能{:1_1:} 用于向甲方交图时,肯定是可以的 感谢楼主分享 ST大师,好久没露面了啊 斯蒂芬斯多夫四对