坐标表

mousho · 发表于 2022-7-5 18:12:31

基于此lisp，我想添加另一个选项，该选项将允许我根据单击圆的顺序输出圆的坐标，或者为其提供多段线上点的坐标nf（不一定是圆）
目前，lisp仅通过“X到X+”或“Y到Y+”返回圆或点的坐标

我没有太多的编码经验，非常感谢您的帮助

PcT 25.02.2012 XY-副本。Lsp

BIGAL · 发表于 2022-7-5 18:37:39

您正在寻找两个或三个选项，但在一个程序中，重新输出到屏幕上的一个框、一个表或一个文件，例如csv。

这适用于pline pts
普林公司。lsp

你可以用几种方法一个接一个地拾取圆，以获得顺序。在拾取顺序中使用ssget“F”选项增益，或者只拾取任意数量的圆。

粗略地添加圆


(setq clst '() )
(while (/= (setq cenpt (cdr (assoc 10 (entget (car (entsel "\npick circle")))))) nil)
(setq clst (cons cenpt clst))
)
(princ clst)

mousho · 发表于 2022-7-5 19:09:10

谢谢你，比加尔。
我需要重新输出到屏幕上的一个框中。
我更喜欢pline选项，而不是选择圆形。

无论如何，有没有改变Lisp程序，我发送的会做吗？
我喜欢lisp中的主要内容是，如果你移动圆，它会自动更新坐标。

BIGAL · 发表于 2022-7-5 19:12:58

现在理解你的问题，你想使用字段和可能的表格，这是一项任务。我想如果你在谷歌上搜索一下，你就能找到你想要的东西，我手头什么都没有。你能发布dwg或图像吗？这可能有助于别人给出解决方案。

[编程交流] 坐标表