显示a的X，Y坐标

eldon · 发表于 2022-7-7 14:32:18

我做了一个块，它是一个点，然后插入一个字段的位置（x，y）。然后可以将其插入或复制到图形中的每个端点。然后将点重新格式化为点，您将无法再看到它！可以使用夹点将文本拖动到所需的位置。

如果你想更进一步，那么你可以分解所有字段，然后只剩下文本。

paulmcz · 发表于 2022-7-7 14:34:41

做你想做的事的领导口齿不清->

（定义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

edwinprakoso · 发表于 2022-7-7 14:38:39

我写了一篇关于用字段标记坐标的教程。我希望这有帮助。

Billy · 发表于 2022-7-7 14:41:18

[列表=1]

我一直在寻找像paulmcz这样的例程，但我不擅长Lisp。如何修改此例程，使其在数字周围绘制箭头和直线，仅在第二个指定点显示“（x，y）”？

将Lisp文件放在哪里，以便它对所有图形都可用，并且我不必总是为每个图形加载它？

如何通过功能区在AutoCAD 2010中加载Lisp例程？我只能通过隐藏的经典菜单（Tools | AutoLISP | Load Application…）来实现。
问候，
比利

paulmcz · 发表于 2022-7-7 14:43:26

1、这是没有领导的例行公事
2.将两个附件保存到AutoCAD的支持文件夹中
3、对丝带一无所知

类型>32

如果您的支持文件夹中已经有“acaddoc.lsp”文件，请不要覆盖。相反，从这个文件中复制文本并将其粘贴到现有的“acaddoc.lsp”文件中。

如果需要了解Autolisp，请转至“工具”>“Autolisp”>“Visual Lisp编辑器”>“帮助”。
阿卡多克。lsp
点ID-32。lsp