利用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
如果有十万个三角形，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
如果使用CIVLL 3D，那你那个函数就没有太多的意义了。
在CIVLL 3D中，选取一个三角网曲面，使用以下方法就 ...

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

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

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

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

账号		自动登录	找回密码
密码			注册