社区 › AutoCAD与GIS测绘 › 利用GZXL程序：根据图面三角网查询任意点高程

树櫴希德 发表于 2014-5-16 08:39:30

什么情况下会影响插值结果？到现在为止还没有发现？大家都来测试一下吧。

树櫴希德 发表于 2014-5-16 21:17:24

(defun c:t6 (/ wjm ssdata ssdd ent1 fff);提取多段线坐标到TXT
(setq wjm (getfiled "请指定要保存的坐标文件" "e:\\" "txt" 1))
       (setq fff (open wjm "w"))
(setq ssdata (entget (car (entsel ""))))
(setq ssdd (mapcar 'cdr(vl-remove-if-not (function(lambda(x)(= 10 (car x))))ssdata)))
;(foreach pt ssdd)
(setq i 0)
(repeat (length ssdd)
(setq ent1 (nth i ssdd))

(write-line (strcat (rtos (car ent1) 2 3) "," (rtos (cadr ent1) 2 3)) fff)
(setq i (1+ i))

)
(close fff)
       )

3xxx 发表于 2014-9-13 15:04:55

太有用的代码了。可惜我不懂lisp，我正在寻找vb或c#版。

有你721 发表于 2014-12-2 21:15:06

选择对象:; 错误: no function definition: VXS。是怎么一回事？

yshf 发表于 2014-12-2 21:44:22

如果有十万个三角形，addgcptinpm函数是不是会很慢？

树櫴希德 发表于 2014-12-3 19:20:03

yshf 发表于 2014-12-2 21:44 static/image/common/back.gif
如果有十万个三角形，addgcptinpm函数是不是会很慢？

大神如果点击某点 就自动搜索在某个三角形中，像CIVLL 3D那样就好了你能改进下吗

yjycad 发表于 2014-12-3 23:12:56

谢谢！挺好用的！收藏

yshf 发表于 2014-12-3 23:34:27

如果使用CIVLL 3D，那你那个函数就没有太多的意义了。
在CIVLL 3D中，选取一个三角网曲面，使用以下方法就可以得到该曲面上任意点的高程：
(setq x (car pt) y (cadr pt)) ;pt为曲面上任意一点
(setq z (vl-catch-all-apply 'vlax-invoke-method (list Obj "FindElevationAtXY" x y)));取得点(x,y)的高程值, obj为三角网曲面

树櫴希德 发表于 2014-12-5 16:00:32

yshf 发表于 2014-12-3 23:34 static/image/common/back.gif
如果使用CIVLL 3D，那你那个函数就没有太多的意义了。
在CIVLL 3D中，选取一个三角网曲面，使用以下方法就 ...

CIVLL 3D有个三维坐标查询器和体积计算器 可显示坡度 三维坐标 坡向等

树櫴希德 发表于 2014-12-8 17:28:16

yshf 发表于 2014-12-3 23:34 static/image/common/back.gif
如果使用CIVLL 3D，那你那个函数就没有太多的意义了。
在CIVLL 3D中，选取一个三角网曲面，使用以下方法就 ...

教授啊，YSHF经常研究三角网建模吗？期待你的大作

查看完整版本: 利用GZXL程序：根据图面三角网查询任意点高程