来自等高线的数据

hepcpltd · 发表于 2022-7-5 22:28:47

Acad图纸可与测量等高线一起使用。是否有任何autolisp或代码可以从附近等高线中找到中间未知点的高程。

eldon · 发表于 2022-7-5 22:34:43

轮廓是三维线吗？如果是这样，可以从一个等高线到另一个等高线绘制一条线（使用最近的Osnap），然后在所需的点处断开该线，并标识该线的终点。

我看到你正在使用LT，这意味着你不能使用Lisp，我不知道关于3D线。

BIGAL · 发表于 2022-7-5 22:38:54

简单数学从开始等高线距离1延伸到下一个等高线距离2，比率dist1/dist2*ht diff+level 1st contour=高程，如果我写对了。

hepcpltd · 发表于 2022-7-5 22:42:33

具有Acad完整版本。我的问题是，等高线外有很多点，我想用一些lisp通过在图形中插值等高线值来为这些点/文本指定“Z”。

hepcpltd · 发表于 2022-7-5 22:47:13

具有Acad完整版本。我的问题是，等高线外有很多点，我想用一些lisp通过在图形中插值等高线值来为这些点/文本指定“Z”。

Tharwat · 发表于 2022-7-5 22:48:11

用一张简单的前后图，我想这会向所有读者阐明你的需求。

eldon · 发表于 2022-7-5 22:52:48

也许我应该重复我对信息的要求。轮廓线是三维的吗？

如果大多数点位于等高线之外，则将进行外推而不是插值。

您对地面在等高线外具有与现有等高线定义的坡度相同的坡度有多大信心？

最好要求将调查范围扩大到您想要的区域。

hepcpltd · 发表于 2022-7-5 22:55:42

随附可用轮廓图。希望通过参考等高线高程和距离，找到显示为值“100”的文本点的“Z”。外形图纸

Tharwat · 发表于 2022-7-5 22:59:33

尝试这个简单的代码并选择任何实体，它会在消息框中显示Z值。

copy


(defun c:Test (/ ss)
 (if (setq ss (car (entsel "\n Select Entity :")))
   (alert (strcat " The Z is >> "
                  " : "
                  (rtos (caddr (cdr (assoc 10 (entget ss)))) 2)
          )
   )
   (princ "\n Nothing Selected :")
 )
 (princ)
)

塔瓦特

eldon · 发表于 2022-7-5 23:05:43

要获取点的标高，首先绘制一条与最近等高线（使用Osnap nearest）成近似直角的线（不是多段线），以便该线穿过所需点。

然后标识出需要标高的线。

[编程交流] 来自等高线的数据

发表回复

精选推荐