扩展属性查看编辑小工具

zjfcumt

不借助其他程序能不能查询扩展数据？

chuanyumin

很好的东西，感谢分享。

magicheno

感谢大佬分享，好东西~

白色微風1991

謝謝分享，呵呵

qq1254582201

好东西，学习一波

77077

谢谢楼主分享，
顺便提个小建议，可以将两个命令整合起来。

1. (and
   
2.     (setq ss (ssget '((-3 ("*")))))
   
3.     (setq xdataFile (xdata->file ss))
   
4.     (setq WSshell (vlax-create-object "WScript.Shell"))
   
5.     (vl-catch-all-apply 'vlax-invoke (list WSshell 'run (strcat "notepad.exe " xdataFile) 8 :vlax-true))
   
6.     (vl-catch-all-apply 'vlax-release-object (list WSshell))
   
7.     (fileXdata->objs ss xdataFile)
   
8.     (vl-file-delete xdataFile)
   
9. )

(and<br />     (setq ss (ssget '((-3 ("*")))))<br />     (setq xdataFile (xdata->file ss))<br />     (setq WSshell (vlax-create-object "WScript.Shell"))<br />     (vl-catch-all-apply 'vlax-invoke (list WSshell 'run (strcat "notepad.exe " xdataFile) 8 :vlax-true))<br />     (vl-catch-all-apply 'vlax-release-object (list WSshell))<br />     (fileXdata->objs ss xdataFile)<br />     (vl-file-delete xdataFile)<br /> )

hzyhzjjzh

谢谢楼主分享