liuyimian 发表于 2007-1-9 11:21:00

求等高线成批内插程序

那位朋友有<strong><font color="#3366ff">等高线成批内插程序啊，给个帮忙！</font></strong>

13648893846 发表于 2020-9-6 12:24:00

(defun Lc:DgxInterpolateElevationpoint (pt ss / K PL NAME PZX P2 KK NAME1 PZX1 PZX2 PZX3 GCC JULI1 JULI2 BZ XGC XZB)        (if ss                (progn                        (setq k -1)                        (setq pl '())                        (repeat (sslength ss)                                (setq Name   (ssname ss (setq k (1+ k))))                                (setq pzx (distance (vl-remove(last pt) pt)(vl-remove(last (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name) PT )) (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name) PT ))))                                (setq pl (append pl (list pzx)))                        )                         (setq p2 (vl-sort pl '<))                )        )        (if ss                (progn                        (setq kk -1)                        (repeat (sslength ss)                                (setq Name1 (ssname ss (setq kk (1+ kk))))                                (setq pzx1(distance (vl-remove(last pt) pt)(vl-remove(last (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name1) PT )) (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name1) PT ))))                                (cond                                        ((equal (car p2) pzx1 0.001)                                                 (setq pzx2 (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name1) PT ))                                                                                        )                                        ((equal (cadr p2) pzx1 0.001)                                                 (setq pzx3 (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name1) PT ))                                                                                        )                                                                        )                                                        )                        (setq gcc (- (last pzx2) (last pzx3)))                        (setq juli1 (distance (vl-remove (last pzx2) pzx2) (vl-remove (last pzx3) pzx3)))                        (setq juli2 (distance (vl-remove (last pt) pt) (vl-remove (last pzx3) pzx3)))                        (setq bz (/ gcc juli1))                        (setq xgc (+ (last pzx3)(* bz juli2)))                        (setq xzb (list (car pt) (cadr pt) xgc))                )        )        xzb        )

杜阳 发表于 2020-3-13 22:31:29

rark123 发表于 2007-1-24 18:25
我手里有个 自己做的 但不是批量的 而且还存在一些问题 不过 还可以使用 要的话 邮件联系cl9829_06@163.com

你好 版主可以发一份内插的吗   276610952@qq.com
谢谢

13648893846 发表于 2017-11-2 21:10:05

能发给我一下吗？729292370@qq.com

rark123 发表于 2007-1-24 18:25:00

<p>我手里有个 自己做的 </p><p>但不是批量的 </p><p>而且还存在一些问题 不过 还可以使用 要的话 邮件联系</p><p><a href="mailto:cl9829_06@163.com">cl9829_06@163.com</a></p>

czb203 发表于 2011-11-20 00:07:53

测试一下，真的还不错啊 谢谢啊

momokill 发表于 2013-1-9 23:52:57

试用一下谢谢，ffg8435@163.com

461045462 发表于 2013-1-10 05:53:01

rark123 发表于 2007-1-24 18:25 static/image/common/back.gif
我手里有个 自己做的 但不是批量的 而且还存在一些问题 不过 还可以使用 要的话 邮件联系cl9829_06@163.com

谢谢斑竹！
想求一份，能否发送到461045462@qq.com
谢谢

xiabin68 发表于 2013-1-10 20:37:06

rark123 发表于 2007-1-24 18:25 static/image/common/back.gif
我手里有个 自己做的 但不是批量的 而且还存在一些问题 不过 还可以使用 要的话 邮件联系cl9829_06@163.com

版主，我要一份，谢谢，，，

暮雨寒阳 发表于 2015-7-2 23:15:17

rark123 发表于 2007-1-24 18:25 static/image/common/back.gif
我手里有个 自己做的 但不是批量的 而且还存在一些问题 不过 还可以使用 要的话 邮件联系cl9829_06@163.com

能发我一下吗？1025756724@qq.com,谢谢

13540060544 发表于 2015-7-3 14:18:48

能发给我一下吗？453208797@qq.com，谢谢

luojie110 发表于 2017-11-20 15:38:31

能不能开源呢？
页: [1] 2
查看完整版本: 求等高线成批内插程序