将x和y转换回poi
我需要帮助将X值和Y值转换为该函数的可用点(if (not c:cal)(arxload "geomcal"))
(setq x (cal "ang(xy,xy2,xy1)"))
求两点之间的角度。
这是我试过的。
(setq xy (list xval yval))
我修改了现有代码，将多段线的坐标导出到。txt文件，分别为x和y值。这是可行的，但当我试图通过重新组合x和y值来添加它们之间的角度时，会得到这个错误。
AutoLISP变量XY的值必须为点、实数或整数
所以我猜使用列表是行不通的！
完整2.Lsp 也许是这样的
(setq ptxyz (list (atof easting)(atof northing) (atof height)))
(command "point" ptxyz) 您的问题似乎是由于您使用rtos，然后在cal函数上使用该字符串造成的。实际上，我会这样说：
请注意，您不需要每次使用geomcal时都加载geomcal。你甚至可以把它移到defun之外，或者至少在repeat循环之外。 非常感谢你们两个，我会让这两个都试试！ 使现代化
完成了我需要做的事情！
感谢irneb的支持！这正是我所需要的，只需稍加修改即可访问上一个点和下一个点。
该例程允许您选择一条多段线，检查它是否确实是一条多段线，然后根据需要提示输入文件输出。如果是这样，则会提示输入文件名，并将保存所有顶点的点编号以及x和y坐标、纬度和经度以及每个顶点的角度变化。
此外，如果需要，还会提示在图形上标记顶点编号、北距和东距以及角度。很好地将文本放置在沿线的不同点，以避免混淆。然后可以移动它们。
如果有任何利益。lsp文件让我知道！ 请发布您的更新代码
谢谢
页:
[1]