社区 › Auto Lisp › 来自等高线的数据

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值。
 

(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）成近似直角的线（不是多段线），以便该线穿过所需点。
 
然后标识出需要标高的线。

查看完整版本: 来自等高线的数据