从选定的Mtex添加扩展数据
你好我正在创建lisp例程，工作是选择多行文字或文本，并将相应的内容作为扩展数据添加到选定的实体。
（defun C:addxdata（）
（setq a（entget（car（entsel“\n选择文本：”））
（setq Xdata1（cdr（assoc 1 a）））
（原理Xdata1）
（setq b（entget（car（entsel“\n选择文本：”））
（setq Xdata2（cdr（assoc 1 b）））
（原理Xdata2）
（regapp“测试扩展数据”）
（setq oldlist（entget（car（entsel）））
（setq thedata’（-3（“Test_Xdata”（1000.Xdata 1）（1000.Xdata 2 1070;））））
)
然后，我使用了Express tool选项卡（Auto Cad 2014）下可用的列表扩展数据选项。我没有找到任何附带的扩展数据。
添加扩展数据后，我想导出到Excel。
对于Excel转换，Lisp运行良好。
我想问题出在下面一行，
（setq thedata’（-3（“Test_Xdata”（1000.Xdata 1）（1000.Xdata 2 1070;））））
即使存储在变量中的值不能正常工作。
关于，
卡鲁纳卡兰。 通过引用表达式，变量的求值将不会产生它们所持有的值-我建议阅读我关于撇号和引号函数的教程，以了解有关此概念的更多信息。
李 请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。 谢谢你，李，我在错过的地方找到了它，参考的信息很有用。
页:
[1]