求等高线成批内插程序

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

那位朋友有等高线成批内插程序啊，给个帮忙！

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 [extend])) (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name) PT [extend])))) (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 [extend])) (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name1) PT [extend])))) (cond ((equal (car p2) pzx1 0.001) (setq pzx2 (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name1) PT [extend])) ) ((equal (cadr p2) pzx1 0.001) (setq pzx3 (vlax-curve-getClosestPointTo (vlax-ename->vla-object Name1) PT [extend])) ) ) ) (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

我手里有个自己做的

但不是批量的

而且还存在一些问题不过还可以使用要的话邮件联系

cl9829_06@163.com

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
我手里有个自己做的但不是批量的而且还存在一些问题不过还可以使用要的话邮件联系cl9829_06@163.com

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

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

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

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

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

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

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

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

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

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

能不能开源呢？

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

求等高线成批内插程序

相关帖子