如果你想更进一步，那么你可以分解所有字段，然后只剩下文本。
做你想做的事的领导口齿不清->
（定义c:31（/odt odg oecho oerr p1 p2 a1 a2 a）（setq odt（getvar“dimtad”）odg（getvar“dimgap”）oecho（getvar“cmdecho”））（setq oerr*error*）（定义*error*（msg）（princ“\n error！”）（setvar“cmdecho”oecho）（setvar“dimtad”odt）（setvar“dimgap”odg）（setq*error*oerr）（command）（princ））（setvar“cmdecho”0）（setvar“dimtad”0）（setvar“dimgap”-0.09）（while（setq p1（getpoint）“\n要识别的点：”）（setq p2（getpoint p1”\n Place注释：）a1（rtos（nth 0 p1）2 1）a2（rtos（nth 1 p1）2 1）；；a（strcat a1”，“a2”，z=“a3）a（strcat a1”，“a2）；；a（strcat“x=”a1“\\Py=”a2）；；a（strcat“x=”a1“\\Py=”a2“\\Pz=”a3）；；a（strcat“x=“a1”，y=“a2”）；（if（/=a3“0.000”）（setq a（strcat a1”，“a2”，z=“a3））（命令“leader”p1 p2“a”“^c））（setvar“cmdecho”oecho）（setvar“dimtad”odt）（setvar“dimgap”odg）（princ））；_defun结束（提示“\n To start ID Leader，type>31 我写了一篇关于用字段标记坐标的教程。我希望这有帮助。 [列表=1]
[*]我一直在寻找像paulmcz这样的例程，但我不擅长Lisp。如何修改此例程，使其在数字周围绘制箭头和直线，仅在第二个指定点显示“（x，y）”？
[*]将Lisp文件放在哪里，以便它对所有图形都可用，并且我不必总是为每个图形加载它？
[*]如何通过功能区在AutoCAD 2010中加载Lisp例程？我只能通过隐藏的经典菜单（Tools | AutoLISP | Load Application…）来实现。
问候，
比利
1、这是没有领导的例行公事
2.将两个附件保存到AutoCAD的支持文件夹中
3、对丝带一无所知
类型>32
如果您的支持文件夹中已经有“acaddoc.lsp”文件，请不要覆盖。相反，从这个文件中复制文本并将其粘贴到现有的“acaddoc.lsp”文件中。
如果需要了解Autolisp，请转至“工具”>“Autolisp”>“Visual Lisp编辑器”>“帮助”。
阿卡多克。lsp
点ID-32。lsp 保罗，非常感谢你。你帮了我很多。 好的，谢谢所有参与解决这个问题的人，我想知道这一点就像我开采的水面一样清晰，再一次。。。。。。。非常感谢。 很好的lisp例程，但是有没有办法将文本改为3位小数。它四舍五入，出现了（x=3.3，y=0.0）我需要（x=3.250，y=0.000）谢谢。 给你，3位小数。
点ID-32。lsp XY。lsp
下载附带的lisp程序并保存
->Autocad>工具>加载应用程序>浏览Lisp文件（XY）>加载>确定
在命令行中键入“XY”，然后输入
然后转到“点”，单击“点”，然后单击“边”
页:
1
[2]