从选定的Mtex添加扩展数据

karunakaran1991 · 发表于 2022-7-5 22:17:07

你好

我正在创建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;））））

即使存储在变量中的值不能正常工作。

关于，
卡鲁纳卡兰。