将x和y转换回poi

bubsta82 · 发表于 2022-7-5 16:08:30

我需要帮助将X值和Y值转换为该函数的可用点


(if (not c:cal)(arxload "geomcal"))
(setq x (cal "ang(xy,xy2,xy1)"))

求两点之间的角度。

这是我试过的。

copy


(setq xy (list xval yval))

我修改了现有代码，将多段线的坐标导出到。txt文件，分别为x和y值。这是可行的，但当我试图通过重新组合x和y值来添加它们之间的角度时，会得到这个错误。

AutoLISP变量XY的值必须为点、实数或整数

所以我猜使用列表是行不通的！
完整2.Lsp

BIGAL · 发表于 2022-7-5 16:30:49

也许是这样的

copy

(setq ptxyz (list (atof easting)(atof northing) (atof height)))
(command "point" ptxyz)

irneb · 发表于 2022-7-5 16:33:46

您的问题似乎是由于您使用rtos，然后在cal函数上使用该字符串造成的。实际上，我会这样说：
请注意，您不需要每次使用geomcal时都加载geomcal。你甚至可以把它移到defun之外，或者至少在repeat循环之外。

bubsta82 · 发表于 2022-7-5 16:52:07

非常感谢你们两个，我会让这两个都试试！

bubsta82 · 发表于 2022-7-5 17:03:53

使现代化
完成了我需要做的事情！

感谢irneb的支持！这正是我所需要的，只需稍加修改即可访问上一个点和下一个点。

该例程允许您选择一条多段线，检查它是否确实是一条多段线，然后根据需要提示输入文件输出。如果是这样，则会提示输入文件名，并将保存所有顶点的点编号以及x和y坐标、纬度和经度以及每个顶点的角度变化。

此外，如果需要，还会提示在图形上标记顶点编号、北距和东距以及角度。很好地将文本放置在沿线的不同点，以避免混淆。然后可以移动它们。

如果有任何利益。lsp文件让我知道！

symoin · 发表于 2022-7-5 17:08:42

请发布您的更新代码

谢谢

[编程交流] 将x和y转换回poi

发表回复

精选推荐